[elpa] externals/modus-themes b503206a62 3/4: Introduce semantic colour mappings for marks

[ELPA Syncer]

branch: externals/modus-themes
commit b503206a62735955f3066f14fffc906464df8a8f
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Introduce semantic colour mappings for marks
    
    These are encountered in various buffers, such as Dired and Trashed.
---
 modus-operandi-deuteranopia-theme.el | 9 +++++++++
 modus-operandi-theme.el              | 9 +++++++++
 modus-operandi-tinted-theme.el       | 9 +++++++++
 modus-themes.el                      | 6 +++---
 modus-vivendi-deuteranopia-theme.el  | 9 +++++++++
 modus-vivendi-theme.el               | 9 +++++++++
 modus-vivendi-tinted-theme.el        | 9 +++++++++
 7 files changed, 57 insertions(+), 3 deletions(-)

diff --git a/modus-operandi-deuteranopia-theme.el 
b/modus-operandi-deuteranopia-theme.el
index 7da9145f9f..45daca63d7 100644
--- a/modus-operandi-deuteranopia-theme.el
+++ b/modus-operandi-deuteranopia-theme.el
@@ -315,6 +315,15 @@ standard).")
       (mail-subject yellow-warmer)
       (mail-other cyan-faint)
 
+;;;; Mark mappings
+
+      (bg-mark-delete bg-yellow-subtle)
+      (fg-mark-delete yellow)
+      (bg-mark-select bg-cyan-subtle)
+      (fg-mark-select cyan)
+      (bg-mark-other bg-magenta-subtle)
+      (fg-mark-other magenta)
+
 ;;;; Prompt mappings
 
       (fg-prompt blue)
diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index 4b27163d13..65207f3ea4 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -313,6 +313,15 @@ which corresponds to a minimum contrast in relative 
luminance of
       (mail-subject magenta-warmer)
       (mail-other magenta-faint)
 
+;;;; Mark mappings
+
+      (bg-mark-delete bg-red-subtle)
+      (fg-mark-delete red)
+      (bg-mark-select bg-cyan-subtle)
+      (fg-mark-select cyan)
+      (bg-mark-other bg-yellow-subtle)
+      (fg-mark-other yellow)
+
 ;;;; Prompt mappings
 
       (fg-prompt cyan-cooler)
diff --git a/modus-operandi-tinted-theme.el b/modus-operandi-tinted-theme.el
index f03ac39ff5..ff271ff28e 100644
--- a/modus-operandi-tinted-theme.el
+++ b/modus-operandi-tinted-theme.el
@@ -312,6 +312,15 @@ which corresponds to a minimum contrast in relative 
luminance of
       (mail-subject magenta-warmer)
       (mail-other magenta-faint)
 
+;;;; Mark mappings
+
+      (bg-mark-delete bg-red-subtle)
+      (fg-mark-delete red)
+      (bg-mark-select bg-cyan-subtle)
+      (fg-mark-select cyan)
+      (bg-mark-other bg-yellow-subtle)
+      (fg-mark-other yellow)
+
 ;;;; Prompt mappings
 
       (fg-prompt cyan-cooler)
diff --git a/modus-themes.el b/modus-themes.el
index f675fc6c92..9a6e8483ce 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -1672,9 +1672,9 @@ FG and BG are the main colors."
     `(modus-themes-intense-cyan ((,c :background ,bg-cyan-intense :foreground 
,fg-main)))
 ;;;;; mark indicators
     ;; color combinations intended for Dired, Ibuffer, or equivalent
-    `(modus-themes-mark-alt ((,c :inherit bold :background ,bg-yellow-subtle 
:foreground ,yellow)))
-    `(modus-themes-mark-del ((,c :inherit bold :background ,bg-red-subtle 
:foreground ,red)))
-    `(modus-themes-mark-sel ((,c :inherit bold :background ,bg-cyan-subtle 
:foreground ,cyan)))
+    `(modus-themes-mark-alt ((,c :inherit bold :background ,bg-mark-other 
:foreground ,fg-mark-other)))
+    `(modus-themes-mark-del ((,c :inherit bold :background ,bg-mark-delete 
:foreground ,fg-mark-delete)))
+    `(modus-themes-mark-sel ((,c :inherit bold :background ,bg-mark-select 
:foreground ,fg-mark-select)))
 ;;;;; heading levels
     ;; styles for regular headings used in Org, Markdown, Info, etc.
     `(modus-themes-heading-0 ((,c ,@(modus-themes--heading 0 fg-heading-0 
bg-heading-0 overline-heading-0))))
diff --git a/modus-vivendi-deuteranopia-theme.el 
b/modus-vivendi-deuteranopia-theme.el
index 7f3db06993..b01e590699 100644
--- a/modus-vivendi-deuteranopia-theme.el
+++ b/modus-vivendi-deuteranopia-theme.el
@@ -314,6 +314,15 @@ standard).")
       (mail-subject yellow-warmer)
       (mail-other cyan-faint)
 
+;;;; Mark mappings
+
+      (bg-mark-delete bg-yellow-subtle)
+      (fg-mark-delete yellow)
+      (bg-mark-select bg-cyan-subtle)
+      (fg-mark-select cyan)
+      (bg-mark-other bg-magenta-subtle)
+      (fg-mark-other magenta-warmer)
+
 ;;;; Prompt mappings
 
       (fg-prompt blue)
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index 655f267b92..7cf06d1fb8 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -312,6 +312,15 @@ which corresponds to a minimum contrast in relative 
luminance of
       (mail-subject magenta-warmer)
       (mail-other magenta-faint)
 
+;;;; Mark mappings
+
+      (bg-mark-delete bg-red-subtle)
+      (fg-mark-delete red-cooler)
+      (bg-mark-select bg-cyan-subtle)
+      (fg-mark-select cyan)
+      (bg-mark-other bg-yellow-subtle)
+      (fg-mark-other yellow)
+
 ;;;; Prompt mappings
 
       (fg-prompt cyan-cooler)
diff --git a/modus-vivendi-tinted-theme.el b/modus-vivendi-tinted-theme.el
index 1f8a276cdb..e990b93d3b 100644
--- a/modus-vivendi-tinted-theme.el
+++ b/modus-vivendi-tinted-theme.el
@@ -312,6 +312,15 @@ which corresponds to a minimum contrast in relative 
luminance of
       (mail-subject magenta-warmer)
       (mail-other magenta-faint)
 
+;;;; Mark mappings
+
+      (bg-mark-delete bg-red-subtle)
+      (fg-mark-delete red-cooler)
+      (bg-mark-select bg-cyan-subtle)
+      (fg-mark-select cyan)
+      (bg-mark-other bg-yellow-subtle)
+      (fg-mark-other yellow)
+
 ;;;; Prompt mappings
 
       (fg-prompt cyan-cooler)