summary refs log tree commit diff stats
path: root/lisp/+modeline.el
diff options
context:
space:
mode:
authorCase Duckworth2022-05-25 22:07:33 -0500
committerCase Duckworth2022-05-25 22:07:33 -0500
commit3da59fb2f6bcd1b5f19dc7f9a49e223dd2293e09 (patch)
treef7855986b30c5bc6e016fbfb67199d8abdd2cd0b /lisp/+modeline.el
parentmeh (diff)
downloademacs-3da59fb2f6bcd1b5f19dc7f9a49e223dd2293e09.tar.gz
emacs-3da59fb2f6bcd1b5f19dc7f9a49e223dd2293e09.zip
i'm doing a terrible job
Diffstat (limited to 'lisp/+modeline.el')
-rw-r--r--lisp/+modeline.el12
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/+modeline.el b/lisp/+modeline.el index 2c9bbee..33d34c3 100644 --- a/lisp/+modeline.el +++ b/lisp/+modeline.el
@@ -138,6 +138,9 @@ in the cdr will be applied to the major-mode in the mode line."
138 :type '(alist :key-type function 138 :type '(alist :key-type function
139 :value-type face)) 139 :value-type face))
140 140
141(defface +modeline-major-mode-face nil
142 "Face for modeline major-mode.")
143
141(defun +modeline-major-mode (&optional spacer) 144(defun +modeline-major-mode (&optional spacer)
142 "Display the current `major-mode'." 145 "Display the current `major-mode'."
143 (+modeline-spacer nil spacer 146 (+modeline-spacer nil spacer
@@ -149,10 +152,11 @@ in the cdr will be applied to the major-mode in the mode line."
149 ;; simply detect which mode it's in when I change major 152 ;; simply detect which mode it's in when I change major
150 ;; modes (`change-major-mode-hook') and change the face 153 ;; modes (`change-major-mode-hook') and change the face
151 ;; there, probably. 154 ;; there, probably.
152 (catch :done (dolist (cel +modeline-major-mode-faces) 155 ;; (catch :done (dolist (cel +modeline-major-mode-faces)
153 (when (derived-mode-p (car cel)) 156 ;; (when (derived-mode-p (car cel))
154 (throw :done (cdr cel)))) 157 ;; (throw :done (cdr cel))))
155 (alist-get t +modeline-major-mode-faces))) 158 ;; (alist-get t +modeline-major-mode-faces))
159 '+modeline-major-mode-face)
156 'keymap (let ((map (make-sparse-keymap))) 160 'keymap (let ((map (make-sparse-keymap)))
157 (bindings--define-key map [mode-line down-mouse-1] 161 (bindings--define-key map [mode-line down-mouse-1]
158 `(menu-item "Menu Bar" ignore 162 `(menu-item "Menu Bar" ignore