;; -*- emacs-lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; $Id: emacs_wiki.el,v 1.3 2006-11-06 21:02:42 rscholz Exp $ ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Einstellungen für den Emacs-Wiki-Mode ;; ;; Die offizielle Quelle dieser Datei ist ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; emacs-wiki ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; emacs-wiki nutzt table.el für schönere HTML-Tabellen (require 'table) ;; Laden (load "emacs-wiki") (setq emacs-wiki-default-page "ZonixUniverse") (setq emacs-wiki-home-page emacs-wiki-default-page) (setq emacs-wiki-directories '("~/xxx/wiki")) (setq emacs-wiki-publishing-directory "~/www/zonix.de/universe") (setq emacs-wiki-footer-date-format "%d.%m.%Y") ;; Style-Sheet für generierte Seiten (setq emacs-wiki-style-sheet "") ;; Header jeder generierten Seite (setq emacs-wiki-publishing-header " <lisp>(emacs-wiki-page-title)</lisp> emacs-wiki-meta-http-equiv\" content=\"emacs-wiki-meta-content\"> emacs-wiki-maintainer\"> (emacs-wiki-published-name emacs-wiki-home-page)\"> (emacs-wiki-published-name emacs-wiki-index-page)\"> emacs-wiki-style-sheet

(emacs-wiki-page-title)

$\"Logo\"$

\n") ;; Footer jeder generierten Seite (setq emacs-wiki-publishing-footer "

(if buffer-file-name (concat \"Zuletzt geändert: \" (format-time-string emacs-wiki-footer-date-format (nth 5 (file-attributes buffer-file-name))) (and emacs-wiki-serving-p (emacs-wiki-editable-p (emacs-wiki-page-name)) (concat \" / \" (emacs-wiki-link-href (concat \"editwiki?\" (emacs-wiki-page-name)) \"Edit\"))) \"\"))

(concat (and (emacs-wiki-page-file emacs-wiki-home-page t) (not (emacs-wiki-private-p emacs-wiki-home-page)) (concat (emacs-wiki-link-href emacs-wiki-home-page \"Home\") \" / \")) (emacs-wiki-link-href emacs-wiki-index-page \"Index\") (and (emacs-wiki-page-file \"ChangeLog\" t) (not (emacs-wiki-private-p \"ChangeLog\")) (concat \" / \" (emacs-wiki-link-href \"ChangeLog\" \"Änderungen\"))))

(if emacs-wiki-serving-p (concat \"\" (emacs-wiki-link-href \"searchwiki?get\" \"Search\") (and buffer-file-name (concat \" / \" (emacs-wiki-link-href (concat \"searchwiki?q=\" (emacs-wiki-page-name)) \"Referrers\"))) \"\"))

\n") ;; Alex Reinwarth: ;; (require 'emacs-wiki) ;; (setq emacs-wiki-default-page "index") ;; (setq emacs-wiki-home-page "index") ;; (setq emacs-wiki-index-page "SiteIndex") ;; (setq emacs-wiki-maintainer "webmaster@reinwarth.com") ;; (setq emacs-wiki-publishing-directory "~/public_html") ;; (setq emacs-wiki-directories '("~/documents/Wikis/ReinwarthCom")) ;; (setq emacs-wiki-style-sheet "") ;; (setq emacs-wiki-table-attributes "border=\"0\"") ;; (setq emacs-wiki-footer-date-format "%d.%m.%y") ;; (setq emacs-wiki-publishing-header ;; " ;; ;; ;; <lisp>(emacs-wiki-page-title)</lisp> ;; ;; emacs-wiki-meta-http-equiv\" ;; content=\"emacs-wiki-meta-content\"> ;; emacs-wiki-maintainer\"> ;; (emacs-wiki-published-name ;; emacs-wiki-home-page)\"> ;; (emacs-wiki-published-name ;; emacs-wiki-index-page)\"> ;; emacs-wiki-style-sheet ;; ;; ;;

(emacs-wiki-page-title)

;; ;; ;; ;; ;; ;; (setq emacs-wiki-publishing-footer ;; " ;;

;; (insert-file \"MenuBar\") ;;		;; \n") ;; ;;
;; ;; (emacs-wiki-link-href \"ChangeLog\" \"Änderungen\") ;; ;;

;;

;; ;; ;; ;; ;;

;; ;; (if buffer-file-name ;; (concat ;; \" \" ;; (emacs-wiki-link-href \"ChangeLog\" \"Letzte Änderung: \") ;; (format-time-string emacs-wiki-footer-date-format ;; (nth 5 (file-attributes buffer-file-name))) ;; (and emacs-wiki-serving-p ;; (emacs-wiki-editable-p (emacs-wiki-page-name)) ;; (concat ;; \" / \" ;; (emacs-wiki-link-href ;; (concat \"editwiki?\" (emacs-wiki-page-name)) ;; \"Edit\"))) ;; \"\")) ;; ;;

;;

;; ;; \n") ;; (setq emacs-wiki-publishing-markup ;; (list ;; ;; change the displayed title or the stylesheet for a given page ;; ["\\`#\$title\\|style\$\\s-+\$.+\$\n+" 0 ;; emacs-wiki-markup-initial-directives] ;; ;; process any markup tags ;; [emacs-wiki-tag-regexp 0 emacs-wiki-markup-custom-tags] ;; ;; emphasized or literal text ;; ["\$^\\|[-[ \t\n<('`\"]\$\$=[^= \t\n]\\|_[^_ \t\n]\\|\\*+[^* \t\n]\$" ;; 2 emacs-wiki-markup-word] ;; ;; headings, outline-mode style ;; ["^\$\\*+\$\\s-+" 0 emacs-wiki-markup-heading] ;; ;; define anchor points ;; ["^#\$[A-Za-z0-9_%]+\$\\s-*" 0 emacs-wiki-markup-anchor] ;; ;; horizontal rule, or section separator ;; ["^----+" 0 "

"] ;; ["ä" 0 "ä"] ;; ["ö" 0 "ö"] ;; ["ü" 0 "ü"] ;; ["Ä" 0 "Ä"] ;; ["Ö" 0 "Ö"] ;; ["Ü" 0 "Ü"] ;; ["ß" 0 "ß"] ;; ;["<" 0 "<"] ;; ;[">" 0 ">"] ;; ;; footnotes section is separated by a horizontal rule in HTML ;; ["^\$\\* \$?Footnotes:?\\s-*" 0 "

\n"] ;; ;; footnote definition/reference (def if at beginning of line) ;; ["\\[\$[1-9][0-9]*\$\\]" 0 emacs-wiki-markup-footnote] ;; ;; don't require newlines between numbered and unnumbered lists. ;; ;; This must come before paragraphs are calculated, so that any ;; ;; extra newlines added will be condensed. ;; ["^\\s-*\$-\\|[0-9]+\\.\$" 1 "\n\\1"] ;; ;; the beginning of the buffer begins the first paragraph ;; ["\\`\n*" 0 "

\n"] ;; ;; plain paragraph separator ;; ["\n\$[ \t]*\n\$+" 0 "\n\n

\n\n

\n"] ;; ;; if table.el was loaded, allow for pretty tables. otherwise only ;; ;; simple table markup is supported, nothing fancy. use | to ;; ;; separate cells, || to separate header elements, and ||| for ;; ;; footer elements ;; (vector ;; (if (featurep 'table) ;; "^\$\\s-*\$\$\\+[-+]+\\+[\n\r \t]+|\$" ;; "^\\s-*\$\\([^|\n]+\\(|+\$\\s-*\\)+\\)\$[^|\n]+\$?$") ;; 1 'emacs-wiki-markup-table) ;; ;; unnumbered List items begin with a -. numbered list items ;; ;; begin with number and a period. definition lists have a ;; ;; leading term separated from the body with ::. centered ;; ;; paragraphs begin with at least six columns of whitespace; any ;; ;; other whitespace at the beginning indicates a blockquote. The ;; ;; reason all of these rules are handled here, is so that ;; ;; blockquote detection doesn't interfere with indented list ;; ;; members. ;; ["^\$\\s-*\\(-\\|[0-9]+\\.\\|\\(.+\$[ \t]+::\n?\\)\\)?\$[ \t]+\$" 4 ;; emacs-wiki-markup-list-or-paragraph] ;; ;; "verse" text is indicated the same way as a quoted e-mail ;; ;; response: "> text", where text may contain initial whitespace ;; ;; (see below). ;; ["

\\s-+> \$\\([^\n]\n?\$+\\)\\(\\s-*

\\)?" 0 ;; emacs-wiki-markup-verse] ;; ;; join together the parts of a list ;; ["\\s-*\\(

\\s-*

\\s-*\\)?<\\1>\\s-*" 0 ""] ;; ;; join together the parts of a table ;; (vector ;; (concat "\\s-*" ;; "\\s-*" "\\(

\\s-*

\\s-*\\)?" "]*>\\s-*" ;; "\\s-*") 0 "") ;; ["\\s-*\\(

\\s-*

\\s-*\\)?]*>\\s-*" 0 ""] ;; ;; fixup paragraph delimiters ;; (vector ;; (concat "

\\s-*\$\$") 0 "\\1") ;; (vector (concat "\$\$\\s-*\\(

\\)") 3 "\\1") ;; ;; terminate open paragraph at the end of the buffer ;; ["

\\s-*\\'" 0 ""] ;; ;; make sure to close any open text (paragraphs) ;; ["\$[^> \t\n]\$\\s-*\\'" 0 "\\1\n

"] ;; ;; lists have no whitespace after them, so add a final linebreak ;; ["\$\$\\(\\s-*\\(

\\|\\'\\)\\)" 0 "\\1\n
\\2"] ;; ;; bare email addresses ;; ["\$[^[]\$\$[-a-zA-Z0-9._]+@\\([-a-zA-z0-9_]+\\.\$+[a-zA-Z0-9]+\\)" 0 ;; "\\1\\2"] ;; ;; replace WikiLinks in the buffer (links to other pages) ;; ;; before a WikiName guards it from being replaced ;; ;; '''' can be used to add suffixes, such as WikiName''''s ;; [emacs-wiki-url-or-name-regexp 0 emacs-wiki-markup-link] ;; ["''''" 0 ""] ;; ;; insert the default publishing header ;; (function ;; (lambda () ;; (insert emacs-wiki-publishing-header))) ;; ;; insert the default publishing footer ;; (function ;; (lambda () ;; (goto-char (point-max)) ;; (insert emacs-wiki-publishing-footer))) ;; ;; process any remaining markup tags ;; [emacs-wiki-tag-regexp 0 emacs-wiki-markup-custom-tags])) ;; (setq emacs-wiki-changelog-markup ;; (list ;; ["&" 0 "&"] ;; ["<" 0 "<"] ;; [">" 0 ">"] ;; ["^\$\\S-+\$\\s-+\$.+\$" 0 emacs-wiki-markup-changelog-section] ;; ;; emphasized or literal text ;; ["\$^\\|[-[ \t\n<('`\"]\$\$=[^= \t\n]\\|_[^_ \t\n]\\|\\*+[^* \t\n]\$" ;; 2 emacs-wiki-markup-word] ;; ;; headings, outline-mode style ;; ["^\\*\\s-+\$.+\$$" 0 "

\\1

"] ;; ;; don't require newlines between unnumbered lists. ;; ["^\\s-*\$\\*\$" 1 "\n\\1"] ;; ;; the beginning of the buffer begins the first paragraph ;; ["\\`\n*" 0 "

\n"] ;; ;; plain paragraph separator ;; ["\n\$[ \t]*\n\$+" 0 "\n\n

\n\n

\n"] ;; ;; unnumbered List items begin with a -. numbered list items ;; ;; begin with number and a period. definition lists have a ;; ;; leading term separated from the body with ::. centered ;; ;; paragraphs begin with at least six columns of whitespace; any ;; ;; other whitespace at the beginning indicates a blockquote. The ;; ;; reason all of these rules are handled here, is so that ;; ;; blockquote detection doesn't interfere with indented list ;; ;; members. ;; ["^\$\\s-*\\(\\*\$\\)?\$[ \t]+\$\$\\([^\n]\n?\$+\\)" 3 ;; "

\n"] ;; ;; join together the parts of a list ;; ["\\s-*\\(

\\s-*

\\s-*\\)?<\\1>\\s-*" 0 ""] ;; ;; fixup paragraph delimiters ;; (vector ;; (concat "

\\s-*\$\$") 0 "\\1") ;; (vector (concat "\$\$\\s-*\\(

\\)") 3 "\\1") ;; ;; terminate open paragraph at the end of the buffer ;; ["

\\s-*\\'" 0 ""] ;; ;; make sure to close any open text (paragraphs) ;; ["\$[^> \t\n]\$\\s-*\\'" 0 "\\1\n

"] ;; ;; lists have no whitespace after them, so add a final linebreak ;; ["\$\$\\(\\s-*\\(

\\|\\'\\)\\)" 0 "\\1\n
\\2"] ;; ;; bare email addresses ;; ["\$[^[]\$\$[-a-zA-Z0-9._]+@\\([-a-zA-z0-9_]+\\.\$+[a-zA-Z0-9]+\\)" 0 ;; "\\1\\2"] ;; ;; replace WikiLinks in the buffer (links to other pages) ;; [emacs-wiki-url-or-name-regexp 0 emacs-wiki-markup-link] ;; ["''''" 0 ""] ;; ;; insert the default publishing header ;; (function ;; (lambda () ;; (insert emacs-wiki-publishing-header))) ;; ;; insert the default publishing footer ;; (function ;; (lambda () ;; (goto-char (point-max)) ;; (insert emacs-wiki-publishing-footer))) ;; ;; process any remaining markup tags ;; [emacs-wiki-tag-regexp 0 emacs-wiki-markup-custom-tags])) ;; (add-hook 'emacs-wiki-mode-hook 'footnote-mode) ;; (add-hook 'emacs-wiki-mode-hook 'flyspell-mode) ;; (set-face-foreground 'emacs-wiki-link-face "DarkGreen") ;; (set-face-foreground 'emacs-wiki-bad-link-face "firebrick") ;; (global-set-key [(control c)(control f)] 'emacs-wiki-find-file) ;; (define-key emacs-wiki-mode-map [(super tab)] 'emacs-wiki-previous-reference) ;; (define-key emacs-wiki-mode-map [(hyper tab)] 'emacs-wiki-previous-reference)