branch: externals/nano-modeline
commit 1cf4bf79f8f83883e51670e826d9b662e0f6b111
Author: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Commit: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Added dedicated window marker.
---
nano-modeline.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/nano-modeline.el b/nano-modeline.el
index f3d84d839a..6767017815 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -136,13 +136,14 @@ Negative is downwards."
"Modeline face for active modeline"
:group 'nano-modeline-active)
+
(defface nano-modeline-active-name
'((t (:inherit (nano-modeline-active bold))))
"Modeline face for active name element (default)"
:group 'nano-modeline-active)
(defface nano-modeline-active-name-**
- '((t (:inherit (nano-modeline-active-name error))))
+ '((t (:inherit (nano-modeline-active-name warning))))
"Modeline face for active name element (modified)"
:group 'nano-modeline-active)
@@ -202,7 +203,7 @@ Negative is downwards."
:group 'nano-modeline-inactive)
(defface nano-modeline-inactive-name
- '((t (:inherit (nano-modeline-inactive bold))))
+ '((t (:inherit (nano-modeline-inactive))))
"Modeline face for inactive name element"
:group 'nano-modeline-inactive)
@@ -480,6 +481,11 @@ KEY mode name, for reference only. Easier to do lookups
and/or replacements.
face-secondary 'nano-modeline-inactive-secondary))))
(let* ((left (concat
+ (if (window-dedicated-p)
+ (propertize " "
+ 'face `(:height 0.25
+ :background
+ ,(face-foreground face-name nil 'default))))
(propertize " " 'face face-modeline
'display `(raise ,nano-modeline-space-top))
(propertize name 'face face-name)
