mk_latex.el

;;; mk_latex.el --- Custom config for LaTeX

;;; Commentary:

;;

;; TODO:

;; Write a function to do reverse-sync without the mouse using
;; pdftools. I could write a bash script and call it with
;; async-shell-command.

;;; Code:

;; Add a hack to load AUCTeX
(add-hook 'latex-mode-hook (lambda ()
			     (LaTeX-mode)))

(add-hook 'LaTeX-mode-hook
	  (lambda ()
	    (add-to-list
	     'TeX-macro-global "~/texmf/tex/latex/") ; specify location TeX style files
	    (LaTeX-math-mode 1)
	    (outline-minor-mode 1)
	    (flyspell-mode 1)
	    (mk/enable-tex-backends)
	    (visual-fill-column-mode 1)))

(setq
 TeX-newline-function 'reindent-then-newline-and-indent
 TeX-auto-save t  ;; enable parse on save
 TeX-parse-self t ;; enable parse on load
 TeX-master t	  ;; don't ask for a master file
 )


;; Enable LSP
(require 'lsp-latex)

(add-hook 'LaTeX-mode-hook
	  (lambda ()
	    (lsp-deferred)
	    (breadcrumb-local-mode -1)))

(add-hook 'bibtex-mode-hook 'lsp-deferred)


;; ---------
;; fold mode
;; ---------
(add-hook 'LaTeX-mode-hook (lambda ()
			     (TeX-fold-mode 1)))


;; ======
;; output
;; ======
(add-hook 'TeX-after-compilation-finished-functions #'TeX-revert-document-buffer)
;; revert the PDF-buffer only after the TeX compilation has finished

(setq TeX-save-query nil ;; autosave before compiling
      TeX-show-compilation nil
      TeX-PDF-mode t)


;; ---------------
;; viewer programs
;; ---------------
(setq TeX-view-program-selection '((output-pdf "Okular"))) ; "PDF Tools"

(setq
 TeX-source-correlate-mode t
 TeX-source-specials-mode t)
;; TeX-source-correlate-mode toggles support for forward/inverse
;; search

;; -------
;; latexmk
;; -------
(add-hook 'LaTeX-mode-hook (lambda ()
			     (add-to-list
			      'TeX-command-list
			      '("mk" "latexmk %s" TeX-run-TeX nil t
				:help "Run Latexmk on file"))))

;; ======
;; macros
;; ======

;; ------------------
;; sectioning command
;; ------------------
(setq LaTeX-section-hook
      '(LaTeX-section-heading
	LaTeX-section-title
	;; LaTeX-section-toc
	LaTeX-section-section
	LaTeX-section-label))

;; ======
;; quotes
;; ======

