69 lines
3.6 KiB
EmacsLisp
69 lines
3.6 KiB
EmacsLisp
;;==============================================================================
|
|
;; MediaWiki
|
|
;;==============================================================================
|
|
|
|
(if (require 'mediawiki nil t)
|
|
(progn
|
|
|
|
(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")
|
|
))
|
|
|
|
;; Macros.
|
|
;; Use C-( stuff C-) to record a macro.
|
|
;; Use 'name-last-kbd-macro' to give it a name.
|
|
;; Use 'insert-kbd-macro' in your init file to insert the code.
|
|
;; You can assign a key: (local-set-key (kbd "C-c a") 'my-macro)
|
|
(fset 'ltx-template-source-to-ltx
|
|
"\C-@\C-s>\C-m\C-w\C-@\C-s</source\C-m\C-[Od\C-[[D\C-[[D\C-wltx\C-i\C-y\C-i\C-[d\C-d\C-s<source\C-m\C-[Od\C-[[D")
|
|
|
|
(fset 'ltx-template-source-to-ltxu
|
|
"\C-@\C-s>\C-w\C-?\C-m\C-w\C-d\C-@\C-s</source\C-m\C-[Od\C-[[D\C-[[D\C-[[D\C-wltxu\C-i\C-y\C-i\C-k\C-k\C-s<source\C-m\C-[Od\C-[[D")
|
|
|
|
(fset 'ltx-template-tt-to-ltx
|
|
"\C-s<tt\C-m\C-[Od\C-[[D\C-@\C-[Oc\C-[[C\C-w\C-@\C-s</tt\C-m\C-[Od\C-[[D\C-[[D\C-wltx\C-i\C-y\C-i\C-[d\C-d\C-s<tt\C-m\C-[Od\C-[[D")
|
|
|
|
(fset 'ltx-template-tt-to-env
|
|
"\C-s<tt\C-m\C-[Od\C-[[D\C-@\C-[Oc\C-[[C\C-w\C-@\C-s</tt\C-m\C-[Od\C-[[D\C-[[D\C-wltxenv\C-i\C-y\C-i\C-[d\C-d\C-s<tt\C-m\C-[Od\C-[[D")
|
|
|
|
(fset 'ltx-template-tt-to-pkg
|
|
"\C-s<tt\C-m\C-[Od\C-[[D\C-@\C-[Oc\C-[[C\C-w\C-@\C-s</tt\C-m\C-[Od\C-[[D\C-[[D\C-wltxpkg\C-i\C-y\C-i\C-[d\C-d\C-s<tt\C-m\C-[Od\C-[[D")
|
|
|
|
(fset 'ltx-template-tt-to-par
|
|
"\C-s<tt\C-m\C-[Od\C-[[D\C-@\C-[Oc\C-[[C\C-w\C-@\C-s</tt\C-m\C-[Od\C-[[D\C-[[D\C-wltxpar\C-i\C-y\C-i\C-[d\C-d\C-s<tt\C-m\C-[Od\C-[[D")
|
|
|
|
(fset 'ltx-template-code-to-ltx
|
|
"\C-s<code\C-m\C-[Od\C-[[D\C-@\C-[Oc\C-[[C\C-w\C-@\C-s</code\C-m\C-[Od\C-[[D\C-[[D\C-wltx\C-i\C-y\C-i\C-[d\C-d\C-s<code\C-m\C-[Od\C-[[D")
|
|
|
|
(fset 'ltx-template-code-to-pkg
|
|
"\C-s<code\C-m\C-[Od\C-[[D\C-@\C-[Oc\C-[[C\C-w\C-@\C-s</code\C-m\C-[Od\C-[[D\C-[[D\C-wltxpkg\C-i\C-y\C-i\C-[d\C-d\C-s<code\C-m\C-[Od\C-[[D")
|
|
|
|
(fset 'ltx-template-code-to-par
|
|
"\C-s<code\C-m\C-[Od\C-[[D\C-@\C-[Oc\C-[[C\C-w\C-@\C-s</code\C-m\C-[Od\C-[[D\C-[[D\C-wltxpar\C-i\C-y\C-i\C-[d\C-d\C-s<code\C-m\C-[Od\C-[[D")
|
|
|
|
(fset 'ltx-template-code-to-env
|
|
"\C-s<code\C-m\C-[Od\C-[[D\C-@\C-[Oc\C-[[C\C-w\C-@\C-s</code\C-m\C-[Od\C-[[D\C-[[D\C-wltxenv\C-i\C-y\C-i\C-[d\C-d\C-s<code\C-m\C-[Od\C-[[D")
|
|
|
|
;; 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: does not work.
|
|
(setq url-cookie-save-interval 86400)
|
|
|
|
(setq 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)
|
|
;; TODO: Bindings do not work???
|
|
;; (local-set-key (kbd "C-c l L") 'ltx-template-source-to-latex)
|
|
;; (local-set-key (kbd "C-c l U") 'ltx-template-source-to-usage)
|
|
)) ))
|