[emacs] minor changes

1 files changed, 101 insertions, 101 deletions

diff --git a/emacs/inits/24-latex.el b/emacs/inits/24-latex.el
index 4922cf1..4b9e908 100644
--- a/emacs/inits/24-latex.el
+++ b/emacs/inits/24-latex.el
@@ -1,4 +1,4 @@
-;; Time-stamp: <2023-07-15 19h45 CEST (anker)>
+;; Time-stamp: <2024-05-27 20h16 CEST (83a9252e)>
 
 (defvar latex-template-dir (expand-file-name "~/typeset/latex-templates"))
 (defun prompt-latex-file-template ()
@@ -7,17 +7,17 @@ interactively. If neither, prompt to insert from a template
 populated from the directory *latex-template-dir*"
   (interactive)
   (when (and (if (file-exists-p (buffer-file-name))
-         (called-interactively-p 'interactive)
-           t)
-         (yes-or-no-p "Insert template?"))
+                 (called-interactively-p 'interactive)
+               t)
+             (yes-or-no-p "Insert template?"))
     (let* ((tfiles (directory-files latex-template-dir nil "\\.tex"))
-       (template (completing-read "Select template: " tfiles nil t)))
+           (template (completing-read "Select template: " tfiles nil t)))
       (when template
-    (goto-char (point-min))
-    (insert-file-contents (concat latex-template-dir "/" template))
-    (search-forward "begin{document}")
-    (forward-line)
-    (save-buffer)))))
+        (goto-char (point-min))
+        (insert-file-contents (concat latex-template-dir "/" template))
+        (search-forward "begin{document}")
+        (forward-line)
+        (save-buffer)))))
 
 (use-package cdm-mode
   :load-path "~/.emacs.d/scripts/")
@@ -27,25 +27,25 @@ populated from the directory *latex-template-dir*"
 (use-package latex
   :ensure auctex
   :bind (:map LaTeX-mode-map
-          ("<" . LaTeX-insert-left-brace)
-          ;; ("|" . LaTeX-insert-left-brace)
-          ("'" . better-TeX-insert-single-quote)
-          ;; ("TAB" . LaTeX-indent-line)
-          ("M-TAB" . TeX-complete-symbol)
-          ("M-q" . unfill-paragraph)
-          ("C-c e" . LaTeX-environment)
-          ("C-c C-d" . TeX-view))
+              ("<" . LaTeX-insert-left-brace)
+              ;; ("|" . LaTeX-insert-left-brace)
+              ("'" . better-TeX-insert-single-quote)
+              ;; ("TAB" . LaTeX-indent-line)
+              ("M-TAB" . TeX-complete-symbol)
+              ("M-q" . unfill-paragraph)
+              ("C-c e" . LaTeX-environment)
+              ("C-c C-d" . TeX-view))
 
   :hook (LaTeX-mode . (lambda ()
-            (latex-setup-visual-aesthetics)
-            (latex-setup-text-environment)
-            (latex-setup-special-minor-modes)
-            (latex-setup-completions)
-            (prompt-latex-file-template)))
+                        (latex-setup-visual-aesthetics)
+                        (latex-setup-text-environment)
+                        (latex-setup-special-minor-modes)
+                        (latex-setup-completions)
+                        (prompt-latex-file-template)))
   :init
   (defun latex-setup-visual-aesthetics ()
     (interactive)
-    (variable-pitch-mode 1)
+    (variable-pitch-mode -1)
     (auto-fill-mode -1)
     (visual-line-mode)
     (display-line-numbers-mode))
