diff options
| -rw-r--r-- | bard-elisp/bard-modeline.el | 11 | ||||
| -rw-r--r-- | bard-emacs-modules/bard-emacs-modeline.el | 1 |
2 files changed, 12 insertions, 0 deletions
diff --git a/bard-elisp/bard-modeline.el b/bard-elisp/bard-modeline.el index e1892ef..ceb7fbf 100644 --- a/bard-elisp/bard-modeline.el +++ b/bard-elisp/bard-modeline.el @@ -271,6 +271,16 @@ Specific to the current window's mode line.") 'mouse-face 'mode-line-highlight))) "Mode line construct for showing remote file name.") +;;;; Dedicated window + +(defvar-local prot-modeline-window-dedicated-status + '(:eval + (when (window-dedicated-p) + (propertize " = " + 'face 'prot-modeline-indicator-magenta-bg + 'mouse-face 'mode-line-highlight))) + "Mode line construct for dedicated window indicator.") + ;;;; Buffer name and modified status (defun prot-modeline-buffer-identification-face () @@ -552,6 +562,7 @@ Specific to the current window's mode line.") bard-modeline-ryo-modal-normal prot-modeline-input-method prot-modeline-buffer-status + prot-modeline-window-dedicated-status prot-modeline-evil prot-modeline-buffer-identification prot-modeline-major-mode diff --git a/bard-emacs-modules/bard-emacs-modeline.el b/bard-emacs-modules/bard-emacs-modeline.el index 0f27bab..422ca2f 100644 --- a/bard-emacs-modules/bard-emacs-modeline.el +++ b/bard-emacs-modules/bard-emacs-modeline.el @@ -12,6 +12,7 @@ bard-modeline-ryo-modal-insert bard-modeline-ryo-modal-normal prot-modeline-buffer-status + prot-modeline-window-dedicated-status " " prot-modeline-buffer-identification " " |