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

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

[elpa] externals/aircon-theme 3668a56c25 31/58: Style some message faces


From: ELPA Syncer
Subject: [elpa] externals/aircon-theme 3668a56c25 31/58: Style some message faces
Date: Thu, 9 Jun 2022 04:57:29 -0400 (EDT)

branch: externals/aircon-theme
commit 3668a56c25fca9f923765e45fc1d1f01d42ab28b
Author: Gregory Chamberlain <greg@cosine.blue>
Commit: Gregory Chamberlain <greg@cosine.blue>

    Style some message faces
    
    Some Gnus faces are now inherited from these message faces as well.
---
 aircon-theme.el | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/aircon-theme.el b/aircon-theme.el
index 1667f2e71b..fc0e0f2553 100644
--- a/aircon-theme.el
+++ b/aircon-theme.el
@@ -239,17 +239,25 @@
  '(erc-prompt-face         ((t (:inherit minibuffer-prompt))))
  '(erc-timestamp-face      ((t (:inherit aircon-eden))))
 
+ '(message-header-name         ((t (:inherit (aircon-sapphire bold)))))
+ '(message-header-other        ((t (:inherit (aircon-sandstone)))))
+ '(message-header-subject      ((t (:inherit (aircon-goblin bold)))))
+ '(message-header-to           ((t (:inherit (aircon-grape)))))
+ '(message-header-xheader      ((t (:inherit (aircon-hibiscus)))))
+ '(message-separator           ((t (:inherit (aircon-brick)))))
+ '(message-mml                 ((t (:inherit (aircon-goblin)))))
+
  '(gnus-group-mail-3-empty     ((t (:inherit (aircon-lilac)))))
 
- '(gnus-summary-selected       ((t (:inherit (aircon-linen)))))
+ '(gnus-summary-selected       ((t (:inherit (aircon-athens)))))
  '(gnus-summary-normal-read    ((t (:inherit (aircon-scorpion)))))
  '(gnus-summary-normal-ancient ((t (:inherit (aircon-sandstone)))))
  '(gnus-summary-normal-ticked  ((t (:inherit (aircon-sapphire)))))
 
- '(gnus-header-name            ((t (:inherit (aircon-sapphire bold)))))
- '(gnus-header-from            ((t (:inherit (aircon-grape)))))
- '(gnus-header-subject         ((t (:inherit (aircon-goblin bold)))))
- '(gnus-header-content         ((t (:inherit (aircon-sandstone)))))
+ '(gnus-header-name            ((t (:inherit (message-header-name)))))
+ '(gnus-header-from            ((t (:inherit (message-header-to)))))
+ '(gnus-header-subject         ((t (:inherit (message-header-subject)))))
+ '(gnus-header-content         ((t (:inherit (message-header-other)))))
 
  '(gnus-cite-1                 ((t (:inherit (aircon-cello)))))
 



reply via email to

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