From f8bf99b49adb3a9a2d97657e24914d6a1183630c Mon Sep 17 00:00:00 2001
From: Jeremy Baxter <jeremy@baxters.nz>
Date: Sun, 21 Jul 2024 20:13:44 +1200
Subject: [PATCH] emacs: hide global minor mode lighters

---
 .emacs.d/init.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 14071b0..3025ce5 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -28,6 +28,13 @@
   "Switch to a buffer visiting your init file."
   (interactive)
   (find-file user-init-file))
+(defvar hidden-minor-modes '()
+  "Modes which lighters are hidden by `hide-minor-modes'.")
+(defun hide-minor-modes ()
+  "Disable lighter for every mode in `hidden-minor-modes'."
+  (dolist (mode hidden-minor-modes)
+    (let ((lighter (cdr (assoc mode minor-mode-alist))))
+      (when lighter (setcar lighter "")))))
 (defun reindent-buffer ()
   "Reindent the current buffer."
   (interactive)
@@ -52,6 +59,8 @@ value `italic'."
   (save-buffer)
   (kill-current-buffer))
 
+(add-hook 'after-change-major-mode-hook #'hide-minor-modes)
+
 ;; other key binds
 (global-set-key (kbd "C-c e r") 'reindent-buffer)
 (global-set-key (kbd "C-c e i") 'edit-init-file)
@@ -130,14 +139,17 @@ value `italic'."
 ;; undo-tree
 (package-install 'undo-tree)
 (global-undo-tree-mode)
+(add-to-list 'hidden-minor-modes 'undo-tree-mode)
 
 ;; isearch match count
 (package-install 'anzu)
 (global-anzu-mode)
+(add-to-list 'hidden-minor-modes 'anzu-mode)
 
 ;; highlight colours
 (package-install 'rainbow-mode)
 (add-hook 'prog-mode-hook 'rainbow-mode)
+(add-to-list 'hidden-minor-modes 'rainbow-mode)
 
 ;; rainbow parens in lisp-mode
 (package-install 'rainbow-delimiters)
@@ -170,6 +182,7 @@ value `italic'."
 (package-install 'company)
 (require 'company)
 (add-hook 'after-init-hook 'global-company-mode)
+(add-to-list 'hidden-minor-modes 'company-mode)
 (setq company-begin-commands '(self-insert-command)
       company-idle-delay .1
       company-minimum-prefix-length 2
@@ -194,10 +207,12 @@ value `italic'."
 ;; editorconfig
 (package-install 'editorconfig)
 (editorconfig-mode)
+(add-to-list 'hidden-minor-modes 'editorconfig-mode)
 
 ;; which-key
 (package-install 'which-key)
 (which-key-mode)
+(add-to-list 'hidden-minor-modes 'which-key-mode)
 (setq which-key-side-window-location 'bottom
       which-key-sort-order 'which-key-key-order-alpha
       which-key-sort-uppercase-first nil