branch: externals/spacious-padding
commit 353e817fb98b651c1e4c7487be639337c9c9fd2b
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@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 (( )))
