branch: elpa/dracula-theme
commit e04388861873156685a3b214aa7f150987d12a27
Author: Tassilo Horn <[email protected]>
Commit: GitHub <[email protected]>
Update and add more Gnus Summary faces
The current Gnus summary face definitions where very hard to read,
especially when using `hl-line-mode` which I guess is quite common.
With that, read messages' foreground color equaled the hl-line-face's
background color.
I also defined the high- and low-score versions of the faces in a
consistent way, and introduced some simple and consistent
scheme:
* Unread articles have bold weight
* Read articles have normal weight
* Ticked articles are underlined
* Higher score means brighter than lower score
---
dracula-theme.el | 16 ++++++++++++----
1 file changed, 12 insertions(+), 4 deletions(-)
diff --git a/dracula-theme.el b/dracula-theme.el
index b580e8b..4824682 100644
--- a/dracula-theme.el
+++ b/dracula-theme.el
@@ -143,10 +143,18 @@
(gnus-header-name :foreground ,type)
(gnus-header-subject :foreground ,func :bold t)
(gnus-summary-markup-face :foreground ,const)
- (gnus-summary-normal-ancient :inherit gnus-summary-normal-read)
- (gnus-summary-normal-read :foreground ,bg5 :weight normal)
- (gnus-summary-normal-ticked :foreground ,keyword :weight light)
- (gnus-summary-normal-unread :foreground ,comment :weight normal)
+ (gnus-summary-high-unread :foreground ,keyword :weight bold)
+ (gnus-summary-high-read :inherit gnus-summary-normal-unread
:weight normal)
+ (gnus-summary-high-ancient :inherit gnus-summary-normal-read)
+ (gnus-summary-high-ticked :inherit gnus-summary-normal-read
:underline t)
+ (gnus-summary-normal-unread :foreground ,key2 :weight bold)
+ (gnus-summary-normal-read :inherit gnus-summary-normal-unread
:weight normal)
+ (gnus-summary-normal-ancient :inherit gnus-summary-normal-read)
+ (gnus-summary-normal-ticked :inherit gnus-summary-normal-read
:underline t)
+ (gnus-summary-low-unread :foreground ,comment :weight bold)
+ (gnus-summary-low-read :inherit gnus-summary-normal-unread
:weight normal)
+ (gnus-summary-low-ancient :inherit gnus-summary-normal-read)
+ (gnus-summary-low-ticked :inherit gnus-summary-normal-read
:underline t)
(gnus-summary-selected :inverse-video t)
;; helm
(helm-bookmark-w3m :foreground ,type)