emacs latex config

;hooks
(add-hook 'LaTeX-mode-hook 'TeX-fold-mode)
(add-hook 'LaTeX-mode-hook 'LaTeX-math-mode)
;(add-hook 'LaTeX-mode-hook 'reftex-mode)
;(add-hook 'LaTeX-mode-hook 'rainbow-delimiters-mode)
;; (add-hook 'LaTeX-mode-hook 'ac-l-setup)
;;Syntax Higlight
(add-hook 'LaTeX-mode-hook 'turn-on-font-lock)
;; Mathe Modus
(add-hook 'LaTeX-mode-hook 'LaTeX-math-mode)
;; Reftex einflechten und laden
(setq reftex-plug-into-AUCTeX t)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)

; configure auctex
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq TeX-PDF-mode t) ;; .pdf statt .dvi per default:
(setq-default TeX-master nil)
(setq TeX-electric-escape nil)
(setq predictive-latex-electric-environments t)

;; Satzende ". " statt ". ". " f¨r M-k: loeschen bis Satzende usw.
(setq sentence-end "[.?!][]\"')}]*\\($\\| \\| \\)[;;]*") ;; Da ist ein "Newline in der Zeile!"
(setq sentence-end-double-space nil)

;; Nur benutzen falls Auctex > 11.81 mit preview-latex:
(load "preview-latex.el" nil t t)

;; Zeile kommentieren, falls nicht installiert:
(setq-default ispell-program-name "aspell")
;; Deutsche Rechtschreibung falls \usepackage{ngerman}
;; oder german benutzt wird
(add-hook 'TeX-language-de-hook
(function (lambda () (ispell-change-dictionary "german8"))))

;; some new key-bindings for auctex math-mode
(setq LaTeX-math-list nil)
(add-to-list 'LaTeX-math-list '(?\C-f "varphi"))
(add-to-list 'LaTeX-math-list '(?\C-j "vartheta"))
(add-to-list 'LaTeX-math-list '(?\C-e "varepsilon"))
(add-to-list 'LaTeX-math-list '(?\C-v "vec"))
(add-to-list 'LaTeX-math-list '(?\C-d "dot"))
(add-to-list 'LaTeX-math-list '(?\C-r "varrho"))
(add-to-list 'LaTeX-math-list '(?\/ "frac"))
(add-to-list 'LaTeX-math-list '(?\C-p "partial"))

;; stuff for reftex-mode
(setq reftex-label-alist
      '(("section" ?s "sec:" "~\\ref{%s}"  nil ("Kapitel" "Kap." "Abschnitt" "Abs."))
        ("eqnarray" ?e "eq:" "~(\\ref{%s})"  nil ("Gleichung" "Gl."))
        ("eqnarray*" ?e "eq:" "~(\\ref{%s})"  nil ("Gleichung" "Gl."))
        ("align" ?e "eq:" "~(\\ref{%s})"  nil ("Gleichung" "Gl."))
        ("align*" ?e "eq:" "~(\\ref{%s})"  nil ("Gleichung" "Gl."))
        ("table" ?t "tab:" "~\\ref{%s}"  nil ("Tabelle" "Tab."))
        ("figure" ?f "fig:" "~\\ref{%s}"  nil ("Abbildung" "Abb."))))
(setq reftex-insert-label-flags '(nil t))

;; german quotes an auctex
(setq TeX-open-quote "\"`")
(setq TeX-close-quote "\"'")

;; default floating argument
(setq LaTeX-float "!h")


;; shell escape is needed for minted package
(eval-after-load "tex"
  '(setcdr (assoc "LaTeX" TeX-command-list)
          '("%`%l%(mode) -shell-escape%' %t"
          TeX-run-TeX nil (latex-mode doctex-mode) :help "Run LaTeX")
    )
  )

; left-right braces stuff
(defun lr-brace ()
 (interactive "*")
 (insert "\\left( \\right)")
 (backward-char 8)
)
(defun lr-sq-brace ()
 (interactive "*")
 (insert "\\left[ \\right]")
 (backward-char 8)
)
(defun lr-crl-brace ()
 (interactive "*")
 (insert "\\left\{ \\right\}")
 (backward-char 9)
)

;; moarr latex keybindings
(add-hook 'LaTeX-mode-hook
          (lambda ()
            (define-key LaTeX-mode-map (kbd "C-c e") 'LaTeX-find-next-item)
            (define-key LaTeX-mode-map (kbd "C-c s") 'LaTeX-find-next-section)
            (define-key LaTeX-mode-map (kbd "<tab>") 'yas/expand)
            (define-key LaTeX-mode-map (kbd "<C-tab>") 'cdlatex-tab)
            ))

;; ========== goto undef ref ========== ;;
(defalias 'my-latex-goto-undefref (read-kbd-macro
"C-s undefined M-e M-b M-@ <C-end> C-x o M-g <f10> RET"))


(defun LaTeX-compile-metapost ()
  "compiles (using mpost) all files ending in \"mp\" in the current file's directory"
  (interactive)
  (shell-command "find . -name "*.mp" -exec mpost '{}' \; "))


;; lets get another minor LaTeX mod, disabled atmo
(autoload 'cdlatex-mode "cdlatex" "CDLaTeX Mode" t)
(autoload 'turn-on-cdlatex "cdlatex" "CDLaTeX Mode" nil)
(add-hook 'LaTeX-mode-hook 'turn-on-cdlatex)   ; with AUCTeX LaTeX mode
(add-hook 'latex-mode-hook 'turn-on-cdlatex)   ; with Emacs latex mode


;; flyspell
(add-hook 'LaTeX-mode-hook 'flyspell-mode)   ; with AUCTeX LaTeX mode
(add-hook 'latex-mode-hook 'flyspell-mode)   ; with Emacs latex mode

;; (require 'tex-mode)
;; (add-hook 'LaTeX-mode-hook
;;           (lambda ()
;;             (set (make-local-variable 'syntax-propertize-function)
;;                  (syntax-propertize-rules latex-syntax-propertize-rules))
;;             (latex-electric-env-pair-mode 1)))

(require 'tex-mode)
(defconst my-latex-syntax-propertize-function
  (with-temp-buffer (latex-mode) syntax-propertize-function))

(add-hook 'LaTeX-mode-hook
          (lambda ()
            (set (make-local-variable 'syntax-propertize-function)
                 my-latex-syntax-propertize-function)
            (latex-electric-env-pair-mode 1)))

(provide 'setup-latex)