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

    Revise the faces for calendar and org-agenda date headings
---
 doric-themes.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/doric-themes.el b/doric-themes.el
index 3fa0dd4c51..9a057d6326 100644
--- a/doric-themes.el
+++ b/doric-themes.el
@@ -762,8 +762,6 @@ Run `doric-themes-after-load-theme-hook' after loading a 
theme."
     notmuch-tag-unread
     notmuch-tag-flagged
     org-agenda-current-time
-    org-agenda-date
-    org-agenda-date-weekend
     org-agenda-filter-category
     org-agenda-filter-effort
     org-agenda-filter-regexp
@@ -808,7 +806,6 @@ Run `doric-themes-after-load-theme-hook' after loading a 
theme."
     breadcrumb-imenu-leaf-face
     breadcrumb-project-leaf-face
     buffer-menu-buffer
-    calendar-weekday-header
     change-log-name
     change-log-file
     circe-prompt-face
@@ -924,8 +921,6 @@ Run `doric-themes-after-load-theme-hook' after loading a 
theme."
     minibuffer-prompt
     mode-line-buffer-id
     mode-line-emphasis
-    org-agenda-date-today
-    org-agenda-date-weekend-today
     org-agenda-structure
     org-checkbox-statistics-done
     org-checkbox-statistics-todo
@@ -990,13 +985,15 @@ Run `doric-themes-after-load-theme-hook' after loading a 
theme."
     ztreep-header-face))
 
 (defconst doric-themes-bold-intense-faces
-  '(elfeed-search-unread-title-face
+  '(calendar-weekday-header
+    elfeed-search-unread-title-face
     git-commit-comment-heading
     git-commit-summary
     log-edit-header
     magit-section-heading
     markdown-metadata-key-face
     message-header-name
+    org-agenda-date
     package-help-section-name))
 
 (defconst doric-themes-bold-italic-faces
@@ -1528,7 +1525,11 @@ default a generic text that mentions the 
BACKGROUND-MODE."
             `(notmuch-message-summary-face
               ((default :background ,bg-shadow-subtle)
                (((supports :overline t))
-                 :overline ,fg-shadow-subtle)))
+                :overline ,fg-shadow-subtle)))
+
+            `(org-agenda-date-weekend ((t :inherit (bold shadow))))
+            `(org-agenda-date-today ((t :inherit (underline org-agenda-date))))
+            `(org-agenda-date-weekend-today ((t :inherit (underline 
org-agenda-date-weekend))))
 
             `(org-block ((t :inherit fixed-pitch :background ,bg-shadow-subtle 
:extend t)))
             `(org-block-begin-line ((t :inherit fixed-pitch :background 
,bg-neutral :foreground ,fg-neutral :extend t)))

Reply via email to