[elpa] externals/modus-operandi-theme 5435753 14/99: Refine 'org-todo' for "rainbow headings" option

[Stefan Monnier]

branch: externals/modus-operandi-theme
commit 54357533be4867ab6fb1f46c2fb3a8e682070f40
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Refine 'org-todo' for "rainbow headings" option
    
    A different variant of red is used when the "rainbow headings" option is
    enabled.
    
    This particular tweak accounts for commit abafe51d1, in order to make
    the keywords sufficiently distinct from deadlines in the agenda views.
---
 modus-operandi-theme.el | 2 +-
 modus-vivendi-theme.el  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index b622d11..72f1158 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -2775,7 +2775,7 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(org-target ((,class :underline t)))
    `(org-time-grid ((,class :foreground ,fg-unfocused)))
    `(org-todo ((,class ,@(modus-operandi-theme-org-todo-block red-nuanced-bg 
red-nuanced red-alt)
-                       ,@(modus-operandi-theme-heading-foreground red-alt 
red-alt-other))))
+                       ,@(modus-operandi-theme-heading-foreground red-alt 
red))))
    `(org-upcoming-deadline ((,class :foreground ,red-alt-other)))
    `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced)))
    `(org-verbatim ((,class :inherit fixed-pitch :background ,bg-alt 
:foreground ,fg-special-calm)))
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index 896fe3b..ac8c7e8 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -2775,7 +2775,7 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(org-target ((,class :underline t)))
    `(org-time-grid ((,class :foreground ,fg-unfocused)))
    `(org-todo ((,class ,@(modus-vivendi-theme-org-todo-block red-nuanced-bg 
red-nuanced red-alt)
-                       ,@(modus-vivendi-theme-heading-foreground red-alt 
red-alt-other))))
+                       ,@(modus-vivendi-theme-heading-foreground red-alt 
red))))
    `(org-upcoming-deadline ((,class :foreground ,red-alt-other)))
    `(org-upcoming-distant-deadline ((,class :foreground ,red-nuanced)))
    `(org-verbatim ((,class :inherit fixed-pitch :background ,bg-alt 
:foreground ,fg-special-calm)))