branch: externals/doric-themes
commit c69f64e37e98e0940777572d32fc9defbefe843d
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>

    Use an odd/even colouring scheme for message citations
---
 doric-themes.el | 51 +++++++++++++++++++++++++++++----------------------
 1 file changed, 29 insertions(+), 22 deletions(-)

diff --git a/doric-themes.el b/doric-themes.el
index d713bcf2b7..15c8722293 100644
--- a/doric-themes.el
+++ b/doric-themes.el
@@ -1080,17 +1080,6 @@ Run `doric-themes-after-load-theme-hook' after loading a 
theme."
     git-commit-comment-file
     git-commit-nonempty-second-line
     git-commit-overlong-summary
-    gnus-cite-1
-    gnus-cite-10
-    gnus-cite-11
-    gnus-cite-2
-    gnus-cite-3
-    gnus-cite-4
-    gnus-cite-5
-    gnus-cite-6
-    gnus-cite-7
-    gnus-cite-8
-    gnus-cite-9
     gnus-cite-attribution
     gnus-emphasis-italic
     gnus-group-mail-1-empty
@@ -1118,17 +1107,6 @@ Run `doric-themes-after-load-theme-hook' after loading a 
theme."
     magit-mode-line-process-error
     markdown-blockquote-face
     markdown-inline-code-face
-    message-cited-text-1
-    message-cited-text-2
-    message-cited-text-3
-    message-cited-text-4
-    mu4e-cited-1-face
-    mu4e-cited-2-face
-    mu4e-cited-3-face
-    mu4e-cited-4-face
-    mu4e-cited-5-face
-    mu4e-cited-6-face
-    mu4e-cited-7-face
     notmuch-wash-cited-text
     org-agenda-calendar-event
     org-agenda-calendar-sexp
@@ -1293,6 +1271,32 @@ Run `doric-themes-after-load-theme-hook' after loading a 
theme."
   '(flycheck-info
     flymake-note))
 
+(defconst doric-themes-cite-odd
+  '(gnus-cite-1
+    gnus-cite-3
+    gnus-cite-5
+    gnus-cite-7
+    gnus-cite-9
+    gnus-cite-11
+    message-cited-text-1
+    message-cited-text-3
+    mu4e-cited-1-face
+    mu4e-cited-3-face
+    mu4e-cited-5-face
+    mu4e-cited-7-face))
+
+(defconst doric-themes-cite-even
+  '(gnus-cite-2
+    gnus-cite-4
+    gnus-cite-6
+    gnus-cite-8
+    gnus-cite-10
+    message-cited-text-2
+    message-cited-text-4
+    mu4e-cited-2-face
+    mu4e-cited-4-face
+    mu4e-cited-6-face))
+
 (defun doric-themes-prepare-faces (&rest faces-and-attributes)
   "Set faces to their respective attributes in FACES-AND-ATTRIBUTES."
   (pcase-let ((`(,faces . ,attributes) faces-and-attributes))
@@ -1409,6 +1413,9 @@ Run `doric-themes-after-load-theme-hook' after loading a 
theme."
             ,@(doric-themes-prepare-faces 
doric-themes-diff-removed-faces-foreground-only :foreground 'fg-red)
             ,@(doric-themes-prepare-faces 
doric-themes-diff-removed-refine-faces :inherit ''bold)
 
+            ,@(doric-themes-prepare-faces doric-themes-cite-odd :inherit 
''italic :foreground 'fg-accent)
+            ,@(doric-themes-prepare-faces doric-themes-cite-even :inherit 
''italic :foreground 'fg-shadow-subtle)
+
             '(embark-keybinding ((t :inherit (fixed-pitch bold-italic))))
 
             `(font-lock-comment-delimiter-face ((t :inherit italic :foreground 
,fg-accent)))

Reply via email to