branch: externals/modus-themes
commit 1d0348fc64cfa9b6232b1325d73d55b6ff66ac84
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>

    Stop hardcoding colour values for the three Gnus mail groups
---
 modus-themes.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/modus-themes.el b/modus-themes.el
index 87fd951df4..c54bc2de99 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -5546,13 +5546,13 @@ If COLOR is unspecified, then return :box unspecified."
     `(gnus-emphasis-underline-bold ((,c :inherit gnus-emphasis-bold :underline 
t)))
     `(gnus-emphasis-underline-bold-italic ((,c :inherit 
gnus-emphasis-bold-italic :underline t)))
     `(gnus-emphasis-underline-italic ((,c :inherit gnus-emphasis-italic 
:underline t)))
-    `(gnus-group-mail-1 ((,c :inherit bold :foreground ,magenta-warmer)))
-    `(gnus-group-mail-1-empty ((,c :foreground ,magenta-warmer)))
-    `(gnus-group-mail-2 ((,c :inherit modus-themes-bold :foreground 
,magenta-warmer)))
-    `(gnus-group-mail-2-empty ((,c :foreground ,magenta)))
-    `(gnus-group-mail-3 ((,c :inherit modus-themes-bold :foreground ,magenta)))
-    `(gnus-group-mail-3-empty ((,c :foreground ,magenta-cooler)))
-    `(gnus-group-mail-low ((,c :inherit modus-themes-bold :foreground 
,magenta-cooler)))
+    `(gnus-group-mail-1 ((,c :inherit bold :foreground ,accent-0)))
+    `(gnus-group-mail-1-empty ((,c :foreground ,accent-0)))
+    `(gnus-group-mail-2 ((,c :inherit modus-themes-bold :foreground 
,accent-1)))
+    `(gnus-group-mail-2-empty ((,c :foreground ,accent-1)))
+    `(gnus-group-mail-3 ((,c :inherit modus-themes-bold :foreground 
,accent-2)))
+    `(gnus-group-mail-3-empty ((,c :foreground ,accent-2)))
+    `(gnus-group-mail-low ((,c :inherit modus-themes-bold :foreground 
,fg-dim)))
     `(gnus-group-mail-low-empty ((,c :foreground ,fg-dim)))
     `(gnus-group-news-1 ((,c :inherit modus-themes-bold :foreground ,green)))
     `(gnus-group-news-1-empty ((,c :foreground ,green)))

Reply via email to