Add diminish and some lighters

init.el

@@ -39,6 +39,25 @@
 (use-package f
   :demand t)
 
+(use-package diminish)
+
+(use-package moody
+  :demand t
+  :config
+  (moody-replace-mode-line-front-space)
+  (moody-replace-mode-line-buffer-identification)
+  (moody-replace-vc-mode)
+  (with-eval-after-load 'eldoc
+    (moody-replace-eldoc-minibuffer-message-function))
+  ;; Prevent weird colors in the ribbons on solaire buffers at the cost of
+  ;; everything looking the same (worth it IMO)
+  (with-eval-after-load 'solaire-mode
+    (face-spec-set 'mode-line `((t (:background ,(catppuccin-get-color 'crust)))))
+    ;; NOTE: Technically this line is unnnecessary because of the previous but
+    ;; I'll keep it here in case it ever becomes relevant
+    (dolist (face '(mode-line mode-line-active mode-line-inactive))
+      (setf (alist-get face solaire-mode-remap-alist) nil))))
+
 (use-package undo-fu
   :demand t
   :config
@@ -71,6 +90,7 @@
   (god-mode-alist '((nil . "C-")
                     ("g" . "M-")
                     ("m" . "C-M-")))
+  (god-mode-lighter-string nil)
   :config
   (defun my--god-c-q ()
     (interactive)
@@ -170,6 +190,7 @@
 
 (use-package goggles
   :hook prog-mode
+  :diminish " O-O"
   :config
   (setq-default goggles-pulse t)
   (with-eval-after-load 'catppuccin-theme
@@ -177,8 +198,7 @@
       (dolist (f '(goggles-added
                    goggles-removed
                    goggles-changed))
-        (face-spec-set f new-spec))))
-  (setcar (cdr (assq 'goggles-mode minor-mode-alist)) " O-O"))
+        (face-spec-set f new-spec)))))
 
 (defun my--set-tab-width-2 ()
   (setq tab-width 2))
@@ -217,8 +237,8 @@
 
 (use-package dtrt-indent
   :demand t
+  :diminish " dtrt"
   :config
-  (setcar (cdr (assq 'dtrt-indent-mode minor-mode-alist)) " dtrt")
   (dtrt-indent-global-mode))
 
 (use-package aggressive-indent
@@ -240,6 +260,7 @@
   :custom
   (highlight-indent-guides-auto-enabled nil)
   (highlight-indent-guides-method 'character)
+  :diminish
   :config
   (defun my-maybe-highlight-indent-guides ()
     (interactive)
@@ -250,6 +271,7 @@
   :demand t
   :custom
   (which-key-idle-delay 0.2)
+  :diminish
   :config
   (with-eval-after-load 'god-mode
     (which-key-enable-god-mode-support))
@@ -413,23 +435,6 @@
   :config
   (treemacs-load-theme 'all-the-icons))
 
-(use-package moody
-  :demand t
-  :config
-  (moody-replace-mode-line-front-space)
-  (moody-replace-mode-line-buffer-identification)
-  (moody-replace-vc-mode)
-  (with-eval-after-load 'eldoc
-    (moody-replace-eldoc-minibuffer-message-function))
-  ;; Prevent weird colors in the ribbons on solaire buffers at the cost of
-  ;; everything looking the same (worth it IMO)
-  (with-eval-after-load 'solaire-mode
-    (face-spec-set 'mode-line `((t (:background ,(catppuccin-get-color 'crust)))))
-    ;; NOTE: Technically this line is unnnecessary because of the previous but
-    ;; I'll keep it here in case it ever becomes relevant
-    (dolist (face '(mode-line mode-line-active mode-line-inactive))
-      (setf (alist-get face solaire-mode-remap-alist) nil))))
-
 (use-package dirvish
   :after dired
   :demand t
@@ -648,13 +653,17 @@ This function is called by `org-babel-execute-src-block'."
 
 (use-package editorconfig
   :demand t
+  :diminish " EdConf"
   :config
-  (editorconfig-mode)
-  (setcar (cdr (assq 'editorconfig-mode minor-mode-alist)) " EdConf"))
+  (editorconfig-mode))
 
 (use-package envrc
   :bind ("C-c v" . envrc-command-map)
-  :hook (after-init . envrc-global-mode))
+  :hook (after-init . envrc-global-mode)
+  :custom
+  (envrc-none-lighter nil)
+  (envrc-on-lighter '(" envrc"))
+  (envrc-error-lighter '(" envrc[" (:propertize "!" face envrc-mode-line-error-face)) "]"))
 
 (use-package sly
   :custom