diff options
Diffstat (limited to '.config')
| -rw-r--r-- | .config/emacs/init.el | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 51ee017..f056b69 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -379,20 +379,14 @@ list and require no escaping." ;;; Lighters. -(defun my/symbol-as-emoji (c) - ;; By default, Emacs uses color fonts for characters from (1) the - ;; 'emoji script (2) the 'symbol script, when followed by VS-16. - (string c ?\N{VARIATION SELECTOR-16})) - ;; So long, Will Mengarini. (delight 'abbrev-mode nil 'abbrev) (delight 'auto-fill-function "โ" t) (delight 'auto-revert-mode "โณ" 'autorevert) (delight 'auto-revert-tail-mode "โค" 'autorevert) (delight 'footnote-mode "ยน" 'footnote) -(delight 'flyspell-mode (propertize (my/symbol-as-emoji ?๐) - 'face 'flyspell-incorrect) - 'flyspell) +(delight + 'flyspell-mode (propertize "๐๏ธ" 'face 'flyspell-incorrect) 'flyspell) (delight 'hi-lock-mode nil 'hi-lock) (delight 'hs-minor-mode "โฆ" 'hideshow) (delight 'mml-mode "๐ง" 'mml) @@ -408,13 +402,13 @@ list and require no escaping." (old-props (text-properties-at 0 (car indicator))) (face '(:inverse-video t :inherit compilation-mode-line-run)) (new-props (append `(face ,face) old-props)) - (icon (my/symbol-as-emoji ?โ))) + (icon "โ๏ธ")) (setcar indicator (concat (apply #'propertize icon new-props) " "))) (setq eglot-menu-string "๐ฆป") (with-eval-after-load 'flymake - (let ((indicator (propertize (my/symbol-as-emoji ?โ) 'face 'flymake-error))) + (let ((indicator (propertize "โ๏ธ" 'face 'flymake-error))) ;; Prefer customizing the string instead delight'ing, as flymake ;; slaps a bunch of helpful properties on top of the lighter, ;; which delight would strip. |