Add god-mode indicator to modeline

... and whitespace...

1 files changed, 44 insertions, 39 deletions

@@ -24,44 +24,44 @@
 
 ;; modified from `simple-modeline'
 (defun acdw-modeline/modified ()
-          "Displays a color-coded buffer modification/read-only
+      "Displays a color-coded buffer modification/read-only
 indicator in the mode-line."
-          (if (not (string-match-p "\\*.*\\*" (buffer-name)))
-              (let* ((read-only (and buffer-read-only (buffer-file-name)))
-                     (modified (buffer-modified-p)))
-                (propertize
-                 (if read-only " =" (if modified " +" " -"))
-                 'help-echo (format
-                             (concat "Buffer is %s and %smodified\n"
-                                     "mouse-1: Toggle read-only status.")
-                             (if read-only "read-only" "writable")
-                             (if modified "" "not "))
-                 'local-map (purecopy (simple-modeline-make-mouse-map
-                                       'mouse-1
-                                       (lambda (event)
-                                         (interactive "e")
-                                         (with-selected-window
-                                             (posn-window (event-start event))
-                                           (read-only-mode 'toggle)))))
-                 'mouse-face 'mode-line-highlight))))
+      (if (not (string-match-p "\\*.*\\*" (buffer-name)))
+          (let* ((read-only (and buffer-read-only (buffer-file-name)))
+             (modified (buffer-modified-p)))
+        (propertize
+         (if read-only " =" (if modified " +" " -"))
+         'help-echo (format
+                 (concat "Buffer is %s and %smodified\n"
+                     "mouse-1: Toggle read-only status.")
+                 (if read-only "read-only" "writable")
+                 (if modified "" "not "))
+         'local-map (purecopy (simple-modeline-make-mouse-map
+                       'mouse-1
+                       (lambda (event)
+                     (interactive "e")
+                     (with-selected-window
+                         (posn-window (event-start event))
+                       (read-only-mode 'toggle)))))
+         'mouse-face 'mode-line-highlight))))
 
 ;; all me, baby
 (defun acdw-modeline/minions ()
-          "Display a button for `minions-minor-modes-menu'."
-          (concat
-           " "
-           (propertize
-            "&"
-            'help-echo (format
-                        "Minor modes menu\nmouse-1: show menu.")
-            'local-map (purecopy (simple-modeline-make-mouse-map
-                                  'mouse-1
-                                  (lambda (event)
-                                    (interactive "e")
-                                    (with-selected-window (posn-window
-                                                           (event-start event))
-                                      (minions-minor-modes-menu)))))
-            'mouse-face 'mode-line-highlight)))
+      "Display a button for `minions-minor-modes-menu'."
+      (concat
+       " "
+       (propertize
+        "&"
+        'help-echo (format
+            "Minor modes menu\nmouse-1: show menu.")
+        'local-map (purecopy (simple-modeline-make-mouse-map
+                  'mouse-1
+                  (lambda (event)
+                    (interactive "e")
+                    (with-selected-window (posn-window
+                               (event-start event))
+                      (minions-minor-modes-menu)))))
+        'mouse-face 'mode-line-highlight)))
 
 ;; from https://www.gonsie.com/blorg/modeline.html, from Doom
 (defun acdw-modeline/vc-branch ()
@@ -71,10 +71,15 @@ indicator in the mode-line."
 ;; from gonsie
 (defun acdw-modeline/buffer-name ()
   (propertize " %b "
-              'face
-              (if (buffer-modified-p)
-                  'font-lock-warning-face
-                'font-lock-type-face)
-              'help-echo (buffer-file-name)))
+          'face
+          (if (buffer-modified-p)
+          'font-lock-warning-face
+        'font-lock-type-face)
+          'help-echo (buffer-file-name)))
+
+;; god-mode indicator
+(defun acdw-modeline/god-mode-indicator ()
+  (when (bound-and-true-p god-local-mode)
+    " God"))
 
 (provide 'acdw-modeline)