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 (( )))