[elpa] externals/spacious-padding 353e817fb9 3/6: Cover mode-line-highlight and header-line-highlight faces

[ELPA Syncer]

branch: externals/spacious-padding
commit 353e817fb98b651c1e4c7487be639337c9c9fd2b
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Cover mode-line-highlight and header-line-highlight faces
    
    This is done for completeness, so that the mouse hover effect looks
    correct over a "padded" area.
---
 spacious-padding.el | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/spacious-padding.el b/spacious-padding.el
index 5679da38f6..70ccb313d5 100644
--- a/spacious-padding.el
+++ b/spacious-padding.el
@@ -90,12 +90,14 @@ following:
 
 (defun spacious-padding-set-invisible-dividers (_theme)
   "Make window dividers for THEME invisible."
-  (let ((bg (face-background 'default)))
+  (let ((bg-main (face-background 'default))
+        (fg-main (face-foreground 'default)))
     (custom-set-faces
-     `(fringe ((t :background ,bg)))
+     `(fringe ((t :background ,bg-main)))
      `(header-line ((t :box ( :line-width ,(plist-get spacious-padding-widths 
:header-line-width)
                             :color ,(face-background 'header-line nil 'default)
                             :style nil))))
+     `(header-line-highlight ((t :box (:color ,fg-main))))
      `(mode-line ((t :box ( :line-width ,(plist-get spacious-padding-widths 
:mode-line-width)
                             :color ,(face-background 'mode-line)
                             :style nil))))
@@ -106,24 +108,27 @@ following:
      `(mode-line-inactive ((t :box ( :line-width ,(plist-get 
spacious-padding-widths :mode-line-width)
                                      :color ,(face-background 
'mode-line-inactive)
                                      :style nil))))
+     `(mode-line-highlight ((t :box (:color ,fg-main))))
      `(tab-bar-tab ((t :box ( :line-width ,(plist-get spacious-padding-widths 
:tab-width)
                               :color ,(face-background 'tab-bar-tab nil 
'tab-bar)
                               :style nil))))
      `(tab-bar-tab-inactive ((t :box ( :line-width ,(plist-get 
spacious-padding-widths :tab-width)
                                        :color ,(face-background 
'tab-bar-tab-inactive nil 'tab-bar)
                                        :style nil))))
-     `(window-divider ((t :background ,bg :foreground ,bg)))
-     `(window-divider-first-pixel ((t :background ,bg :foreground ,bg)))
-     `(window-divider-last-pixel ((t :background ,bg :foreground ,bg))))))
+     `(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))))))
 
 (defun spacious-padding-unset-invisible-dividers ()
   "Make window dividers for THEME invisible."
   (custom-set-faces
    '(fringe (( )))
    '(header-line (( )))
+   '(header-line-highlight (( )))
    '(mode-line (( )))
    '(mode-line-active (( )))
    '(mode-line-inactive (( )))
+   '(mode-line-highlight (( )))
    '(tab-bar-tab (( )))
    '(tab-bar-tab-inactive (( )))
    '(window-divider (( )))