ambevar-dotfiles/.emacs.d/mode-tex.el

;;==============================================================================
;; TeX
;;==============================================================================
;; The default tex-mode and AucTeX may seem quite disappointing. Let's use
;; custom KISS functions for everything.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; CUSTOM

(defcustom masterfile nil
  "The file that should be compiled. Useful for modular documents."
  :safe 'stringp)

(defcustom tex-compiler nil
  "This is the name of the executable called upon TeX compilations.
Examples: pdftex, pdflatex, xetex, xelatex, luatex, lualatex...

If value is nil, the compiler will be tex-default-compiler for
TeX mode, and latex-default-compiler for LaTeX mode."
  :safe 'stringp)

(defcustom tex-compiler-options "-file-line-error-style -interaction nonstopmode -synctex=1"
  "The options to the tex compiler. Options are set between the
compiler name and the file name.

Interesting options:

* -file-line-error-style: change the style of error report to
   display file name and line first.

* -halt-on-error: default.

* -interaction <mode>: like -halt-on-error, you can set the way
   the compilers behave on errors. Possible values for <mode> are
   'batchmode', 'errorstopmode', 'nonstopmode' and 'scrollmode'.

* -shell-escape: allow the use of \write18{<external command>}
   from within TeX documents. This is a potential security issue.

* -synctex=1: enable SyncTeX support.

You may use file local variable for convenience:

% -*- tex-compiler-options: \"-shell-escape\"

Note that -shell-escape can also be toggled with universal
argument."
  :safe 'stringp)

(defcustom tex-startcommands ""
  "You can call a TeX compiler upon a string instead of a file.
This is actually useful if you want to customize your
compilation.

If this variable is not an empty string, the mandatory \" is
prepended and \\input\" is appended, so that the target file gets
read; otherwise the TeX compiler would stop there.

You may use it to act on the process, like the default behaviour:
  \\nonstopmode
which will continue the process whenever an error is
encountered. There is an command-line argument for that on most
compilers, that is is rarely useful.

If you use a color theme, or any conditional variable inside your
document, you may define it here:
  \\def\\myvar{mycontent}"
  :safe 'stringp)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; VARIABLES

(defvar tex-default-compiler "pdftex"
  "Default compiler for TeX mode. Used if `tex-compiler' is
empty.")

(defvar tex-extension-list nil
  "List of known TeX exentsions. This list is used by `tex-clean'
  to purge all matching files.")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; FUNCTIONS
(defun tex-set-compiler ()
  "Use compile to process your TeX-based document. Use a prefix
argument to call the compiler along the '-shell-escape'
option. This will enable the use of '\write18{<external
command>}' from within TeX documents, which need to allow
external application to be called from TeX.

This may be useful for some features like GnuPlot support with TikZ.

WARNING: the -shell-escape option is a potential security issue."
  (interactive)
  (hack-local-variables)
  (let (
        ;; Set compiler to be tex-compiler if not empty, or a default
        ;; compiler otherwise.
        (local-compiler
         (if tex-compiler tex-compiler tex-default-compiler))

        ;; Master file.
        (local-master
         (if (not masterfile) buffer-file-name masterfile))

        ;; If tex-startcommands has some content, we make sure it is a string
        ;; that loads the file.
        (local-start-cmd
         (if (not (string= "" tex-startcommands))
             (concat "\"" tex-startcommands "\\input\"")))

        ;; Support of prefix argument to toggle -shell-escape.
        (local-shell-escape
         (if (equal current-prefix-arg '(4)) "-shell-escape" "")))

    (set (make-local-variable 'compile-command)
         (concat local-compiler " " local-shell-escape " " tex-compiler-options " " local-start-cmd " \"" local-master "\""))))


(defun tex-clean ()
  "Remove all TeX temporary files. This command should be safe,
but there is no warranty."
  (interactive)
  (hack-local-variables)
  (let* ((local-master (if (not masterfile) buffer-file-name masterfile)))
    ;; Concatate file name to list.
    (mapcar
     ;; Delete file if exist
     (lambda (argfile) (interactive)
       (if (not (and (file-exists-p argfile) (file-writable-p argfile)))
           (message "[%s] not found." argfile)
         (delete-file argfile)
         (message "[%s] deleted." argfile)))
     (mapcar
      ;; Concat file name with extensions.
      (lambda (arg) (interactive) (concat file arg))
      tex-extension-list))))

(defun tex-pdf-compress ()
  "Use `masterfile' variable as default value for `pdf-compress'."
  (interactive)
  (hack-local-variables)
  (let ((local-master (if (not masterfile) buffer-file-name masterfile)))
    (pdf-compress local-master)))

(defun tex-pdf-view ()
  "Use `masterfile' variable as default value for `pdf-view'."
  (interactive)
  (hack-local-variables)
  (let ((local-master (if (not masterfile) buffer-file-name masterfile)))
    (pdf-view local-master)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; TeX setup

(add-hook
 'tex-mode-hook
 (lambda ()
   (dolist (key '("\C-c\C-f" "\C-c\C-b"))
     (local-unset-key key))
   (set-face-attribute 'tex-verbatim nil :family "freemono")
   (set (make-local-variable 'compilation-scroll-output) t)
   (set (make-local-variable 'compilation-hide-window) t)
   (set (make-local-variable 'paragraph-start) "
")
   ;; (set (make-local-variable 'use-hard-newlines) t)
   (local-set-key (kbd "<f9>") 'tex-pdf-view)
   (tex-set-compiler)))

;; TODO: why is run-hooks needed for tex-mode only?
;; (run-hooks 'tex-mode-hook)

(provide 'mode-tex)