diff options
| author | Craig Jennings <c@cjennings.net> | 2024-04-26 14:46:50 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2024-04-26 14:46:50 -0500 |
| commit | dee5f3b92154f40ccc78e2db3a5041956ff18489 (patch) | |
| tree | 6068c4a37e81f55fdb557c334d1a945d291aebf8 | |
| parent | c1abfb5671407a7654910bc4f4d55f9700c13fa9 (diff) | |
making templates case insensitive and adding quote icons
| -rw-r--r-- | modules/text-config.el | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/modules/text-config.el b/modules/text-config.el index 221ca71b..9db626ed 100644 --- a/modules/text-config.el +++ b/modules/text-config.el @@ -67,11 +67,21 @@ ;; replacing the word l-a-m-b-d-a with a symbol, just because (setq-default prettify-symbols-alist - '(("#+begin_src" . "λ") - ("#+BEGIN_SRC" . "λ") - ("#+end_src" . "λ") - ("#+END_SRC" . "λ") - ("lambda" . "λ"))) + (let ((mapping (lambda (pair) + (let ((k (car pair)) + (v (cdr pair))) + (list (cons (downcase k) v) + (cons (upcase k) v)))))) + (apply #'append + (mapcar mapping + '( + ("#+begin_src" . "λ") + ("#+begin_src" . "λ") + ("#+end_src" . "λ") + ("#+begin_quote" . " ") + ("#+end_quote" . "") + ("lambda" . "λ")))))) + (add-hook 'prog-mode-hook 'turn-on-prettify-symbols-mode) (add-hook 'org-mode-hook 'turn-on-prettify-symbols-mode) |