diff options
| -rw-r--r-- | .emacs | 27 |
1 files changed, 13 insertions, 14 deletions
@@ -55,20 +55,19 @@ (rg-enable-default-bindings) ; Uses the C-c s prefix. -;; TODO: define my own input method, instead of overloading TeX. -;; Look at unicode-math-input for inspiration, since according to -;; (elisp)Input Methods: "How to define input methods is not yet -;; documented". -(with-temp-buffer - (activate-input-method "TeX") - (let ((quail-current-package (assoc "TeX" quail-package-alist))) - (quail-define-rules ((append . t)) - ("~~" ?≈) ("~=" ?≊) - ;; would like to add ("^=" ?≙), but "^=" already exists - ("..." ?…) - ("-->" ?→) ("-/>" ?↛) ("==>" ?⇒) ("=/>" ?⇏) - ("<--" ?←) ("</-" ?↚) ("<==" ?⇐) ("</=" ?⇍) - ("<->" ?↔) ("<=>" ?⇔)))) +;; Hopefully these will be easier to remember than TeX commands: + +(require 'quail) +(quail-define-package "my/input-method" "symbols" "𝒰" t + "Input arbitrary symbols with other arbitrary symbols.") + +(mapc (lambda (item) + (quail-defrule (car item) (cdr item) "my/input-method")) + '(("~~" ?≈) ("~=" ?≊) ("^=" ?≙) + ("..." ?…) + ("-->" ?→) ("-/>" ?↛) ("==>" ?⇒) ("=/>" ?⇏) + ("<--" ?←) ("</-" ?↚) ("<==" ?⇐) ("</=" ?⇍) + ("<->" ?↔) ("<=>" ?⇔))) ;; What's life without a little risk? (setq disabled-command-function nil) |