diff options
| author | BardofSprites <[email protected]> | 2025-03-16 17:43:07 -0400 |
|---|---|---|
| committer | BardofSprites <[email protected]> | 2025-03-16 17:43:07 -0400 |
| commit | c7a49dc313feb56a9b43a58fc44707639a70b6fa (patch) | |
| tree | 597ff91b6eba0140ea92acd58cfacca2ec8a6f2d | |
| parent | e643ef8b17a89170167b11b80327b4c28591823a (diff) | |
dedicated window indicator
| -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 " " |