Update mode line hiding

1 files changed, 20 insertions, 0 deletions

diff --git a/emacs/.config/emacs/lisp/kj-init.el b/emacs/.config/emacs/lisp/kj-init.el
index 98738e9..24c7538 100644
--- a/emacs/.config/emacs/lisp/kj-init.el
+++ b/emacs/.config/emacs/lisp/kj-init.el
@@ -73,6 +73,26 @@
   :config
   (setq doom-modeline-buffer-encoding 'nondefault))
 
+(use-package emacs
+  :elpaca nil
+  :defer 1
+  :init
+  (defvar kj/minor-mode-alist-overrides
+    '((ws-butler "")
+      (gcmh-mode "")
+      (editorconfig-mode "")
+      (yas-minor-mode "")
+      (selected-minor-mode "")
+      (anzu-mode "")
+      (projectile-mode "")
+      (eldoc-mode "")
+      (which-key-mode "")))
+  (defun kj/clean-mode-line ()
+    (dolist (override kj/minor-mode-alist-overrides)
+      (if-let ((e (assoc (car override) minor-mode-alist)))
+          (setf (nth 1 e) (nth 1 override)))))
+  (add-to-list 'change-major-mode-hook 'kj/clean-mode-line))
+
 (use-package emojify
   :bind
   (("C-c C-i C-e" . emojify-insert-emoji))