[elpa] externals/nano-modeline 8608a4eb81 09/14: Merge remote-tracking branch 'origin/master'

[ELPA Syncer]

branch: externals/nano-modeline
commit 8608a4eb818a875930bc36d34bd49818b8622678
Merge: 7ccfb4923c bd338c9614
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Merge remote-tracking branch 'origin/master'
---
 nano-modeline.el | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/nano-modeline.el b/nano-modeline.el
index 95acb6e1a5..67c9c8043d 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -89,6 +89,18 @@ Modeline is composed as:
                  (const :tag "Bottom" bottom))
   :group 'nano-modeline)
 
+(defcustom nano-modeline-space-top +0.100
+  "Space adjustment for top of modeline
+Possitive is upwards"
+  :type 'float
+  :group 'nano-modeline)
+
+(defcustom nano-modeline-space-bottom -0.125
+  "Space adjustment for bottom of modeline
+Negative is downwards."
+  :type 'float
+  :group 'nano-modeline)
+
 (defface nano-modeline-active
   '((t (:inherit mode-line)))
   "Modeline face for active modeline"
@@ -255,7 +267,7 @@ Modeline is composed as:
          (left (concat (if (stringp prefix)
                            (propertize (format " %s " prefix)
                                        'face `(:inherit ,prefix-face)))
-                       (propertize " " 'display '(raise +0.100))
+                       (propertize " " 'display `(raise 
,nano-modeline-space-top))
                        (propertize name 'face (if active 
'nano-modeline-active-name
                                                 'nano-modeline-inactive-name))
                        (if (length name) " ")
@@ -263,7 +275,7 @@ Modeline is composed as:
                                                    
'nano-modeline-inactive-primary))))
          (right (concat (propertize secondary 'face (if active 
'nano-modeline-active-secondary
                                                       
'nano-modeline-inactive-secondary))
-                        (propertize " " 'display '(raise -0.125)))))
+                        (propertize " " 'display `(raise 
,nano-modeline-space-bottom)))))
     (concat
      left 
      (propertize " " 'display `(space :align-to (- right ,(+ (length 
secondary) 1))))