diff options
Diffstat (limited to 'bard-elisp/bard-modeline.el')
| -rw-r--r-- | bard-elisp/bard-modeline.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/bard-elisp/bard-modeline.el b/bard-elisp/bard-modeline.el index f5dcbb1..b8b4aca 100644 --- a/bard-elisp/bard-modeline.el +++ b/bard-elisp/bard-modeline.el @@ -406,6 +406,7 @@ face. Let other buffers have no face.") ((derived-mode-p 'text-mode) "§") ((derived-mode-p 'prog-mode) "λ") ((derived-mode-p 'comint-mode) ">_") + ((derived-mode-p 'emms-playlist-mode) "♪") (t "◦")))) (propertize indicator 'face 'shadow))) @@ -591,6 +592,17 @@ TYPE is usually keyword `:error', `:warning' or `:note'." "Mode line construct displaying `flymake-mode-line-format'. Specific to the current window's mode line.") +(with-eval-after-load 'eglot + (setq mode-line-misc-info + (delete '(eglot--managed-mode (" [" eglot--mode-line-format "] ")) mode-line-misc-info))) + +(defvar-local prot-modeline-eglot + `(:eval + (when (and (featurep 'eglot) (mode-line-window-selected-p)) + '(eglot--managed-mode eglot--mode-line-format))) + "Mode line construct displaying Eglot information. +Specific to the current window's mode line.") + ;;;; Miscellaneous (defvar-local prot-modeline-misc-info |