EmacsForMoinMoin/MoinMoinMode

   1 ;;; Use raw text to fetch this code, see EmacsForMoinMoin for tutorial and discussion.
   2 
   3 ;;; Download link: http://moinmo.in/EmacsForMoinMoin/MoinMoinMode?action=raw
   4 
   5 ;;; moinmoin-mode.el --- a major mode to edit MoinMoin wiki pages
   6 
   7 ;; Written by ASK, distributed under GPL
   8 
   9 ;; Filename:      moinmoin-mode.el
  10 ;; Keywords:      moinmoin, wiki
  11 ;; Description:   a major mode to edit MoinMoin wiki pages
  12 ;; Compatibility: GNU Emacs 22.0.50.1 (probably others)
  13 ;; Last modified: 2006-04-15
  14 
  15 ;; This file is NOT part of GNU Emacs.
  16 
  17 (require 'screen-lines) ; uses screen-lines.el by Yuji Minejima, tested with 0.55
  18 
  19 
  20 ;;; Definition of font faces
  21 (defgroup moinmoin nil
  22   "Major mode for MoinMoin wiki pages"
  23   :prefix "moinmoin-")
  24 
  25 (defface moinmoin-h5 '((t (:foreground "tan3" :slant italic)))
  26   "Face name to use for 5-level headings in moinmoin"
  27   :group 'moinmoin)
  28 (defface moinmoin-h4 '((t (:inherit moinmoin-h5 :slant normal :foreground "tan4")))
  29   "Face name to use for 4-level headings in moinmoin"
  30   :group 'moinmoin)
  31 (defface moinmoin-h3 '((t (:inherit moinmoin-h4 :weight bold)))
  32   "Face name to use for 3-level headings in moinmoin"
  33   :group 'moinmoin)
  34 (defface moinmoin-h2 '((t (:inherit moinmoin-h3 :height 1.2)))
  35   "Face name to use for 3-level headings in moinmoin"
  36   :group 'moinmoin)
  37 (defface moinmoin-h1 '((t (:inherit moinmoin-h2 :height 1.4)))
  38   "Face name to use for 3-level headings in moinmoin"
  39   :group 'moinmoin)
  40 
  41 (defface moinmoin-smiley '((t (:foreground "green4" :weight bold)))
  42   "Face name to use smileys in moinmoin"
  43   :group 'moinmoin)
  44 
  45 (defface moinmoin-table-separator '((t (:foreground "salmon" :weight bold)))
  46   "Face name to use for separation of columns in tables of moinmoin"
  47   :group 'moinmoin)
  48 (defface moinmoin-table-pi '((t (:foreground "plum3")))
  49   "Face name to use for processing instructions in tables of moinmoin"
  50   :group 'moinmoin)
  51 
  52 (defface moinmoin-anchor '((t (:foreground "tan3" :height 0.8)))
  53   "Face name to use for anchors (targets) in moinmoin"
  54   :group 'moinmoin)
  55 (defface moinmoin-anchor-ref-id '((t (:foreground "blue2" :height 0.8 :underline t)))
  56   "Face name to use for id in anchor reference in moinmoin"
  57   :group 'moinmoin)
  58 (defface moinmoin-anchor-ref-title '((t (:foreground "blue4" :underline t)))
  59   "Face name to use for title in anchors reference in moinmoin"
  60   :group 'moinmoin)
  61 
  62 (defface moinmoin-macro-name '((t (:foreground "plum3")))
  63   "Face name to use for names of macros in moinmoin"
  64   :group 'moinmoin)
  65 (defface moinmoin-macro-parameters '((t (:foreground "plum4")))
  66   "Face name to use for parameters of macros in moinmoin"
  67   :group 'moinmoin)
  68 
  69 (defface moinmoin-item '((t (:foreground "brown" :weight bold)))
  70   "Face name to use for items in lists in moinmoin"
  71   :group 'moinmoin)
  72 (defface moinmoin-item-2 '((t (:foreground "brown")))
  73   "Face name to use for second-level items in moinmoin"
  74   :group 'moinmoin)
  75 (defface moinmoin-blockquote-indent '((t (:background "aquamarine1")))
  76   "Face name to use for blockquote indentation in moinmoin"
  77   :group 'moinmoin)
  78 (defface moinmoin-blockquote-text '((t (:foreground "aquamarine4")))
  79   "Face name to use for blockquote text in moinmoin"
  80   :group 'moinmoin)
  81 
  82 (defface moinmoin-code '((t (:foreground "purple4")))
  83   "Face name to use for code inside braces in moinmoin"
  84   :group 'moinmoin)
  85 (defface moinmoin-code-braces '((t (:foreground "plum3")))
  86   "Face name to use for baces which delimit code inside braces in moinmoin"
  87   :group 'moinmoin)
  88 
  89 (defface moinmoin-pi '((t (:foreground "plum3" :weight bold)))
  90   "Face name to use for processing instructions in moinmoin"
  91   :group 'moinmoin)
  92 (defface moinmoin-comment '((t (:foreground "maroon3")))
  93   "Face name to use for comments in moinmoin"
  94   :group 'moinmoin)
  95 (defface moinmoin-rule '((t (:foreground "tomato2" :weight bold)))
  96   "Face name to use for rules in moinmoin"
  97   :group 'moinmoin)
  98 (defface moinmoin-ss '((t (:foreground "grey" ))) ;; try also :height 0.1
  99   "Face name to use for syntactic sugar in moinmoin"
 100   :group 'moinmoin)
 101 (defface moinmoin-tt '((t (:foreground "cyan4")))
 102   "Face name to use for typewriter text in moinmoin"
 103   :group 'moinmoin)
 104 (defface moinmoin-entity '((t (:foreground "grey")))
 105   "Face name to use for HTML entities in moinmoin"
 106   :group 'moinmoin)
 107 (defface moinmoin-email '((t (:foreground "blue2")))
 108   "Face name to use for emails in moinmoin"
 109   :group 'moinmoin)
 110 (defface moinmoin-url '((t (:foreground "blue2" :height 0.8)))
 111   "Face name to use for URLs in moinmoin"
 112   :group 'moinmoin)
 113 (defface moinmoin-url-title '((t (:foreground "blue4" :underline t)))
 114   "Face name to use for title of URL in moinmoin"
 115   :group 'moinmoin)
 116 (defface moinmoin-wiki-link '((t (:foreground "blue4" :weight bold)))
 117   "Face name to use for CamelCase links in moinmoin"
 118   :group 'moinmoin)
 119 (defface moinmoin-inter-wiki-link '((t (:foreground "blue3" :weight bold)))
 120   "Face name to use for inter wiki links in moinmoin"
 121   :group 'moinmoin)
 122 (defface moinmoin-bold '((t (:weight bold)))
 123   "Face name to use for bold text in moinmoin"
 124   :group 'moinmoin)
 125 (defface moinmoin-italic '((t (:slant italic)))
 126   "Face name to use for italic text in moinmoin"
 127   :group 'moinmoin)
 128 (defface moinmoin-underline '((t (:underline t)))
 129   "Face name to use for underlined text in moinmoin"
 130   :group 'moinmoin)
 131 (defface moinmoin-stroke '((t (:strike-through t)))
 132   "Face name to use for stroked text in moinmoin"
 133   :group 'moinmoin)
 134 (defface moinmoin-subscript '((t (:height 0.8)))
 135   "Face name to use for subscripts in moinmoin"
 136   :group 'moinmoin)
 137 (defface moinmoin-superscript '((t (:height 0.8)))
 138   "Face name to use for superscripts in moinmoin"
 139   :group 'moinmoin)
 140 
 141 
 142 ;;; Font lock setup
 143 (defconst moinmoin-url-prefix
 144   "\\(?:http\\|https\\|ftp\\|nntp\\|news\\|mailto\\|telnet\\|wiki\\|file\\|irc\\|attachment\\|inline\\|drawing\\)"
 145   "Bracketed regexp matching URL prefixes in moinmoin")
 146 (defconst moinmoin-url-punctuation
 147   "]\"'}|:,.)?!"                        ; start with ]
 148   "Punctuation in URLs of moinmoin")
 149 (defconst moinmoin-pi-re
 150   "^#\\(?:format\\|refresh\\|redirect\\|deprecated\\|pragma\\|form\\|acl\\|language\\).*$"
 151   "Regexp for processing instructions in moinmoin")
 152 (defconst moinmoin-smiley-re
 153   "\\(?:<:(\\|X-(\\|:)\\|:-))\\|:(\\|/!\\\\\\|{X}\\|{OK}\\|B-)\\|{2}\\|>:>\\|;-)\\|<!>\\|:o\\||-)\\|;)\\||)\\|(!)\\|:-(\\|:-)\\|{o}\\|:D\\|(./)\\|B)\\|{*}\\|:\\\|:-?\\|{i}\\|{3}\\|{1}\\|:)\\)"
 154   "Regexp for smileys in moinmoin")
 155 
 156 (defun moinmoin-formatted-code-matcher (bound)
 157   "Search for formatted code
 158 This is supposed to be bug-to-bug compatible with moinmoin-1.5.2"
 159   (catch 'match
 160     (while (< (point) bound)
 161       (unless (search-forward-regexp "{{{" bound t)
 162         (throw 'match nil))
 163       (let ((start-brace-begin (match-beginning 0))
 164             (start-brace-end (match-end 0))
 165             pi-begin pi-end
 166             code-begin code-end
 167             end-brace-begin end-brace-end)
 168         (unless (get-text-property start-brace-begin 'moinmoin-verbatim)
 169           (goto-char start-brace-end)
 170           (if (looking-at "#!.*\n")
 171               (setq pi-begin (match-beginning 0)
 172                     pi-end (match-end 0)
 173                     code-begin (match-end 0))
 174             (setq code-begin start-brace-end))
 175           (goto-char code-begin)
 176           (let ((not-first-line))
 177             (while (looking-at
 178                     "\\(?:##.*\\|`.*?`\\|{{{.*?

\\|.\\)*?\$?:\\(}}}\$\\|\n\\)")

(goto-char (match-end 0)) (when (and (match-beginning 1) ; non-paired `}}}'
- not-first-line)
- (setq code-end (match-beginning 1)
  - end-brace-begin (match-beginning 1) end-brace-end (match-end 1))
  (set-match-data (list start-brace-begin end-brace-end
  - start-brace-begin start-brace-end pi-begin pi-end code-begin code-end end-brace-begin end-brace-end))
  (throw 'match t))
(setq not-first-line t)))

(throw 'match nil))))))

(defun moinmoin-bracketed-url-matcher (bound)

"Search for bracketed URLs" (catch 'match
- (while (< (point) bound)
  - (unless (search-forward-regexp
    - (concat "\$\\[\$"
      - "\$" moinmoin-url-prefix "?:.*?\$ +" "\$.*?\$?" "\$\\]\$") bound t)
    - (throw 'match nil))
    (unless (get-text-property (match-beginning 0) 'moinmoin-verbatim)
    - (throw 'match t)))))

(defun moinmoin-setup-font-lock ()

(setq font-lock-beginning-of-syntax-function '(lambda () (goto-char 1))) (setq font-lock-multiline t) (make-local-variable 'font-lock-extra-managed-props) (add-to-list 'font-lock-extra-managed-props 'moinmoin-verbatim) ; Not Comment Start (add-to-list 'font-lock-extra-managed-props 'display) (font-lock-add-keywords nil `(
- ("\$?:^\\|[|]\$\$\\(?:||\$+\\)\$<.*?>\$?"
  - (1 'moinmoin-table-separator) (2 'moinmoin-table-pi t t))
  ("\$.*?\$" (1 'moinmoin-bold prepend)) ("\$?:[^']\\|\$\$[^'].*?[']\$[^']" (1 'moinmoin-italic prepend)) ("\$\$\$.*?\$\$\$"
  - (1 'moinmoin-ss t) (2 'moinmoin-underline prepend) (3 'moinmoin-ss t))
  ("\$\$\$.*?\$\$\$"
  - (1 'moinmoin-ss t) (2 'moinmoin-stroke prepend) (3 'moinmoin-ss t))
  ("\$_{\$\$.*?\$\$}\$"
  - (1 'moinmoin-ss t) (2 (list 'face 'moinmoin-subscript 'display '(raise -0.3)) prepend) (3 'moinmoin-ss t))
  ("\$\\^{\$\$.*?\$\$\\}\$"
  - (1 'moinmoin-ss t) (2 (list 'face 'moinmoin-superscript 'display '(raise 0.3)) prepend) (3 'moinmoin-ss t))
  ("+" (0 'moinmoin-ss t)) ("^ +\$?:\\*\\|.*?::\\|\\(?:[0-9]+\\|[aAiI]\$\\.\\) "
  - (0 'moinmoin-item-2))
  ("^ \$?:\\*\\|.*?::\\|\\(?:[0-9]+\\|[aAiI]\$\\.\\) "
  (0 'moinmoin-item))
  ("^\$ +\$\$.*\$"
  (1 'moinmoin-blockquote-indent) (2 'moinmoin-blockquote-text))
  ("&[A-Za-z0-9]*;" (0 'moinmoin-entity prepend)) (,(concat "\$?:^\\| \$\$" moinmoin-smiley-re "\$:space:")
  (1 'moinmoin-smiley t))
  ("\$?:^\\|[A-Za-z!]\$\$\\(?:\\.\\./\$?/?[A-Z][a-z]+[A-Z][a-z][A-Za-z]*\$?:/[A-Z][a-z]+[A-Z][a-z][A-Za-z]*\$?\\)"
  (1 'moinmoin-wiki-link t))
  (,(concat "[A-Z][A-Za-z]+:"
  "[^[:space:]'\":<|]" "\$?:[^" moinmoin-url-punctuation "[:space:]]\\|"
  "[" moinmoin-url-punctuation "]"
  "[^" moinmoin-url-punctuation "[:space:]]\$+")
  (0 'moinmoin-inter-wiki-link t))
  ("\$\\[\"\$\$?:\\(.*?:.*\$\\|\$.*?\$\\)\$\"\\]\$"
  (1 'moinmoin-ss t) (2 (list 'face 'moinmoin-inter-wiki-link 'moinmoin-verbatim t) t t) (3 (list 'face 'moinmoin-wiki-link 'moinmoin-verbatim t) t t) (4 'moinmoin-ss t))
  ;;ur'%(url_guard)s(%(url)s)\:([^{\s\<%(punct)s]|([%(punct)s][}\s\<%(punct)s]))+' (,(concat "\\<" moinmoin-url-prefix ":"
  "\$?:[^" moinmoin-url-punctuation "<[:space:]]\\|"
  "[" moinmoin-url-punctuation "]"
  "[^" moinmoin-url-punctuation "<[:space:]]\$+")
  (0 'moinmoin-url t))
  ("[A-Za-z0-9_+-]+@[A-Za-z0-9_-]+\$?:\\.[A-Za-z0-9_-]+\$+"
  (0 'moinmoin-email t))
  ("-\\{4,\\}" (0 'moinmoin-rule t)) ;; macros ("\$\\[\\[\$\$[A-Za-z0-9]+\$\$?:\\((\$\$.*?\$\$)\$\\)?\$\\]\\]\$"
  (1 'moinmoin-ss t) (2 (list 'face 'moinmoin-macro-name 'moinmoin-verbatim t) t) (3 'moinmoin-ss t t) (4 (list 'face 'moinmoin-macro-parameters 'moinmoin-verbatim t) t t) (5 'moinmoin-ss t t) (6 'moinmoin-ss t))
  ("\$\\[\\[Anchor(\$\$.*?\$\$)\\]\\]\$"
  (1 'moinmoin-ss t) (2 (list 'face 'moinmoin-anchor 'moinmoin-verbatim t) t) (3 'moinmoin-ss t))
  ("\$\\[#\$\$.*?\$ +\$.*?\$?\$\\]\$"
  (1 'moinmoin-ss t) (2 (list 'face 'moinmoin-anchor-ref-id 'moinmoin-verbatim t) t) (3 (list 'face 'moinmoin-anchor-ref-title 'moinmoin-verbatim t) t t) (4 (list 'face 'moinmoin-ss 'moinmoin-verbatim t) t))
  ;; typewriter (tt) overrides the above
  ("\$\$\$.*?\$\$\$"
  (1 (list 'face 'moinmoin-ss 'moinmoin-verbatim t) keep) (2 (list 'face 'moinmoin-tt 'moinmoin-verbatim t) t) (3 (list 'face 'moinmoin-ss 'moinmoin-verbatim t) keep))
  ("\$\$\$.*?\$\$\$"
  (1 'moinmoin-ss keep) ; cannot match `{{{' thus no need for ncs (2 (list 'face 'moinmoin-tt 'moinmoin-verbatim t) t) (3 'moinmoin-ss keep))
  ;; headers overrides tt and biu ("^\$= \$\$.*\$\$ =\$$"
  (1 'moinmoin-ss t) (2 (list 'face 'moinmoin-h1 'moinmoin-verbatim t) t) (3 'moinmoin-ss t))
  ("^\$== \$\$.*\$\$ ==\$$"
  (1 'moinmoin-ss t) (2 (list 'face 'moinmoin-h2 'moinmoin-verbatim t) t) (3 'moinmoin-ss t))
  ("^\$=== \$\$.*\$\$ ===\$$"
  (1 'moinmoin-ss t) (2 (list 'face 'moinmoin-h3 'moinmoin-verbatim t) t) (3 'moinmoin-ss t))
  ("^\$==== \$\$.*\$\$ ====\$$"
  (1 'moinmoin-ss t) (2 (list 'face 'moinmoin-h4 'moinmoin-verbatim t) t) (3 'moinmoin-ss t))
  ("^\$=====\\(=*\$ \\)\$.*\$\$ \\2=====\$$" ; 5th and all others
  (1 'moinmoin-ss t) (3 (list 'face 'moinmoin-h5 'moinmoin-verbatim t) t) (4 'moinmoin-ss t))
  ;; comments and pi ("^##.*$"
  (0 (list 'face 'moinmoin-comment 'moinmoin-verbatim t) t))
  (,moinmoin-pi-re
  (0 (list 'face 'moinmoin-pi 'moinmoin-verbatim t) t))
  (moinmoin-bracketed-url-matcher
  (1 'moinmoin-ss t) (2 (list 'face 'moinmoin-url 'moinmoin-verbatim t) t) (3 (list 'face 'moinmoin-url-title 'moinmoin-verbatim t) t t) (4 (list 'face 'moinmoin-ss 'moinmoin-verbatim t) t))
  (moinmoin-formatted-code-matcher
  (1 (list 'face 'moinmoin-code-braces 'moinmoin-verbatim t) t) (2 (list 'face 'moinmoin-pi 'moinmoin-verbatim t) t t) (3 (list 'face 'moinmoin-code 'moinmoin-verbatim t) t) (4 (list 'face 'moinmoin-code-braces 'moinmoin-verbatim t) t))
  ) 'set))

;;; Automagic typing helpers (defun moinmoin-insert-quote ()

"Convert double quote to HTML entity (“ or ”)" (interactive) (cond
- ((or (get-text-property (point) 'moinmoin-verbatim)
  (looking-back "\\[\\|= *\\|^\$?:[\"]*\"[^\"]*\"\$*[\"]*\"[^\"]*"))
  (insert "\""))
  ((or (looking-back ":space:") (eq (point) 1))
  (insert "“"))
  (t (insert "”"))))

(defun moinmoin-insert-dash ()

"Insert different types of dashes.

----' and -' stays unchanged --' is converted to –' ---' is converted to —' `)--' is not changed' <-' is converted to ←'"

(interactive) (cond
((get-text-property (point) 'moinmoin-verbatim)
(insert "-"))
((looking-back "---\\|—")
(replace-match "

" t t))

((looking-back "--\\|–")
- (replace-match "—" t t))
((looking-back ")-")
(replace-match ")--" t t))
((looking-back "<")
(replace-match "←" t t))
((looking-back "-")
(replace-match "–" t t))
(t (insert "-"))))

(defun moinmoin-insert-lparen ()

"–( to " (interactive) (cond
- ((get-text-property (point) 'moinmoin-verbatim)
  (insert "("))
  ((looking-back "–")
  (replace-match "--(" t t))
  (t (insert "("))))

(defun moinmoin-insert-greater-than ()

"-> to →" (interactive) (cond
- ((get-text-property (point) 'moinmoin-verbatim)
  (insert ">"))
  ((looking-back "-")
  (replace-match "→" t t))
  (t (insert ">"))))

(defun moinmoin-insert-item ()

"Start new item or row

If current line starts with item prefix insert newline and the same prefix in front of the rest of line. If it is table then finish the line and add the new one"

(interactive) (when (bolp) (backward-char)) (cond
((looking-back "^\$ *||\$.*") ; in a table
(let ((prefix (match-string 1)))
(end-of-line) (looking-back "[^|]\$|*\$")
(replace-match "||" t t nil 1) (insert "\n" prefix)))
((looking-back "^\$ +\\(?:\\* \\|\\(?:[0-9]+\\|[aAiI]\$\\. \\|\\)\\).*")
(let ((prefix (match-string 1)))
(insert "\n")
(insert prefix)))))

;;; Header manipulation helpers (defun moinmoin-is-header ()

"Is point in a header line?

If yes the title is in \\1"

(save-excursion
(beginning-of-line) (looking-at "=+ \$.*\$ =+$")))

(defun moinmoin-increase-header-level ()

"Add `=' in the beginning and end of current line" (save-excursion
(beginning-of-line) (insert "=") (end-of-line) (insert "=")))

(defun moinmoin-decrease-header-level ()

"Decrease level of the header

Warns if point in a top-level header or not in a header"

(save-excursion
(beginning-of-line) (if (looking-at "=\$=+ .* =+\$=$")
(replace-match "\\1" t)
(warn "cannot decrease level"))
))

(defun moinmoin-change-header-level (increment)

"Increase or decrease level of header according to INCREMENT" (interactive "r") (if (eq increment 1)
(moinmoin-increase-header-level)
(moinmoin-decrease-header-level)))

(defun moinmoin-change-header-levels-in-region (increment start end)

"Increase or decrease level of all headers in the region according to INCREMENT" (interactive "p\nr") (save-excursion
(goto-char start) (while (progn
(when (moinmoin-is-header)
(moinmoin-change-header-level increment))
(and (zerop (forward-line)) (< (point) end))))
))

(defun moinmoin-insert-equal (increment)

"Do-what-I-mean with header level or insert `='.

With active region increase or decrease level of all headers in region. On an empty line starts new header. On a header line increase or decrease level. Otherwise just insert `='"

(interactive "p") (if mark-active
(progn
(moinmoin-change-header-levels-in-region
increment (region-beginning) (region-end))
(setq deactivate-mark nil))
(cond
((looking-at "^$")
(insert "= =") (backward-char 2))
((moinmoin-is-header)
(moinmoin-change-header-level increment))
(t (insert "=")))))

;;; Anchor insertion and navigation (defun moinmoin-list-anchors ()

"List anchors in the current buffer" (let ((lst))
(save-excursion
(goto-char 1) (while (search-forward-regexp "\\[\\[Anchor(\$[^])\n]*\$)\\]\\]" nil t)
(setq lst (cons (match-string-no-properties 1) lst))))
lst))

(defvar moinmoin-anchor-history "Minibuffer history of anchors") (defun moinmoin-completing-read-anchor (prompt &optional require-match)

"Read non-empty anchor using complition of all the anchors in the current buffer" (let ((anchor
(completing-read "Anchor: " (moinmoin-list-anchors)
nil require-match nil moinmoin-anchor-history)))
(when (string-equal anchor "")
(error "Empty anchor"))
anchor))

(defun moinmoin-insert-number-sign (&optional no-title)

(interactive "P") "After `[' insert a reference to anchor inputed using completition,

If no argument given also insert the title of the section which contains the anchor."

(cond
((and (looking-back "\\[")
(not (get-text-property (point) 'moinmoin-verbatim)))
(let* ((anchor (moinmoin-completing-read-anchor "Anchor: "))
(title
(unless no-title
(condition-case nil
(moinmoin-get-anchored-header anchor)
(error (message "No header for anchor %s" anchor) nil)))))
(insert "#" anchor " ") (if title
(insert title "]")
(insert "]") (backward-char))))
(t ; not after "["
(insert "#"))))

(defun moinmoin-insert-anchor ()

"Insert anchor (using the title if point is in a header)" (interactive) (cond
((moinmoin-is-header)
(let ((anchor-name
(replace-regexp-in-string ; remove non-anchor symbols
"[^A-Za-z0-9]+" "-" (match-string-no-properties 1) t t)))
(forward-line)
(insert "Anchor(" anchor-name ")\n")))
(t
(insert "Anchor()") (backward-char 3))))

(defun moinmoin-anchor-read-or-ask (&optional prompt)

"DWIM to get anchor: read [#... ] on current line (before point) or ask user." (cond
((and
(search-backward
"[#" (save-excursion (beginning-of-line) (point)) t)
(looking-at "\\[#\$[^]\n ]+\$"))
(match-string-no-properties 1))
(t
(moinmoin-completing-read-anchor (or prompt "Anchor: ") t))))

(defun moinmoin-goto-anchor (&optional anchor)

"Go to anchor

If ANCHOR is nil (e.g., if called interactively) read reference to it from the current line or ask user. So if there is an anchor on the current line but you want to jump to something different go to the beginning of the line first."

(interactive) (unless anchor
(setq anchor (moinmoin-anchor-read-or-ask)))
(goto-char 1)
(search-forward (concat "Anchor(" anchor ")")))

(defun moinmoin-get-anchored-header (anchor)

"Get title of the section which contains ANCHOR" (save-excursion
(moinmoin-goto-anchor anchor) (search-backward-regexp "^=+ \$.*\$ =+$" nil) (match-string-no-properties 1)))

(defun moinmoin-insert-anchored-header (&optional to-kill-ring)

"Insert title of the section which contains anchor, with prefix save it to kill-ring" (interactive "P") (let ((header (moinmoin-get-anchored-header nil)))
(if to-kill-ring
(kill-new header)
(insert header))))

;;; Setup (define-derived-mode moinmoin-mode outline-mode "MoinMoin"

"Set major mode for editing MoinMoin pages" (make-local-variable 'outline-regexp) (setq outline-regexp "=+") (make-local-variable 'outline-heading-end-regexp) (setq outline-heading-end-regexp " =+\n") (local-set-key "\"" 'moinmoin-insert-quote) (local-set-key "-" 'moinmoin-insert-dash) (local-set-key "(" 'moinmoin-insert-lparen) (local-set-key ">" 'moinmoin-insert-greater-than) (local-set-key "=" 'moinmoin-insert-equal) (local-set-key "#" 'moinmoin-insert-number-sign) (local-set-key (kbd "M-RET") 'moinmoin-insert-item) (local-set-key (kbd "C-c a") 'moinmoin-insert-anchor) (local-set-key (kbd "C-c g") 'moinmoin-goto-anchor) (toggle-truncate-lines 0) ; do not truncate (screen-lines-mode 1) ; use screen lines (moinmoin-setup-font-lock) (abbrev-mode 1) (set-fill-column 65000) (auto-fill-mode 0))

(add-to-list 'auto-mode-alist '("\\.wiki$" . moinmoin-mode))

(provide 'moinmoin-mode) }}}

MoinMoin: EmacsForMoinMoin/MoinMoinMode (last edited 2012-02-29 16:33:11 by port814)