@@ -76,37 +76,37 @@ populated from the directory *latex-template-dir*"
   (defun better-TeX-insert-single-quote ()
     (interactive)
     (let ((old-open TeX-open-quote)
-      (old-close TeX-close-quote))
+          (old-close TeX-close-quote))
       (unwind-protect (progn
-            (setq TeX-open-quote "`"
-                  TeX-close-quote "'")
-            (call-interactively 'TeX-insert-quote))
-    (setq TeX-open-quote old-open
-          TeX-close-quote old-close))))
+                        (setq TeX-open-quote "`"
+                              TeX-close-quote "'")
+                        (call-interactively 'TeX-insert-quote))
+        (setq TeX-open-quote old-open
+              TeX-close-quote old-close))))
 
   :config
   (setq TeX-debug-bad-boxes t
-    TeX-command-list '(("XeLaTeX" "xelatex %t"
-                TeX-run-TeX nil (latex-mode doctex-mode) :help "Run XeLaTeX")
-               ("TeX" "%(PDF)%(tex) %(file-line-error) %`%(extraopts) %S%(PDFout)%(mode)%' %t"
-                TeX-run-TeX nil (plain-tex-mode ams-tex-mode texinfo-mode) :help "Run plain TeX")
-               ("LaTeX" "%`%l%(mode)%' %T"
-                TeX-run-TeX nil (latex-mode doctex-mode) :help "Run LaTeX")
-               ("Biber" "biber %s %(output-dir)" TeX-run-Biber nil
-                (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode) :help "Run Biber")
-               ("BibTeX" "bibtex %s" TeX-run-BibTeX nil
-                (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode context-mode) :help "Run BibTeX")
-               ("View" "%V" TeX-run-discard-or-function t t :help "Run External Viewer")
-               ("View internally" "(find-file \"%o\")" TeX-run-function nil t :help "Run Viewer")
-               ("Spell" "(TeX-ispell-document \"\")" TeX-run-function nil t :help "Spell-check the document")
-               ("Clean" "TeX-clean" TeX-run-function nil t :help "Delete generated intermediate files")
-               ("Clean All" "(TeX-clean t)" TeX-run-function nil t :help "Delete generated intermediate and output files")
-               ("Other" "" TeX-run-command t t :help "Run an arbitrary command")))
+        TeX-command-list '(("XeLaTeX" "xelatex %t"
+                            TeX-run-TeX nil (latex-mode doctex-mode) :help "Run XeLaTeX")
+                           ("TeX" "%(PDF)%(tex) %(file-line-error) %`%(extraopts) %S%(PDFout)%(mode)%' %t"
+                            TeX-run-TeX nil (plain-tex-mode ams-tex-mode texinfo-mode) :help "Run plain TeX")
+                           ("LaTeX" "%`%l%(mode)%' %T"
+                            TeX-run-TeX nil (latex-mode doctex-mode) :help "Run LaTeX")
+                           ("Biber" "biber %s %(output-dir)" TeX-run-Biber nil
+                            (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode) :help "Run Biber")
+                           ("BibTeX" "bibtex %s" TeX-run-BibTeX nil
+                            (plain-tex-mode latex-mode doctex-mode ams-tex-mode texinfo-mode context-mode) :help "Run BibTeX")
+                           ("View" "%V" TeX-run-discard-or-function t t :help "Run External Viewer")
+                           ("View internally" "(find-file \"%o\")" TeX-run-function nil t :help "Run Viewer")
+                           ("Spell" "(TeX-ispell-document \"\")" TeX-run-function nil t :help "Spell-check the document")
+                           ("Clean" "TeX-clean" TeX-run-function nil t :help "Delete generated intermediate files")
+                           ("Clean All" "(TeX-clean t)" TeX-run-function nil t :help "Delete generated intermediate and output files")
+                           ("Other" "" TeX-run-command t t :help "Run an arbitrary command")))
 
   (setq TeX-electric-sub-and-superscript t
-    TeX-electric-math '("$" . "$")
-    TeX-electric-escape nil
-    LaTeX-electric-left-right-brace t)
+        TeX-electric-math '("$" . "$")
+        TeX-electric-escape nil
+        LaTeX-electric-left-right-brace t)
 
   ;; no idea why this is not a default ... ?
   (push '("<" . ">") TeX-braces-association)
@@ -114,13 +114,13 @@ populated from the directory *latex-template-dir*"
   (setq reftex-plug-into-AUCTeX t)
   ;; (setq-default TeX-master nil)
   (setq TeX-auto-save t
-    TeX-parse-self t
-    TeX-PDF-mode t
-    TeX-source-correlate-mode 'synctex
-    TeX-view-program-selection '(((output-dvi style-pstricks) "dvips and gv")
-                     (output-dvi "xdvi")
-                     (output-pdf "Zathura")
-                     (output-html "xdg-open")))
+        TeX-parse-self t
+        TeX-PDF-mode t
+        TeX-source-correlate-mode 'synctex
+        TeX-view-program-selection '(((output-dvi style-pstricks) "dvips and gv")
+                                     (output-dvi "xdvi")
+                                     (output-pdf "Zathura")
+                                     (output-html "xdg-open")))
 
   ;; for PDF tools
   ;; (add-hook 'TeX-after-compilation-finished-functions #'TeX-revert-document-buffer)
