[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/nano-modeline 4fc50c88b3 3/3: Adjustment of spaces.
From: |
ELPA Syncer |
Subject: |
[elpa] externals/nano-modeline 4fc50c88b3 3/3: Adjustment of spaces. |
Date: |
Thu, 6 Jan 2022 07:57:39 -0500 (EST) |
branch: externals/nano-modeline
commit 4fc50c88b336bd95d6d348477a550302f0206d9f
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Adjustment of spaces.
---
nano-modeline.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/nano-modeline.el b/nano-modeline.el
index df651efd75..4e601fdea3 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -95,13 +95,13 @@ Modeline is composed as:
(const :tag "Bottom" bottom))
:group 'nano-modeline)
-(defcustom nano-modeline-space-top +0.100
+(defcustom nano-modeline-space-top +0.15
"Space adjustment for top of modeline
Possitive is upwards"
:type 'float
:group 'nano-modeline)
-(defcustom nano-modeline-space-bottom -0.125
+(defcustom nano-modeline-space-bottom -0.20
"Space adjustment for bottom of modeline
Negative is downwards."
:type 'float
@@ -388,7 +388,7 @@ KEY mode name, for reference only. Easier to do lookups
and/or replacements.
(right-len (length (format-mode-line right))))
(concat
left
- (propertize " " 'display `(space :align-to (- right ,(- right-len 2))))
+ (propertize " " 'display `(space :align-to (- right ,(- right-len 0))))
right)))
;; ---------------------------------------------------------------------