init.el

@@ -276,7 +276,9 @@
                                            :key #'cl-first)))))
 
 (use-package quail
-  :init (setq default-input-method "TeX"))
+  :init (setq default-input-method "TeX")
+  :config (add-hook 'input-method-activate-hook
+                    #'db/add-symbols-to-TeX-input-method))
 
 (use-package savehist
   :commands (savehist-mode)
@@ -372,6 +374,7 @@
              db/sort-nsm-permanent-settings
              endless/colorize-compilation
              db/turn-off-local-electric-pair-mode
+             db/add-symbols-to-TeX-input-method
              db/two-monitors-xrandr
              db/one-monitor-xrandr
              db/pretty-print-xml
@@ -1427,7 +1430,10 @@ Note that this workaround is incomplete, as explained in this comment."
 (use-package git-commit
   :commands (global-git-commit-mode)
   :init (setq git-commit-style-convention-checks '(non-empty-second-line
-                                                   overlong-summary-line)))
+                                                   overlong-summary-line))
+  :config (add-hook 'git-commit-setup-hook
+                    #'(lambda ()
+                        (setq fill-column 72))))
 
 (use-package highlight-indentation
   :commands highlight-indentation-mode)

site-lisp/db-utils.el

@@ -789,6 +789,41 @@ number of bytes has been inserted."
       (should (equal '(120 4194204 4194235 4194260)
                      (string-to-list (buffer-string)))))))
 
+
+;;; Extend Input Methods
+
+(defun db/add-symbols-to-TeX-input-method ()
+  "Add some new symbols to TeX input method."
+  (when (string= current-input-method "TeX")
+    (let ((quail-current-package (assoc "TeX" quail-package-alist)))
+      (quail-define-rules
+       ((append . t))
+       ("\\land" ?∧)
+       ("\\lor" ?∨)
+       ("\\lnot" ?¬)
+       ("\\implies" ?⇒)
+       ("\\powerset" ?𝔓)
+       ("\\mathbbK" ?𝕂)
+       ("\\mathbbR" ?ℝ)
+       ("\\mathbbN" ?ℕ)
+       ("\\mathbbZ" ?ℤ)
+       ("\\mathbbP" ?ℙ)
+       ("\\mathcalA" ?𝒜)
+       ("\\mathcalB" ?ℬ)
+       ("\\mathcalC" ?𝒞)
+       ("\\mathcalD" ?𝒟)
+       ("\\mathcalE" ?ℰ)
+       ("\\mathcalH" ?ℋ)
+       ("\\mathcalI" ?ℐ)
+       ("\\mathcalJ" ?𝒥)
+       ("\\mathcalK" ?𝒦)
+       ("\\mathcalL" ?ℒ)
+       ("\\mathcalM" ?ℳ)
+       ("\\mathcalR" ?ℛ)
+       ("\\mathcalQ" ?𝒬)
+       ("\\mathcalS" ?𝒮)
+       ("\\mathfrakP" ?𝔓)))))
+
 
 ;;; Wrappers for external applications