diff options
Diffstat (limited to 'lisp/+modeline.el')
-rw-r--r-- | lisp/+modeline.el | 12 |
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 |