[elpa] externals/nano-modeline bd338c9614 2/2: Merge pull request #18 from hans-d/feat/space

[ELPA Syncer]

branch: externals/nano-modeline
commit bd338c9614700a36b6d99dc76abc33c92ccae33a
Merge: 6b9b75baa0 6e43e64a6a
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: GitHub <noreply@github.com>

    Merge pull request #18 from hans-d/feat/space
    
    Allow additional space to be customised
---
 nano-modeline.el | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/nano-modeline.el b/nano-modeline.el
index d8850f5334..1d50db89b2 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))))