diff options
author | Case Duckworth | 2022-05-25 22:07:33 -0500 |
---|---|---|
committer | Case Duckworth | 2022-05-25 22:07:33 -0500 |
commit | 3da59fb2f6bcd1b5f19dc7f9a49e223dd2293e09 (patch) | |
tree | f7855986b30c5bc6e016fbfb67199d8abdd2cd0b /lisp/+modeline.el | |
parent | meh (diff) | |
download | emacs-3da59fb2f6bcd1b5f19dc7f9a49e223dd2293e09.tar.gz emacs-3da59fb2f6bcd1b5f19dc7f9a49e223dd2293e09.zip |
i'm doing a terrible job
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 |