diff options
| author | Case Duckworth | 2022-04-01 18:56:05 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-01 18:56:05 -0500 |
| commit | a44a825f2c934615fb8761f305509190729ac861 (patch) | |
| tree | 67470571516ecda571d86070dc97d23a3dfed115 /lisp/+modeline.el | |
| parent | Only load notmuch tab-bar if notmuch is in $PATH (diff) | |
| parent | Merge branch 'main' of tildegit.org:acdw/emacs (diff) | |
| download | emacs-a44a825f2c934615fb8761f305509190729ac861.tar.gz emacs-a44a825f2c934615fb8761f305509190729ac861.zip | |
Merge branch 'main' of tildegit.org:acdw/emacs
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 . "=") |