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

[~bandali/configs] / .emacs.d / init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index d135772..d6811e7 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -145,11 +145,9 @@
 (defun a/reload-init ()
   "Reload init.el."
   (interactive)
-  (straight-transaction
-    (straight-mark-transaction-as-init)
-    (setq a/file-name-handler-alist file-name-handler-alist)
-    (load user-init-file)
-    (a/post-init)))
+  (setq a/file-name-handler-alist file-name-handler-alist)
+  (load user-init-file nil 'nomessage)
+  (a/post-init))
 
 ;; use-package
 (straight-use-package 'use-package)
@@ -166,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
@@ -652,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)
@@ -679,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)
@@ -793,6 +795,7 @@ For disabling the behaviour for certain buffers and/or modes."
         (mode . scheme-mode)
         (mode . haskell-mode)
         (mode . lean-mode)
+        (mode . go-mode)
         (mode . alloy-mode)))
       ("tex"
        (or
@@ -818,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
@@ -918,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
@@ -926,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
@@ -944,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$")
@@ -955,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)
@@ -980,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
@@ -1008,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))
+
 \f
 ;;; 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\\'"
@@ -1174,6 +1193,8 @@ For disabling the behaviour for certain buffers and/or modes."
     :custom
     (font-latex-fontify-sectioning 'color)))
 
+(use-package go-mode)
+
 \f
 ;;; Theme
 
@@ -1224,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
@@ -1311,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
@@ -1367,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
@@ -1451,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))
 
@@ -1557,6 +1583,8 @@ For disabling the behaviour for certain buffers and/or modes."
                                  (list ".*info-guix.gnu.org" "l.gnu.guix.info")
                                  (list ".*www-commits.gnu.org" "l.gnu.www.commits")
                                  (list ".*www-discuss.gnu.org" "l.gnu.www.discuss")
+                                 ;; webmasters
+                                 (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
                                  ;; haskell
                                  (list ".*haskell-art.we.lurk.org" "l.haskell.art")
                                  (list ".*haskell-cafe.haskell.org" "l.haskell.cafe")
@@ -1854,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