diff options
| author | Case Duckworth | 2022-03-30 18:14:56 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-03-30 18:14:56 -0500 |
| commit | 29c287a8c31bebe9dd40b499415511c96a1ef6fa (patch) | |
| tree | 8c12bc6172b651839060da33ac4d6d2af3141534 /lisp/+modeline.el | |
| parent | Uh (diff) | |
| download | emacs-29c287a8c31bebe9dd40b499415511c96a1ef6fa.tar.gz emacs-29c287a8c31bebe9dd40b499415511c96a1ef6fa.zip | |
I waited way too long to make this commit
Diffstat (limited to 'lisp/+modeline.el')
| -rw-r--r-- | lisp/+modeline.el | 13 |
1 files changed, 7 insertions, 6 deletions
| diff --git a/lisp/+modeline.el b/lisp/+modeline.el index 7bef5c6..3cc8806 100644 --- a/lisp/+modeline.el +++ b/lisp/+modeline.el | |||
| @@ -93,12 +93,13 @@ This function makes a lambda, so you can throw it straight into | |||
| 93 | (defun +modeline-major-mode (&optional spacer) | 93 | (defun +modeline-major-mode (&optional spacer) |
| 94 | "Display the current `major-mode'." | 94 | "Display the current `major-mode'." |
| 95 | (concat (or spacer +modeline-default-spacer) | 95 | (concat (or spacer +modeline-default-spacer) |
| 96 | (propertize (+string-truncate (format-mode-line mode-name) 16) | 96 | (propertize ;; (+string-truncate (format-mode-line mode-name) 16) |
| 97 | 'face 'bold | 97 | (format-mode-line mode-name) |
| 98 | 'keymap mode-line-major-mode-keymap | 98 | 'face 'font-lock-keyword-face |
| 99 | 'help-echo (concat (format-mode-line mode-name) | 99 | 'keymap mode-line-major-mode-keymap |
| 100 | " mode\nmouse-1: show menu.") | 100 | 'help-echo (concat (format-mode-line mode-name) |
| 101 | 'mouse-face 'mode-line-highlight))) | 101 | " mode\nmouse-1: show menu.") |
| 102 | 'mouse-face 'mode-line-highlight))) | ||
| 102 | 103 | ||
| 103 | (defcustom +modeline-modified-icon-alist '((ephemeral . "*") | 104 | (defcustom +modeline-modified-icon-alist '((ephemeral . "*") |
| 104 | (readonly . "=") | 105 | (readonly . "=") |