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

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

[elpa] externals/modus-vivendi-theme 1c605b3 085/110: Internal: improve


From: Stefan Monnier
Subject: [elpa] externals/modus-vivendi-theme 1c605b3 085/110: Internal: improve function of "section headings"
Date: Wed, 29 Apr 2020 21:40:13 -0400 (EDT)

branch: externals/modus-vivendi-theme
commit 1c605b370acf9b23505ac6900a54f1b50860cf8d
Author: Protesilaos Stavrou <address@hidden>
Commit: Protesilaos Stavrou <address@hidden>

    Internal: improve function of "section headings"
    
    This is to avoid the case the user unsets the variable only to be
    confronted with an undesired background colour.
---
 modus-operandi-theme.el | 5 +++--
 modus-vivendi-theme.el  | 5 +++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index 02ad7e2..ed28477 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -434,8 +434,9 @@ RAINBOW is the saturated one."
 (defun modus-operandi-theme-heading-block (bg fg)
   "Conditionally extend heading styles.
 Apply BG to background and FG to overline."
-  (when modus-operandi-theme-section-headings
-    (list :background bg :overline fg)))
+  (if modus-operandi-theme-section-headings
+      (list :background bg :overline fg)
+    (list :background nil :overline nil)))
 
 (defun modus-operandi-theme-org-todo-block (bgbox fgbox fg)
   "Conditionally extend the styles of Org keywords.
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index b4c042d..94481ae 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -434,8 +434,9 @@ RAINBOW is the saturated one."
 (defun modus-vivendi-theme-heading-block (bg fg)
   "Conditionally extend heading styles.
 Apply BG to background and FG to overline."
-  (when modus-vivendi-theme-section-headings
-    (list :background bg :overline fg)))
+  (if modus-vivendi-theme-section-headings
+      (list :background bg :overline fg)
+    (list :background nil :overline nil)))
 
 (defun modus-vivendi-theme-org-todo-block (bgbox fgbox fg)
   "Conditionally extend the styles of Org keywords.



reply via email to

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