1 files changed, 43 insertions, 27 deletions

@@ -22,6 +22,15 @@
 (require 'simple-modeline)
 (require 'minions)
 
+(defcustom acdw-modeline/word-count-modes
+  (mapcar (lambda (m) (cons m nil)) simple-modeline-word-count-modes)
+  "Alist of modes to functions that `acdw-modeline/word-count' should dispatch.
+If the cdr of the cons cell is nil, use the default function (`count-words').
+Otherwise, cdr should be a function that takes two points (see `count-words')."
+  :type '(alist :key-type (symbol :tag "Major-Mode")
+                :value-type function)
+  :group 'simple-modeline)
+
 (defun acdw-modeline/buffer-name ()     ; gonsie
   "Display the buffer name in a face reflecting its modified status."
   (propertize " %b "
@@ -40,7 +49,35 @@
 (defun acdw-modeline/god-mode-indicator ()
   "Display an indicator if `god-local-mode' is active."
   (when (bound-and-true-p god-local-mode)
-    " God"))
+    " Ω"))
+
+(defun acdw-modeline/major-mode ()
+  "Displays the current major mode in the mode-line."
+  (propertize
+   (concat " "
+           (or (and (boundp 'delighted-modes)
+                    (cadr (assq major-mode delighted-modes)))
+               (format-mode-line mode-name)))
+   'face 'bold
+   'keymap mode-line-major-mode-keymap
+   'mouse-face 'mode-line-highlight))
+
+(defun acdw-modeline/minions () ; by me
+  "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)))
 
 (defun acdw-modeline/modified ()        ; modified from `simple-modeline'
   "Displays a color-coded buffer modification/read-only
@@ -64,23 +101,6 @@ indicator in the mode-line."
                                    (read-only-mode 'toggle)))))
          'mouse-face 'mode-line-highlight))))
 
-(defun acdw-modeline/minions () ; by me
-  "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)))
-
 (defun acdw-modeline/narrowed ()
   "Display an indication if the buffer is narrowed."
   (when (buffer-narrowed-p)
@@ -135,6 +155,11 @@ is, if point < mark."
        " (%-d)")
      text-scale-mode-amount)))
 
+(defun acdw-modeline/track ()
+  "Display `tracking-mode' information."
+  (when tracking-mode
+    tracking-mode-line-buffers))
+
 (defun acdw-modeline/vc-branch ()
   "Display the version control branch of the current buffer in the modeline."
   ;; from https://www.gonsie.com/blorg/modeline.html, from Doom
@@ -148,15 +173,6 @@ Only shows if there is more than one window."
              (> winum--window-count 1))
     (format winum-format (winum-get-number-string))))
 
-(defcustom acdw-modeline/word-count-modes
-  (mapcar (lambda (m) (cons m nil)) simple-modeline-word-count-modes)
-  "Alist of modes to functions that `acdw-modeline/word-count' should dispatch.
-If the cdr of the cons cell is nil, use the default function (`count-words').
-Otherwise, cdr should be a function that takes two points (see `count-words')."
-  :type '(alist :key-type (symbol :tag "Major-Mode")
-                :value-type function)
-  :group 'simple-modeline)
-
 (defun acdw-modeline/word-count ()
   "Display a buffer word count, depending on the major mode.
 Uses `acdw-modeline/word-count-modes' to determine which function to use."