emacs: update packages, add delight, and :delight some modes

for more cleanliness and consistency in mode-line

1 files changed, 39 insertions, 10 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index f08e8c5..d6811e7 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -164,6 +164,8 @@
 (setq use-package-always-defer t)
 (require 'bind-key)
 
+(use-package delight)
+
 ;; for browsing the Emacsmirror package database
 (comment
   (use-package epkg
@@ -650,6 +652,7 @@ For disabling the behaviour for certain buffers and/or modes."
 
 (use-package ivy
   :defer 0.3
+  :delight ;; " 🙒"
   :bind
   (:map ivy-minibuffer-map
    ([escape] . keyboard-escape-quit)
@@ -677,6 +680,7 @@ For disabling the behaviour for certain buffers and/or modes."
 
 (use-package counsel
   :after ivy
+  :delight
   :bind (([remap execute-extended-command] . counsel-M-x)
          ([remap find-file]                . counsel-find-file)
          ("C-c x"                          . counsel-M-x)
@@ -817,6 +821,7 @@ For disabling the behaviour for certain buffers and/or modes."
 
 (use-feature outline
   :hook (prog-mode . outline-minor-mode)
+  :delight (outline-minor-mode " outl")
   :bind
   (:map
    outline-minor-mode-map
@@ -917,6 +922,7 @@ For disabling the behaviour for certain buffers and/or modes."
 ;; display Lisp objects at point in the echo area
 (use-feature eldoc
   :when (version< "25" emacs-version)
+  :delight " eldoc"
   :config (global-eldoc-mode))
 
 ;; highlight matching parens
@@ -925,6 +931,7 @@ For disabling the behaviour for certain buffers and/or modes."
   :config (show-paren-mode))
 
 (use-feature simple
+  :delight (auto-fill-function " fill")
   :config (column-number-mode))
 
 ;; save minibuffer history
@@ -943,8 +950,7 @@ For disabling the behaviour for certain buffers and/or modes."
   (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
 
 (use-feature text-mode
-  :hook ((text-mode . indicate-buffer-boundaries-left)
-         (text-mode . abbrev-mode)))
+  :hook (text-mode . indicate-buffer-boundaries-left))
 
 (use-feature conf-mode
   :mode "\\.*rc$")
@@ -954,6 +960,7 @@ For disabling the behaviour for certain buffers and/or modes."
 
 (use-package company
   :defer 0.6
+  :delight " company"
   :bind
   (:map company-active-map
         ([tab]    . company-complete-common-or-cycle)
@@ -979,7 +986,11 @@ For disabling the behaviour for certain buffers and/or modes."
   (setq flycheck-emacs-lisp-load-path 'inherit)
 
   ;; Only flycheck when I actually save the buffer
-  (setq flycheck-check-syntax-automatically '(mode-enabled save)))
+  (setq flycheck-check-syntax-automatically '(mode-enabled save))
+  :custom (flycheck-mode-line-prefix "flyc"))
+
+(use-feature flyspell
+  :delight " flysp")
 
 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
 (use-package ispell
@@ -1007,17 +1018,26 @@ For disabling the behaviour for certain buffers and/or modes."
   (advice-add #'ispell-parse-output :filter-args
               #'endless/replace-quote))
 
+(use-feature abbrev
+  :delight " abbr"
+  :hook (text-mode . abbrev-mode))
+
 
 ;;; Programming modes
 
 (use-feature lisp-mode
   :config
-  (add-hook 'emacs-lisp-mode-hook 'outline-minor-mode)
-  (add-hook 'emacs-lisp-mode-hook 'reveal-mode)
   (defun indent-spaces-mode ()
     (setq indent-tabs-mode nil))
   (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
 
+(use-feature reveal
+  :delight (reveal-mode " reveal")
+  :hook (emacs-lisp-mode . reveal-mode))
+
+(use-feature elisp-mode
+  :delight (emacs-lisp-mode "Elisp" :major))
+
 (use-package alloy-mode
   :straight (:host github :repo "dwwmmn/alloy-mode")
   :mode "\\.als\\'"
@@ -1225,6 +1245,7 @@ For disabling the behaviour for certain buffers and/or modes."
 
 (use-package which-key
   :defer 0.4
+  :delight
   :config
   (which-key-add-key-based-replacements
     ;; prefixes for global prefixes and minor modes
@@ -1312,7 +1333,9 @@ For disabling the behaviour for certain buffers and/or modes."
                    :after #'my-projectile-invalidate-cache)
        (advice-add 'magit-branch-and-checkout
                    :after #'my-projectile-invalidate-cache)))
-  :custom (projectile-completion-system 'ivy))
+  :custom
+  (projectile-completion-system 'ivy)
+  (projectile-mode-line-prefix " proj"))
 
 (use-package helpful
   :defer 0.6
@@ -1368,9 +1391,10 @@ For disabling the behaviour for certain buffers and/or modes."
 ;; easily type pretty quotes & other typography, like ‘’“”-–—«»‹›
 (use-package typo
   :defer 0.5
+  :delight " typo"
   :config
   (typo-global-mode 1)
-  :hook (text-mode . typo-mode))
+  :hook ((text-mode erc-mode) . typo-mode))
 
 ;; highlight TODOs in buffers
 (use-package hl-todo
@@ -1452,6 +1476,7 @@ For disabling the behaviour for certain buffers and/or modes."
 
 (use-package page-break-lines
   :defer 0.5
+  :delight " pgln"
   :config
   (global-page-break-lines-mode))
 
@@ -1857,9 +1882,13 @@ https://csclub.uwaterloo.ca/~abandali/")
   ;; (message-header-cc      ((t (:foreground "#333" :weight normal))))
   )
 
-(with-eval-after-load 'mml-sec
-  (setq mml-secure-openpgp-encrypt-to-self t
-        mml-secure-openpgp-sign-with-sender t))
+(use-feature mml
+  :delight " mml")
+
+(use-feature mml-sec
+  :custom
+  (mml-secure-openpgp-encrypt-to-self t)
+  (mml-secure-openpgp-sign-with-sender t))
 
 (use-feature footnote
   :after message