;; wrap active region in double quotes (from EmacsWiki)
(defadvice TeX-insert-quote (around wrap-region activate)
  (cond
   (mark-active
    (let ((skeleton-end-newline nil))
      (skeleton-insert `(nil ,TeX-open-quote _ ,TeX-close-quote) -1)))
   ((looking-at (regexp-opt (list TeX-open-quote TeX-close-quote)))
    (forward-char (length TeX-open-quote)))
   (t
    ad-do-it)))
(put 'TeX-insert-quote 'delete-selection nil)

;; wrap active region with single quotes (from EmacsWiki)
(defun TeX-insert-single-quote (arg)
  (interactive "p")
  (cond
   (mark-active
    (let ((skeleton-end-newline nil))
      (skeleton-insert
       `(nil ?` _ ?') -1)))
   ((or (looking-at "\\<")
	(looking-back "^\\|\\s-\\|`"))
    (insert "`"))
   (t
    (self-insert-command arg))))

(add-hook 'LaTeX-mode-hook
	  (lambda ()
	    (local-set-key "'" 'TeX-insert-single-quote)))


;; ======
;; RefTeX
;; ======
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)

(setq reftex-plug-into-AUCTeX t)	; integrate RefTeX with AUCTeX
(setq reftex-cite-format 'natbib)  	; natbib

(setq reftex-default-bibliography
      (quote
       ("~/Documents/mydocs/tex-configs/references/dissert.bib"
	"~/Documents/mydocs/tex-configs/references/logic.bib")))

;; So that RefTeX also recognizes \addbibresource. Note that you
;; can't use $HOME in path for \addbibresource but that "~"
;; works.
;; (setq reftex-bibliography-commands '("bibliography" "nobibliography" "addbibresource"))



(defun my-reftex-toc ()
  "Reloads toc."
  (interactive)
  (reftex-toc)
  (reftex-toc-rescan))

;; (setq reftex-toc-keep-other-windows t
;;       reftex-toc-split-windows-horizontally nil)

;; ===========
;; helm-bibtex
;; ===========
(autoload 'helm-bibtex "helm-bibtex" "" t)

(with-eval-after-load 'helm-bibtex
  (helm-delete-action-from-source "Insert citation" helm-source-bibtex)
  (helm-add-action-to-source "Insert citation" 'helm-bibtex-insert-citation helm-source-bibtex 0))

(setq bibtex-completion-bibliography
      '("~/Documents/mydocs/tex-configs/references/logic.bib"
	"~/Documents/mydocs/tex-configs/references/dissert.bib"
	"~/Documents/mydocs/tex-configs/references/evol.bib")
      bibtex-completion-cite-default-as-initial-input t
      bibtex-completion-cite-prompt-for-optional-arguments nil
      bibtex-completion-cite-commands '("citep" "citet"))

;; (setq bibtex-completion-cite-default-command "citet")


(defun mk/bibtex-completion-format-citation-for-org (keys)
  "Format bibtex KEYS in 'org-mode' buffers."
  (s-join ", " (cl-loop
                for key in keys
                for entry = (bibtex-completion-get-entry key)
                for author = (bibtex-completion-shorten-authors
                              (or (bibtex-completion-get-value "author" entry)
                                  (bibtex-completion-get-value "editor" entry)))
                for year = (bibtex-completion-get-value "year" entry)
		for title = (bibtex-completion-get-value "title" entry)
		collect (format "[[bib:%s][%s (%s) %s]]" key author year title))))

;; check the function bibtex-completion-format-citation-cite for ideas

(setq bibtex-completion-format-citation-functions
      '((org-mode . mk/bibtex-completion-format-citation-for-org)
	(latex-mode . bibtex-completion-format-citation-cite)
	(markdown-mode . bibtex-completion-format-citation-pandoc-citeproc)
	(default . bibtex-completion-format-citation-default)))

(setq bibtex-completion-pdf-field "File")

;; ====
;; Math
;; ====

;; automatically insert opening and closing symbols for inline eqn
(setq TeX-electric-math (cons "$" "$")
      TeX-electric-sub-and-superscript 1)

;; -----------
;; math-abbrev
;; -----------
;; (customize-set-variable 'LaTeX-math-abbrev-prefix (kbd ""))

(defun mk/LaTeX-leftright (charopen charclose)
  "Insert CHAROPEN and CHARCLOSE, and place the cursor in the middle."
  (interactive)
  (insert charopen)
  (push-mark)
  (insert charclose)
  (exchange-point-and-mark))

;; FIXME: For some reason the keybindings below are not working ; 
(setq LaTeX-math-list
      '((?8 "infty" "Misc Symbol" 8734)
	("<" (lambda ()(interactive)(mk/LaTeX-leftright "\\langle " "\\rangle")) "Angled brackets" nil)
	("(" (lambda ()(interactive)(mk/LaTeX-leftright "\\left( " "\\right)")) "" nil))) ;it was langle originally


;; -------
;; Preview
;; -------
(setq preview-auto-cache-preamble t
      preview-scale-function 1 ; preview-scale-from-face
      preview-preserve-indentation nil)

(with-eval-after-load 'preview
  (setq preview-default-option-list
	(seq-difference preview-default-option-list '("sections" "footnotes"))))

;; Other vars:
;; - preview-inner-environments: environments NOT to be previewed on their own
;; - preview-image-type: 'dvipng'

;; (setq TeX-fold-preserve-comments t)
;; ;; Foldable items in your comments are not folded

;; (setq TeX-fold-env-spec-list
;;       '(("[comment]" ("comment"))))
;; ;; Environments taken into consideration in fold mode

;; (setq TeX-fold-macro-spec-list
;;       '(("[f]" ("footnote"))
;; 	("[c]" ("cite" "citet" "citep" "citeyearpar"))
;; 	("[l]" ("label"))
;; 	("[r]" ("ref" "pageref" "eqref"))
;; 	("[1]:||*" ("item"))
;; 	("..." ("dots"))
;; 	(1 ("part" "chapter" "section" "subsection" "subsubsection" "paragraph" "subparagraph" "part*" "chapter*" "section*" "subsection*" "subsubsection*" "paragraph*" "subparagraph*" "emph" "textit" "textsl" "textmd" "textrm" "textsf" "texttt" "textbf" "textsc" "textup"))))
;; ;; Macros taken into consideration in fold mode


;; -----------
;; Custom face
;; -----------
;; (setq font-latex-match-reference-keywords
;;       '(("citep" "[{")
;; 	("citet" "[{")))

;; ---------------
;; New evironments
;; ---------------
;; (add-hook 'LaTeX-mode-hook
;;           (lambda ()
;;             (LaTeX-add-environments
;; 	     '("Verbatim")
;; 	     '("align*")
;; 	     '("SideBySideExample")	;; from fvrb-ex package
;; 	     '("Example")))		;; 

;; ----------
;; New macros
;; ----------
;; (add-hook 'LaTeX-mode-hook
;;           (lambda ()
;;             (TeX-add-symbols '("DP" 1))))

;; (setq font-latex-user-keyword-classes
;;       '(("definitions" (("DP" "{"))
;; 	 (:weight bold :foreground "chocolate1") command)))




(provide 'mk_latex)
;;; mk_latex.el ends here