[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/nano-modeline 709d0f770f 1/3: Added marker for dedicate
From: |
ELPA Syncer |
Subject: |
[elpa] externals/nano-modeline 709d0f770f 1/3: Added marker for dedicated window |
Date: |
Mon, 7 Mar 2022 09:57:42 -0500 (EST) |
branch: externals/nano-modeline
commit 709d0f770ffb3a05f46400749d627241cf23e19f
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Added marker for dedicated window
---
nano-modeline.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/nano-modeline.el b/nano-modeline.el
index 7b1cdf30b6..9a1c5ae6e1 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -377,9 +377,13 @@ KEY mode name, for reference only. Easier to do lookups
and/or replacements.
(t (if active 'nano-modeline-active
'nano-modeline-inactive))))
(left (concat (if (stringp prefix)
- (propertize (format " %s " prefix)
- 'face `(:inherit ,prefix-face)))
- (propertize " " 'display `(raise
,nano-modeline-space-top))
+ (concat
+ (propertize (if (window-dedicated-p) "•" " ")
+ 'face `(:inherit ,prefix-face))
+ (propertize (format "%s" prefix)
+ 'face `(:inherit ,prefix-face))
+ (propertize " " 'face `(:inherit ,prefix-face))))
+ (propertize " " 'display `(raise
,nano-modeline-space-top))
(propertize name 'face (if active
'nano-modeline-active-name
'nano-modeline-inactive-name))
(if (length name) " ")