@@ -130,50 +130,50 @@ populated from the directory *latex-template-dir*"
 (use-package cdlatex
   :ensure t
   :bind (:map cdlatex-mode-map
-          ("(" . nil)
-          ("{" . nil)
-          ("[" . nil)
-          ("|" . nil)
-          ("<" . nil)
-          ("'" . nil)
-          ("TAB" . cdlatex-tab)
-          ;; ("C-c e" . cdlatex-environment)
-          ("~" . cdlatex-math-modify)
-          ("`" . cdlatex-math-symbol))
+              ("(" . nil)
+              ("{" . nil)
+              ("[" . nil)
+              ("|" . nil)
+              ("<" . nil)
+              ("'" . nil)
+              ("TAB" . cdlatex-tab)
+              ;; ("C-c e" . cdlatex-environment)
+              ("~" . cdlatex-math-modify)
+              ("`" . cdlatex-math-symbol))
   :init
   (setq cdlatex-math-modify-prefix ?~
-    cdlatex-math-symbol-prefix ?`
-    cdlatex-math-modify-alist '((?a "\\mathbb" nil t nil nil)
-                    (?c "\\mathcal" "\\textsc" t nil nil)
-                    (?v "\\texttt" "\\texttt" t nil nil)
-                    (?k "\\mathfrak" nil t nil nil)
-                    (?- "\\overline" nil t nil nil)
-                    (?_ "\\underline" nil t nil nil))
-    cdlatex-math-symbol-alist '((?^ ("\\widehat{?}" "\\hat{?}"))
-                    (?' ("^{\\prime}" "\\prime"))
-                    (?* ("\\times" "\\otimes" "\\star"))
-                    (?+ ("+" "\\oplus"))
-                    (?- ("\\dashv" "\\vdash" "\\setminus"))
-                    (?. ("\\circ" "\\sq" "\\cdot"))
-                    (?0 ("\\emptyset" "\\circ"))
-                    (?< ("\\leftarrow" "\\leftharpoonup" "\\xleftarrow"))
-                    (?> ("\\to" "\\rightharpoonup" "\\xrightarrow"))
-                    (?B ("\\bullet"))
-                    (?C ("\\widecheck{?}" "\\check{?}"))
-                    (?f ("\\varphi" "\\phi"))
-                    (?F ("\\Phi" "\\Varphi"))
-                    (?M ("\\begin{bsmallmatrix}?\\end{bsmallmatrix}"))
-                    (?P ("\\Prod{?}" "\\Pi" "\\partial"))
-                    (?S ("\\Sigma" "\\Sum{?}" "\\arcsin"))
-                    (?\"("^{\\prime\\prime}" "\\prime\\prime"))
-                    (?a ("\\alpha" "\\cap" "\\sqcap"))
-                    (?c ("\\cat{?}" "\\catn{?}"))
-                    (?e ("\\varepsilon" "\\epsilon" "\\exp{?}"))
-                    (?i ("\\iota" "\\in"))
-                    (?j ("{\\id^{h}}_{?}" "{\\id^{v}}_{?}"))
-                    (?r ("\\rho" "\\varrho" "\\restrict{?}"))
-                    (?u ("\\upsilon" "\\cup" "\\sqcup"))
-                    (?y ("\\psi" "\\Psi"))
-                    (?{ ("\\subseteq" "\\subsetneq"))
-                    (?} ("\\supseteq" "\\supsetneq"))
-                    )))
+        cdlatex-math-symbol-prefix ?`
+        cdlatex-math-modify-alist '((?a "\\mathbb" nil t nil nil)
+                                    (?c "\\mathcal" "\\textsc" t nil nil)
+                                    (?v "\\texttt" "\\texttt" t nil nil)
+                                    (?k "\\mathfrak" nil t nil nil)
+                                    (?- "\\overline" nil t nil nil)
+                                    (?_ "\\underline" nil t nil nil))
+        cdlatex-math-symbol-alist '((?^ ("\\widehat{?}" "\\hat{?}"))
+                                    (?' ("^{\\prime}" "\\prime"))
+                                    (?* ("\\times" "\\otimes" "\\star"))
+                                    (?+ ("+" "\\oplus"))
+                                    (?- ("\\dashv" "\\vdash" "\\setminus"))
+                                    (?. ("\\circ" "\\sq" "\\cdot"))
+                                    (?0 ("\\emptyset" "\\circ"))
+                                    (?< ("\\leftarrow" "\\leftharpoonup" "\\xleftarrow"))
+                                    (?> ("\\to" "\\rightharpoonup" "\\xrightarrow"))
+                                    (?B ("\\bullet"))
+                                    (?C ("\\widecheck{?}" "\\check{?}"))
+                                    (?f ("\\varphi" "\\phi"))
+                                    (?F ("\\Phi" "\\Varphi"))
+                                    (?M ("\\begin{bsmallmatrix}?\\end{bsmallmatrix}"))
+                                    (?P ("\\Prod{?}" "\\Pi" "\\partial"))
+                                    (?S ("\\Sigma" "\\Sum{?}" "\\arcsin"))
+                                    (?\"("^{\\prime\\prime}" "\\prime\\prime"))
+                                    (?a ("\\alpha" "\\cap" "\\sqcap"))
+                                    (?c ("\\cat{?}" "\\catn{?}"))
+                                    (?e ("\\varepsilon" "\\epsilon" "\\exp{?}"))
+                                    (?i ("\\iota" "\\in"))
+                                    (?j ("{\\id^{h}}_{?}" "{\\id^{v}}_{?}"))
+                                    (?r ("\\rho" "\\varrho" "\\restrict{?}"))
+                                    (?u ("\\upsilon" "\\cup" "\\sqcup"))
+                                    (?y ("\\psi" "\\Psi"))
+                                    (?{ ("\\subseteq" "\\subsetneq"))
+                                    (?} ("\\supseteq" "\\supsetneq"))
+                                    )))