branch: externals/modus-themes
commit bd28200a5b6a2bdd332465698857e319c0a1d38d
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Reduce the amount of magenta in some parts of the deuteranopia variants
---
modus-operandi-deuteranopia-theme.el | 18 +++++++++---------
modus-vivendi-deuteranopia-theme.el | 14 +++++++-------
2 files changed, 16 insertions(+), 16 deletions(-)
diff --git a/modus-operandi-deuteranopia-theme.el
b/modus-operandi-deuteranopia-theme.el
index 61055564f1..28348b5caa 100644
--- a/modus-operandi-deuteranopia-theme.el
+++ b/modus-operandi-deuteranopia-theme.el
@@ -257,17 +257,17 @@ standard)."
;;;; Code mappings
(bracket fg-main)
- (builtin magenta-warmer)
+ (builtin yellow)
(comment yellow-cooler)
- (constant blue-cooler)
+ (constant blue-faint)
(delimiter fg-main)
(docmarkup magenta-faint)
(docstring green-faint)
- (fnname magenta)
- (keyword magenta-cooler)
+ (fnname yellow-warmer)
+ (keyword blue-cooler)
(number fg-main)
(operator fg-main)
- (preprocessor red-cooler)
+ (preprocessor magenta-cooler)
(punctuation fg-main)
(rx-backslash blue-cooler)
(rx-construct yellow-cooler)
@@ -277,10 +277,10 @@ standard)."
;;;; Accent mappings
- (accent-0 blue)
+ (accent-0 blue-warmer)
(accent-1 yellow-warmer)
(accent-2 cyan)
- (accent-3 magenta-cooler)
+ (accent-3 yellow-cooler)
;;;; Button mappings
@@ -291,10 +291,10 @@ standard)."
;;;; Completion mappings
- (fg-completion-match-0 blue)
+ (fg-completion-match-0 blue-warmer)
(fg-completion-match-1 yellow-warmer)
(fg-completion-match-2 cyan)
- (fg-completion-match-3 magenta-cooler)
+ (fg-completion-match-3 yellow-cooler)
(bg-completion-match-0 unspecified)
(bg-completion-match-1 unspecified)
(bg-completion-match-2 unspecified)
diff --git a/modus-vivendi-deuteranopia-theme.el
b/modus-vivendi-deuteranopia-theme.el
index dc02a39bd0..23d94d2108 100644
--- a/modus-vivendi-deuteranopia-theme.el
+++ b/modus-vivendi-deuteranopia-theme.el
@@ -257,17 +257,17 @@ standard)."
;;;; Code mappings
(bracket fg-main)
- (builtin magenta-warmer)
+ (builtin yellow)
(comment yellow-cooler)
- (constant blue-cooler)
+ (constant blue-faint)
(delimiter fg-main)
(docmarkup magenta-faint)
(docstring cyan-faint)
- (fnname magenta)
- (keyword magenta-cooler)
+ (fnname yellow-warmer)
+ (keyword blue-cooler)
(number fg-main)
(operator fg-main)
- (preprocessor red-cooler)
+ (preprocessor magenta-cooler)
(punctuation fg-main)
(rx-backslash blue-cooler)
(rx-construct yellow-cooler)
@@ -280,7 +280,7 @@ standard)."
(accent-0 blue-cooler)
(accent-1 yellow)
(accent-2 cyan-cooler)
- (accent-3 magenta-warmer)
+ (accent-3 yellow-cooler)
;;;; Button mappings
@@ -294,7 +294,7 @@ standard)."
(fg-completion-match-0 blue-cooler)
(fg-completion-match-1 yellow)
(fg-completion-match-2 cyan-cooler)
- (fg-completion-match-3 magenta-warmer)
+ (fg-completion-match-3 yellow-cooler)
(bg-completion-match-0 unspecified)
(bg-completion-match-1 unspecified)
(bg-completion-match-2 unspecified)
