[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/spacious-padding ea2175b36a 2/4: Merge pull request #7
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/spacious-padding ea2175b36a 2/4: Merge pull request #7 from Sorixelle/allow-zero-padding |
|
Date: |
Mon, 11 Mar 2024 03:59:12 -0400 (EDT) |
branch: externals/spacious-padding
commit ea2175b36a2d7fe0633cb3f8cf6dc6d71f5914ae
Merge: 227e6144cd 21e785b044
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: GitHub <noreply@github.com>
Merge pull request #7 from Sorixelle/allow-zero-padding
Allow specifying 0 padding for mode-line, header-line, etc.
---
spacious-padding.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/spacious-padding.el b/spacious-padding.el
index 41df203c92..c6514a9bd3 100644
--- a/spacious-padding.el
+++ b/spacious-padding.el
@@ -241,15 +241,18 @@ overline."
(let* ((original-bg (face-background face nil fallback))
(subtle-bg (face-background 'default))
(subtlep (and subtle-key spacious-padding-subtle-mode-line))
- (bg (if subtlep subtle-bg original-bg)))
+ (bg (if subtlep subtle-bg original-bg))
+ (face-width (spacious-padding--get-face-width face)))
`(,@(when subtlep
(list
:background bg
:overline (spacious-padding--get-face-overline-color face
fallback subtle-key)))
- :box
- ( :line-width ,(spacious-padding--get-face-width face)
- :color ,bg
- :style nil)))))
+ ,@(unless (eq face-width 0)
+ (list
+ :box
+ `( :line-width ,face-width
+ :color ,bg
+ :style nil)))))))
(defun spacious-padding-set-window-divider (face color)
"Set window divider FACE to COLOR its width is greater than 1."