[elpa] externals/spacious-padding 1edb7ea06c 2/2: Change window divider color only if greater than 1

[ELPA Syncer]

branch: externals/spacious-padding
commit 1edb7ea06c50fec1d6cd4b98382c1a4d8d040c5f
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@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."