Whitespace

global.org

@@ -666,7 +666,6 @@
     #+BEGIN_SRC emacs-lisp
      (load "auctex.el" nil t t)
      (require 'reftex)
-     (add-hook 'LaTeX-mode-hook 'turn-on-reftex)
     #+END_SRC
 *** Set default TeX options
     #+BEGIN_SRC emacs-lisp
@@ -763,9 +762,7 @@
       (defun my-LaTeX-mode-dollars ()
         (font-lock-add-keywords
          nil
-	`((,(rx "$") (0 'success t)))
-	t))
-     (add-hook 'LaTeX-mode-hook 'my-LaTeX-mode-dollars)
+         `((,(rx "$") (0 'success t))) t))
 
       (defun dabbrev-expand-helper ()
         (interactive)
@@ -773,6 +770,10 @@
 
       (add-hook 'LaTeX-mode-hook
             (lambda ()
+          (turn-on-reftex)
+          (setq prettify-symbols-alist nil)
+          (add-to-list 'prettify-symbols-alist '(" ⊂ " . (? (Br . Bl) ? (Br . Bl) ?)))
+          (my-LaTeX-mode-dollars)
           (turn-on-auto-fill)
           (subword-mode)
           (TeX-fold-mode 1)
@@ -794,31 +795,33 @@
           (define-key LaTeX-mode-map (kbd "C-M-<return>")
             (lambda (arg)
               (interactive "P")
-		     (if arg (LaTeX-insert-environment "align")
+              (if arg
+                  (LaTeX-insert-environment "align")
                 (LaTeX-insert-environment "align*"))))
 
-		 ;; EXPERIMENTAL: try C-RETURN → DEL
-		 ;; (define-key LaTeX-mode-map (kbd "S-SPC") 'backward-delete-char-untabify) ;;(lambda() (interactive) (flash-hline)));;(message "Use C-SPC")));;'backward-delete-char-untabify)
-
-		 ;; EXPERIMENTAL: unbind return - NOTE it is important to unbind <return> and not RET. If we
-		 ;; unbind RET then C-m won't work either.
+          ;; EXPERIMENTAL: unbind return - NOTE it is important to unbind
+          ;; <return> and not RET. If we unbind RET then C-m won't work
+          ;; either.
           (define-key LaTeX-mode-map (kbd "<return>") (lambda() (interactive) (insert "\\")))
           (define-key LaTeX-mode-map (kbd "S-<return>") (lambda() (interactive) (insert "|")))
-		 ;;(define-key LaTeX-mode-map (kbd "C-SPC") (lambda() (interactive) (insert "\\")))
+
           (define-key LaTeX-mode-map (kbd "M-S-SPC") 'TeX-insert-braces)
-		 (define-key LaTeX-mode-map (kbd "s-SPC") (lambda() (interactive) (insert "~")))
+          ;; (define-key LaTeX-mode-map (kbd "s-SPC") (lambda() (interactive) (insert "~")))
 
-		 ;; why this got dropped?
+          ;; why did this get dropped?
           (define-key LaTeX-mode-map (kbd "C-c C-.") 'LaTeX-mark-environment)
-
-		 ;; Go with strict mode
-     ;	    (define-key LaTeX-mode-map (kbd "_") (lambda() (interactive) (flash-hline) (message "Use C-c C-k")))
+          #+END_SRC
+          Dealing with bad habits and sub|superscripts.  Previous
+          bindings were ~M-_~ and ~M-^~ but they turned out to be too
+          typo-prone.
+          #+BEGIN_SRC emacs-lisp
           (define-key LaTeX-mode-map (kbd "M-_") (lambda() (interactive) (flash-hline) (message "Use C-c C-k")))
-		 (define-key LaTeX-mode-map (kbd "C-c C-k") (lambda (r-begin r-end) (interactive "r") (add-delimiter "_{" "}" r-begin r-end)))
-     ;	    (define-key LaTeX-mode-map (kbd "^") (lambda() (interactive) (flash-hline) (message "Use C-c C-i")))
           (define-key LaTeX-mode-map (kbd "M-^") (lambda() (interactive) (flash-hline) (message "Use C-c C-i")))
+          (define-key LaTeX-mode-map (kbd "C-c C-k") (lambda (r-begin r-end) (interactive "r") (add-delimiter "_{" "}" r-begin r-end)))
           (define-key LaTeX-mode-map (kbd "C-c C-i") (lambda (r-begin r-end) (interactive "r") (add-delimiter "^{" "}" r-begin r-end)))
+          #+END_SRC
 
+          #+BEGIN_SRC emacs-lisp
           (define-key LaTeX-mode-map (kbd "M-|") (lambda (r-begin r-end) (interactive "r") (add-delimiter "|" "|" r-begin r-end)))
           (define-key LaTeX-mode-map (kbd "M-,") (lambda (r-begin r-end) (interactive "r") (add-delimiter ", " ", " r-begin r-end)))
           (define-key LaTeX-mode-map (kbd "M-\"") (lambda (r-begin r-end) (interactive "r") (add-delimiter "“" "”" r-begin r-end)))
@@ -830,6 +833,7 @@
               (if arg
               (add-delimiter "\\todo[inline]{" "}{}" r-begin r-end)
                 (add-delimiter "\\todo{" "}{}" r-begin r-end))))
+
           (define-key LaTeX-mode-map (kbd "C-M-d") 'kill-sexp)
           (define-key LaTeX-mode-map (kbd "C-M-i") 'down-list) ;; -i stands for /in/
           (define-key LaTeX-mode-map (kbd "C-M-o") 'up-list)	  ;; -o stands for /out/
@@ -856,7 +860,7 @@
           (define-key LaTeX-mode-map (kbd "C-v") 'forward-paragraph);(lambda() (interactive) (message "Command disabled")))
           (define-key LaTeX-mode-map (kbd "M-v") 'backward-paragraph)
           (define-key LaTeX-mode-map (kbd "C-S-v") 'backward-paragraph)
-     ; (lambda() (interactive) (message "Command disabled")))
+
           (define-key LaTeX-mode-map (kbd "<next>") (lambda() (interactive) (message "Command disabled")))
           (define-key LaTeX-mode-map (kbd "<prior>") (lambda() (interactive) (message "Command disabled")))
           ))
@@ -964,12 +968,13 @@
       (run-hook-with-args 'LaTeX-after-insert-env-hooks
                   environment env-start env-end)))
 
-
       (load "latex-compile-filters.el")
-
-     ;; * add bibretrieve
+   #+END_SRC
+   Finally load ~bibretrieve~
+   #+BEGIN_SRC emacs-lisp
      (byte-recompile-directory "~/.emacs.d/bibretrieve" 0)
      (load "bibretrieve")
+     (setq bibretrieve-backends '(("mrl" . 8) ("arxiv" . 5)))
    #+END_SRC
 ** TODO C and C++
 *** Hooks