commit b5f4d6a3ce61e8f3e712a17831bfd81977e0eb45 parent dbe5e392da3abd5d8651dfd5f92b30b8850b1e7b Author: Kévin Le Gouguec <kevin.legouguec@gmail.com> Date: Thu, 9 May 2019 20:34:12 +0200 Use symbols rather than strings to give packages to delight Would be neat if the constant face could be applied to this last argument, just like it is highlighted in require and provide statements. Alas, those are covered by font-lock rules in lisp-mode.el⦠Diffstat:
| M | .emacs | | | 36 | ++++++++++++++++++------------------ |
1 file changed, 18 insertions(+), 18 deletions(-)
diff --git a/.emacs b/.emacs @@ -100,28 +100,28 @@ ;; Online packages configuration ;; So long, Will Mengarini. -(delight 'abbrev-mode nil "abbrev") +(delight 'abbrev-mode nil 'abbrev) (delight 'auto-fill-function "β" t) -(delight 'auto-revert-mode "β³" "autorevert") -(delight 'auto-revert-tail-mode "β€" "autorevert") -(delight 'compilation-in-progress "β" "compile") -(delight 'eldoc-mode "π" "eldoc") -(delight 'footnote-mode "ΒΉ" "footnote") -(delight 'flyspell-mode (propertize "π" 'face 'flyspell-incorrect) "flyspell") -(delight 'hi-lock-mode nil "hi-lock") -(delight 'hs-minor-mode "β¦" "hideshow") -(delight 'isearch-mode "π" "isearch") -(delight 'org-indent-mode "Β»" "org-indent") -(delight 'magit-blame-mode "π" "magit-blame") -(delight 'mml-mode "π" "mml") -(delight 'page-break-lines-mode nil "page-break-lines") -(delight 'scroll-lock-mode "π" "scroll-lock") +(delight 'auto-revert-mode "β³" 'autorevert) +(delight 'auto-revert-tail-mode "β€" 'autorevert) +(delight 'compilation-in-progress "β" 'compile) +(delight 'eldoc-mode "π" 'eldoc) +(delight 'footnote-mode "ΒΉ" 'footnote) +(delight 'flyspell-mode (propertize "π" 'face 'flyspell-incorrect) 'flyspell) +(delight 'hi-lock-mode nil 'hi-lock) +(delight 'hs-minor-mode "β¦" 'hideshow) +(delight 'isearch-mode "π" 'isearch) +(delight 'org-indent-mode "Β»" 'org-indent) +(delight 'magit-blame-mode "π" 'magit-blame) +(delight 'mml-mode "π" 'mml) +(delight 'page-break-lines-mode nil 'page-break-lines) +(delight 'scroll-lock-mode "π" 'scroll-lock) (delight 'text-scale-mode '(:eval (if (>= text-scale-mode-amount 0) "π" "π")) - "face-remap") + 'face-remap) (delight 'visual-line-mode "β€Έ" t) -(delight 'whitespace-mode nil "whitespace") -(delight 'with-editor-mode "βΈ" "with-editor") +(delight 'whitespace-mode nil 'whitespace) +(delight 'with-editor-mode "βΈ" 'with-editor) ;; TODO: Narrow (β, βΆ) (defun my/magit-mode-hook ()