branch: externals/spacious-padding
commit 1edb7ea06c50fec1d6cd4b98382c1a4d8d040c5f
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Change window divider color only if greater than 1
---
spacious-padding.el | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/spacious-padding.el b/spacious-padding.el
index b7490384bc..fc77f917c3 100644
--- a/spacious-padding.el
+++ b/spacious-padding.el
@@ -216,6 +216,13 @@ overline."
:color ,bg
:style nil)))))
+(defun spacious-padding-set-window-divider (face color)
+ "Set window divider FACE to COLOR its width is greater than 1."
+ (list
+ face
+ `((t ,(when (> (plist-get spacious-padding-widths :right-divider-width) 1)
+ (list :background color :foreground color))))))
+
(defun spacious-padding-set-invisible-dividers (_theme)
"Make window dividers for THEME invisible."
(let ((bg-main (face-background 'default))
@@ -233,10 +240,10 @@ overline."
`(mode-line-highlight ((t :box (:color ,fg-main))))
`(tab-bar-tab ((t ,@(spacious-padding-set-face-box-padding 'tab-bar-tab
'tab-bar))))
`(tab-bar-tab-inactive ((t ,@(spacious-padding-set-face-box-padding
'tab-bar-tab-inactive 'tab-bar))))
- `(window-divider ((t :background ,bg-main :foreground ,bg-main)))
- `(window-divider-first-pixel ((t :background ,bg-main :foreground
,bg-main)))
- `(window-divider-last-pixel ((t :background ,bg-main :foreground
,bg-main))))))
`(vertical-border ((t :background ,bg-main :foreground ,bg-main)))
+ `(,@(spacious-padding-set-window-divider 'window-divider bg-main))
+ `(,@(spacious-padding-set-window-divider 'window-divider-first-pixel
bg-main))
+ `(,@(spacious-padding-set-window-divider 'window-divider-last-pixel
bg-main)))))
(defun spacious-padding-unset-invisible-dividers ()
"Make window dividers for THEME invisible."
