ambevar-dotfiles/.emacs.d/lisp/mode-mediawiki.el

78 lines
2.3 KiB
EmacsLisp
Raw Normal View History

2013-06-12 23:40:20 +02:00
;;==============================================================================
;; MediaWiki
;;==============================================================================
2014-02-13 17:22:52 +01:00
(setq
mediawiki-site-alist
'(
("Wikipedia" "http://en.wikipedia.org/w/" "Ambrevar" "" "Main Page")
("Wikibooks" "http://en.wikibooks.org/w/" "Ambrevar" "" "LaTeX")
("ArchLinux" "https://wiki.archlinux.org/" "Ambrevar" "" "Mutt")
("WikEmacs" "https://wikemacs.org/wiki/" "Ambrevar" "" "Main Page")
))
2013-06-12 23:40:20 +02:00
;; The url-cookie timer is set to a high value because it seems that once the
;; cookie has been saved, MediaWiki fails to upload files correctly. Is
;; 'url-do-setup' needed to make sure the url-cookie-save-interval variable is
;; taken into account?
;; TODO: url-cookie timer does not work.
(setq url-cookie-save-interval 86400)
2013-06-12 23:40:20 +02:00
2014-03-10 10:37:43 +01:00
(add-hook-and-eval
2014-02-13 17:42:13 +01:00
'mediawiki-mode-hook
(lambda ()
(visual-line-mode 1)
(turn-off-auto-fill)
(define-key mediawiki-mode-map (kbd "C-c RET") 'mediawiki-open-page-at-point)
(define-key mediawiki-mode-map (kbd "C-c o") 'mediawiki-browse)
(local-unset-key (kbd "M-g"))
(local-set-key (kbd "C-c C-d") 'duplicate-line)
(local-set-key (kbd "C-c C-s") 'mediawiki-save)
(local-set-key (kbd "C-x C-s") 'save-buffer)
2014-02-13 17:42:13 +01:00
))
2014-03-10 10:37:43 +01:00
;;==============================================================================
;; Skel
;;==============================================================================
(define-skeleton mediawiki-latex-link
"Insert link to the LaTeX wikibook."
"Link: " "[[LaTeX/" @ str "|" str "]]" _)
(define-skeleton mediawiki-latex-env
"Insert LaTeX environment."
nil "{{LaTeX/Environment|" @ _ "}}")
(define-skeleton mediawiki-latex-example
"Insert LaTeX example."
"Code: "
\n "{{LaTeX/Example|code=" @ str \n
"|render=" \n
_ \n
"}}" \n)
(define-skeleton mediawiki-latex-param
"Insert LaTeX parameter."
nil "{{LaTeX/Parameter|" @ _ "}}")
(define-skeleton mediawiki-latex-package
"Insert LaTeX package."
"{{LaTeX/Package|" @ _ "}}")
(define-skeleton mediawiki-latex-usage
"Insert LaTeX usage block."
nil "{{LaTeX/Usage|code=" \n
@ _ \n
"}}")
(define-skeleton mediawiki-latex-inline
"Insert LaTeX inline code."
nil "{{LaTeX/LaTeX|code=" @ _ "<!---->}}")
(define-skeleton mediawiki-tt
"Insert truetype text."
nil "<tt>" @ _ "</tt>" @)
2014-02-13 17:42:13 +01:00
(provide 'mode-mediawiki)