branch: externals/modus-themes
commit 81862dfa99d2c572dd632cc7af4ba88f8fbc3dcb
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Define modus-themes-faces-deuteranopia and modus-themes-faces-tritanopia
These are meant to be applied as a deviation from modus-themes-faces,
as they are specific to the needs of users with the given colour deficiency.
---
modus-operandi-deuteranopia-theme.el | 3 ++-
modus-operandi-tritanopia-theme.el | 3 ++-
modus-themes.el | 20 ++++++++++++++++++++
modus-vivendi-deuteranopia-theme.el | 3 ++-
modus-vivendi-tritanopia-theme.el | 3 ++-
5 files changed, 28 insertions(+), 4 deletions(-)
diff --git a/modus-operandi-deuteranopia-theme.el
b/modus-operandi-deuteranopia-theme.el
index 1617b93367..912e850ef4 100644
--- a/modus-operandi-deuteranopia-theme.el
+++ b/modus-operandi-deuteranopia-theme.el
@@ -87,6 +87,7 @@ standard)."
'light
'modus-themes-operandi-deuteranopia-palette
'modus-operandi-deuteranopia-palette-user
- 'modus-operandi-deuteranopia-palette-overrides)
+ 'modus-operandi-deuteranopia-palette-overrides
+ 'modus-themes-faces-deuteranopia)
;;; modus-operandi-deuteranopia-theme.el ends here
diff --git a/modus-operandi-tritanopia-theme.el
b/modus-operandi-tritanopia-theme.el
index dfbdc1e177..1f736028b9 100644
--- a/modus-operandi-tritanopia-theme.el
+++ b/modus-operandi-tritanopia-theme.el
@@ -87,6 +87,7 @@ standard)."
'light
'modus-themes-operandi-tritanopia-palette
'modus-operandi-tritanopia-palette-user
- 'modus-operandi-tritanopia-palette-overrides)
+ 'modus-operandi-tritanopia-palette-overrides
+ 'modus-themes-faces-tritanopia)
;;; modus-operandi-tritanopia-theme.el ends here
diff --git a/modus-themes.el b/modus-themes.el
index 699660875d..fed8501913 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -7162,6 +7162,26 @@ FG and BG are the main colors."
`(ztreep-node-face ((,c :foreground ,accent-0))))
"Face specs for use with `modus-themes-theme'.")
+(defconst modus-themes-faces-deuteranopia
+ '(
+ `(transient-key-exit ((,c :inherit (bold modus-themes-fixed-pitch)
:foreground ,yellow-warmer)))
+ `(transient-key-noop ((,c :inherit modus-themes-fixed-pitch :foreground
,fg-dim)))
+ `(transient-key-recurse ((,c :inherit (bold modus-themes-fixed-pitch)
:foreground ,fg-main)))
+ `(transient-key-return ((,c :inherit (bold modus-themes-fixed-pitch)
:foreground ,yellow-cooler)))
+ `(transient-key-stack ((,c :inherit (bold modus-themes-fixed-pitch)
:foreground ,blue-cooler)))
+ `(transient-key-stay ((,c :inherit (bold modus-themes-fixed-pitch)
:foreground ,cyan-faint))))
+ "Faces that must be used by themes that are optimized for deuteranopia.")
+
+(defconst modus-themes-faces-tritanopia
+ '(
+ `(transient-key-exit ((,c :inherit (bold modus-themes-fixed-pitch)
:foreground ,red-warmer)))
+ `(transient-key-noop ((,c :inherit modus-themes-fixed-pitch :foreground
,fg-dim)))
+ `(transient-key-recurse ((,c :inherit (bold modus-themes-fixed-pitch)
:foreground ,fg-main)))
+ `(transient-key-return ((,c :inherit (bold modus-themes-fixed-pitch)
:foreground ,magenta)))
+ `(transient-key-stack ((,c :inherit (bold modus-themes-fixed-pitch)
:foreground ,cyan)))
+ `(transient-key-stay ((,c :inherit (bold modus-themes-fixed-pitch)
:foreground ,cyan-faint))))
+ "Faces that must be used by themes that are optimized for tritanopia.")
+
(defconst modus-themes-custom-variables
'(
;;;; ansi-colors
diff --git a/modus-vivendi-deuteranopia-theme.el
b/modus-vivendi-deuteranopia-theme.el
index 5706676863..2aa4d193ae 100644
--- a/modus-vivendi-deuteranopia-theme.el
+++ b/modus-vivendi-deuteranopia-theme.el
@@ -87,6 +87,7 @@ standard)."
'dark
'modus-themes-vivendi-deuteranopia-palette
'modus-vivendi-deuteranopia-palette-user
- 'modus-vivendi-deuteranopia-palette-overrides)
+ 'modus-vivendi-deuteranopia-palette-overrides
+ 'modus-themes-faces-deuteranopia)
;;; modus-vivendi-deuteranopia-theme.el ends here
diff --git a/modus-vivendi-tritanopia-theme.el
b/modus-vivendi-tritanopia-theme.el
index aeecdeaf9b..898e86fcc4 100644
--- a/modus-vivendi-tritanopia-theme.el
+++ b/modus-vivendi-tritanopia-theme.el
@@ -87,6 +87,7 @@ standard)."
'dark
'modus-themes-vivendi-tritanopia-palette
'modus-vivendi-tritanopia-palette-user
- 'modus-vivendi-tritanopia-palette-overrides)
+ 'modus-vivendi-tritanopia-palette-overrides
+ 'modus-themes-faces-tritanopia)
;;; modus-vivendi-tritanopia-theme.el ends here
