From f990892b1c52b4a8f42062f2333e70d2972c7117 Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kj@orbekk.com>
Date: Wed, 24 Apr 2024 20:04:48 -0400
Subject: Update mode line hiding

---
 emacs/.config/emacs/emacs-custom.el        |  4 +++-
 emacs/.config/emacs/lisp/kj-development.el |  1 +
 emacs/.config/emacs/lisp/kj-init.el        | 20 ++++++++++++++++++++
 3 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/emacs/.config/emacs/emacs-custom.el b/emacs/.config/emacs/emacs-custom.el
index 5d1cf73..df4c014 100644
--- a/emacs/.config/emacs/emacs-custom.el
+++ b/emacs/.config/emacs/emacs-custom.el
@@ -10,7 +10,9 @@
      "88267200889975d801f6c667128301af0bc183f3450c4b86138bfb23e8a78fb1"
      default))
  '(safe-local-variable-values
-   '((eval sly-connect "localhost" 9090) (sly-port . 9090)
+   '((Package . CL-WHO) (Package . HUNCHENTOOT) (Base . 10)
+     (Package . CL-USER) (Syntax . COMMON-LISP)
+     (eval sly-connect "localhost" 9090) (sly-port . 9090)
      (checkdoc-package-keywords-flag))))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
diff --git a/emacs/.config/emacs/lisp/kj-development.el b/emacs/.config/emacs/lisp/kj-development.el
index 69e4976..cee8dee 100644
--- a/emacs/.config/emacs/lisp/kj-development.el
+++ b/emacs/.config/emacs/lisp/kj-development.el
@@ -9,6 +9,7 @@
   :defer t
   :init
   (puni-global-mode)
+  (electric-pair-mode 1)
   :config
   (keymap-set puni-mode-map "C-w" nil)
   :bind
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))
-- 
cgit v1.2.3