;;==============================================================================
;; 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)
             )) ))