diff options
Diffstat (limited to 'bard-elisp')
| -rw-r--r-- | bard-elisp/bard-modeline.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/bard-elisp/bard-modeline.el b/bard-elisp/bard-modeline.el index 70e99e7..b87047d 100644 --- a/bard-elisp/bard-modeline.el +++ b/bard-elisp/bard-modeline.el @@ -224,6 +224,15 @@ Specific to the current window's mode line.") (propertize " Narrow " 'face 'prot-modeline-indicator-cyan-bg))) "Mode line construct to report the multilingual environment.") +;;;; Centered cursor indicator +(defvar-local bard-modeline-centered-cursor + '(:eval + (when (and (mode-line-window-selected-p) + (bard/cursor-centered-p) + (not (derived-mode-p 'Info-mode 'help-mode 'special-mode 'message-mode))) + (propertize " Center " 'face 'prot-modeline-indicator-yellow-bg))) + "Mode line construct to report the multilingual environment.") + ;;;; Input method (defvar-local prot-modeline-input-method @@ -519,6 +528,7 @@ Specific to the current window's mode line.") ;; variables will not work without it. (dolist (construct '(prot-modeline-kbd-macro prot-modeline-narrow + bard-modeline-centered-cursor prot-modeline-input-method prot-modeline-buffer-status prot-modeline-evil |