[elpa] externals/nano-modeline 1cf4bf79f8 03/18: Added dedicated window marker.

[ELPA Syncer]

branch: externals/nano-modeline
commit 1cf4bf79f8f83883e51670e826d9b662e0f6b111
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@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)