emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/modus-operandi-theme d8986b7 79/99: Let outline-minor-f


From: Stefan Monnier
Subject: [elpa] externals/modus-operandi-theme d8986b7 79/99: Let outline-minor-faces respect "section headings"
Date: Fri, 31 Jul 2020 09:25:30 -0400 (EDT)

branch: externals/modus-operandi-theme
commit d8986b7912a2336c896808db3a70ac96ef77baf4
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Let outline-minor-faces respect "section headings"
    
    The "section headings" customisation option applies a nuanced accented
    background to the given heading, so we want to respect that when it is
    enabled.  Otherwise we default to a neutral grey background, per commit
    099fe434f.
---
 modus-operandi-theme.el | 3 ++-
 modus-vivendi-theme.el  | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index 153f95b..731b0c0 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -3068,7 +3068,8 @@ Also bind `class' to ((class color) (min-colors 89))."
                         ,@(modus-operandi-theme-heading-foreground fg-dim 
magenta)
                         ,@(modus-operandi-theme-heading-block bg-alt fg-alt))))
 ;;;;; outline-minor-faces
-   `(outline-minor-0 ((,class :background ,bg-alt)))
+   `(outline-minor-0 ((,class ,@(unless modus-vivendi-theme-section-headings
+                                  (list :background bg-alt)))))
 ;;;;; package (M-x list-packages)
    `(package-description ((,class :foreground ,fg-special-cold)))
    `(package-help-section-name ((,class :inherit bold :foreground 
,magenta-alt-other)))
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index 89fbb23..eb66f1f 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -3068,7 +3068,8 @@ Also bind `class' to ((class color) (min-colors 89))."
                         ,@(modus-vivendi-theme-heading-foreground fg-dim 
magenta)
                         ,@(modus-vivendi-theme-heading-block bg-alt fg-alt))))
 ;;;;; outline-minor-faces
-   `(outline-minor-0 ((,class :background ,bg-alt)))
+   `(outline-minor-0 ((,class ,@(unless modus-vivendi-theme-section-headings
+                                  (list :background bg-alt)))))
 ;;;;; package (M-x list-packages)
    `(package-description ((,class :foreground ,fg-special-cold)))
    `(package-help-section-name ((,class :inherit bold :foreground 
,magenta-alt-other)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]