emacs/protesilaos.modus-themes
1
0
Fork 0
mirror of https://github.com/protesilaos/modus-themes.git synced 2026-09-10 07:16:30 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Define modus-themes-faces-deuteranopia and modus-themes-faces-tritanopia

Browse source 
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.
This commit is contained in:
Protesilaos Stavrou 2025-11-19 07:28:04 +02:00
parent 065fbe15e7
commit 81862dfa99
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
5 changed files with 28 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
modus-operandi-deuteranopia-theme.el
View file

@ -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

3
modus-operandi-tritanopia-theme.el
View file

@ -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

20
modus-themes.el
View file

@ -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

3
modus-vivendi-deuteranopia-theme.el
View file

@ -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

3
modus-vivendi-tritanopia-theme.el
View file

@ -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