From c7a49dc313feb56a9b43a58fc44707639a70b6fa Mon Sep 17 00:00:00 2001 From: BardofSprites Date: Sun, 16 Mar 2025 17:43:07 -0400 Subject: dedicated window indicator --- bard-elisp/bard-modeline.el | 11 +++++++++++ bard-emacs-modules/bard-emacs-modeline.el | 1 + 2 files changed, 12 insertions(+) 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 " " -- cgit v1.2.3