[elpa] externals/nano-modeline 0fc260ff65 3/4: Better dedicated indicator and addes faces to space.

[ELPA Syncer]

branch: externals/nano-modeline
commit 0fc260ff6569454ad139f711125072a98706ae41
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Better dedicated indicator and addes faces to space.
---
 nano-modeline.el | 25 +++++++++++++++++--------
 1 file changed, 17 insertions(+), 8 deletions(-)

diff --git a/nano-modeline.el b/nano-modeline.el
index 36628d45e5..0a08c0df9b 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -384,24 +384,33 @@ KEY mode name, for reference only. Easier to do lookups 
and/or replacements.
                                  'nano-modeline-inactive))))
          (left (concat (if (stringp prefix)
                            (concat
-                            (propertize (if (window-dedicated-p) "•" " ")
+                            (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 (format "%s" prefix)
+                                            'face `(:inherit ,prefix-face))
+                            (propertize (if (window-dedicated-p) "]" " ")
+                                        'face `(:inherit ,prefix-face))))
+                       (propertize " "  'face (if active 'nano-modeline-active
+                                                'nano-modeline-inactive)
+                                   'display `(raise ,nano-modeline-space-top))
                        (propertize name 'face (if active 
'nano-modeline-active-name
                                                 'nano-modeline-inactive-name))
-                       (if (length name) " ")
+                       (if (length name)
+                           (propertize " " 'face (if active 
'nano-modeline-active
+                                                   'nano-modeline-inactive)))
                        (propertize primary 'face (if active 
'nano-modeline-active-primary
                                                    
'nano-modeline-inactive-primary))))
          (right (concat (propertize secondary 'face (if active 
'nano-modeline-active-secondary
                                                       
'nano-modeline-inactive-secondary))
-                        (propertize " " 'display `(raise 
,nano-modeline-space-bottom))))
+                        (propertize " "  'face (if active 'nano-modeline-active
+                                                 'nano-modeline-inactive)
+                                         'display `(raise 
,nano-modeline-space-bottom))))
         (right-len (length (format-mode-line right))))
     (concat
      left 
-     (propertize " " 'display `(space :align-to (- right ,(- right-len 0))))
+     (propertize " "  'face (if active 'nano-modeline-active
+                              'nano-modeline-inactive)
+                      'display `(space :align-to (- right ,(- right-len 0))))
      right)))
 
 ;; ---------------------------------------------------------------------