Diminish most global minor modes from the modeline

.config/emacs/init.el

@@ -27,9 +27,9 @@
   (display-time-mode)
   (load "lilypond-init.el")
   (prefer-coding-system 'utf-8)
+  (progn (which-key-mode) (with-eval-after-load 'diminish (diminish 'which-key-mode)))
   (put 'dired-find-alternate-file 'disabled nil)
   (set-default-file-modes #o750)
-  (which-key-mode)
   (windmove-default-keybindings 'super)
   ; keep-sorted end
   :custom
@@ -49,6 +49,8 @@
   ; keep-sorted end
   )
 
+(use-package diminish)
+
 (use-package better-defaults
   :ensure (:repo "https://git.sr.ht/~technomancy/better-defaults"))
 
@@ -73,7 +75,9 @@
   :ensure (:repo "https://gitlab.com/tsc25/undo-tree")
   :init (global-undo-tree-mode)
   :custom
-  (undo-tree-history-directory-alist '(("." . "~/.config/emacs/undo-tree"))))
+  (undo-tree-history-directory-alist '(("." . "~/.config/emacs/undo-tree")))
+  :diminish undo-tree-mode
+  )
 
 (use-package transient)
 
@@ -176,7 +180,8 @@
   (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode)))
 
 (use-package company
-  :init (global-company-mode))
+  :init (global-company-mode)
+  :diminish company-mode)
 
 (use-package apt-mode
   :disabled t)
@@ -209,6 +214,7 @@
         '(ruff-isort ruff))
   (setf (alist-get 'python-ts-mode apheleia-mode-alist)
         '(ruff-isort ruff))
+  :diminish apheleia-mode
   )
 
 (use-package flymake