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

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

[elpa] externals/org-modern 7c756db91b 06/65: Simplify faces using defau


From: ELPA Syncer
Subject: [elpa] externals/org-modern 7c756db91b 06/65: Simplify faces using default specification
Date: Mon, 7 Mar 2022 12:57:44 -0500 (EST)

branch: externals/org-modern
commit 7c756db91b2f54c88910b19ed31f7c4a98e495c0
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Simplify faces using default specification
---
 org-modern.el | 25 ++++++++++---------------
 1 file changed, 10 insertions(+), 15 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index bbe578570f..88040df1e9 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -138,19 +138,15 @@ Set to nil to disable the progress bar."
   "Face used for block keywords.")
 
 (defface org-modern-tag
-  '((((background light))
-     :inherit (secondary-selection org-modern-label)
-     :foreground "black")
-    (t :inherit (secondary-selection org-modern-label)
-       :foreground "white"))
+  '((default :inherit (secondary-selection org-modern-label))
+    (((background light)) :foreground "black")
+    (t :foreground "white"))
   "Face used for tag labels.")
 
 (defface org-modern-done
-  '((((background light))
-     :inherit org-modern-label
-     :background "gray90" :foreground "black")
-    (t :inherit org-modern-label
-       :background "gray20" :foreground "white"))
+  '((default :inherit org-modern-label)
+    (((background light)) :background "gray90" :foreground "black")
+    (t :background "gray20" :foreground "white"))
   "Face used for done labels.")
 
 (defface org-modern-todo
@@ -187,15 +183,14 @@ Set to nil to disable the progress bar."
 
 (defface org-modern-time-inactive
   '((default :inherit org-modern-label :background "gray50")
-    (((background light))
-     :foreground "gray95")
+    (((background light)) :foreground "gray95")
     (t :foreground "gray5"))
   "Face used for inactive time labels.")
 
 (defface org-modern-horizontal-rule
-  '((((background light))
-     :strike-through "gray70" :inherit org-hide)
-    (t :strike-through "gray30" :inherit org-hide))
+  '((default :inherit org-hide)
+    (((background light)) :strike-through "gray70")
+    (t :strike-through "gray30"))
   "Face used for horizontal ruler.")
 
 (defvar-local org-modern--keywords nil



reply via email to

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