From b5f4d6a3ce61e8f3e712a17831bfd81977e0eb45 Mon Sep 17 00:00:00 2001 From: Kévin Le Gouguec Date: Thu, 9 May 2019 20:34:12 +0200 Subject: Use symbols rather than strings to give packages to delight MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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… --- .emacs | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) (limited to '.emacs') diff --git a/.emacs b/.emacs index b7c7e83..3ccc586 100644 --- 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 () -- cgit v1.2.3