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

Add more semantic palette mappings for code constructs

Browse source
This commit is contained in:
Protesilaos Stavrou 2024-07-09 09:38:40 +03:00
parent c4ebbfd210
commit a9f709e344
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
9 changed files with 69 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -256,19 +256,24 @@ standard)."
;;;; Code mappings
(bracket fg-main)
(builtin magenta-warmer)
(comment yellow-cooler)
(constant blue-cooler)
(docstring green-faint)
(delimiter fg-main)
(docmarkup magenta-faint)
(docstring green-faint)
(fnname magenta)
(keyword magenta-cooler)
(number fg-main)
(operator fg-main)
(preprocessor red-cooler)
(punctuation fg-main)
(rx-backslash blue-cooler)
(rx-construct yellow-cooler)
(string blue-warmer)
(type cyan-cooler)
(variable cyan)
(rx-construct yellow-cooler)
(rx-backslash blue-cooler)
;;;; Accent mappings

11
modus-operandi-theme.el
View file

@ -254,19 +254,24 @@ which corresponds to a minimum contrast in relative luminance of
;;;; Code mappings
(bracket fg-main)
(builtin magenta-warmer)
(comment fg-dim)
(constant blue-cooler)
(docstring green-faint)
(delimiter fg-main)
(docmarkup magenta-faint)
(docstring green-faint)
(fnname magenta)
(keyword magenta-cooler)
(number fg-main)
(operator fg-main)
(preprocessor red-cooler)
(punctuation fg-main)
(rx-backslash magenta)
(rx-construct green-cooler)
(string blue-warmer)
(type cyan-cooler)
(variable cyan)
(rx-construct green-cooler)
(rx-backslash magenta)
;;;; Accent mappings

11
modus-operandi-tinted-theme.el
View file

@ -254,19 +254,24 @@ which corresponds to a minimum contrast in relative luminance of
;;;; Code mappings
(bracket fg-main)
(builtin magenta-warmer)
(comment red-faint)
(constant blue-cooler)
(docstring green-faint)
(delimiter fg-main)
(docmarkup magenta-faint)
(docstring green-faint)
(fnname magenta)
(keyword magenta-cooler)
(number fg-main)
(operator fg-main)
(preprocessor red-cooler)
(punctuation fg-main)
(rx-backslash magenta)
(rx-construct green-cooler)
(string blue-warmer)
(type cyan-cooler)
(variable cyan)
(rx-construct green-cooler)
(rx-backslash magenta)
;;;; Accent mappings

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

@ -256,19 +256,24 @@ standard)."
;;;; Code mappings
(bracket fg-main)
(builtin magenta)
(comment red-faint)
(constant green-cooler)
(docstring fg-alt)
(delimiter fg-main)
(docmarkup magenta-faint)
(docstring fg-alt)
(fnname cyan-warmer)
(keyword red-cooler)
(number fg-main)
(operator fg-main)
(preprocessor red-warmer)
(punctuation fg-main)
(rx-backslash magenta)
(rx-construct red)
(string cyan)
(type blue-warmer)
(variable cyan-cooler)
(rx-construct red)
(rx-backslash magenta)
;;;; Accent mappings

5
modus-themes.el
View file

@ -2418,16 +2418,21 @@ FG and BG are the main colors."
;;;;; fold-this
`(fold-this-overlay ((,c :background ,bg-inactive)))
;;;;; font-lock
`(font-lock-bracket-face ((,c :foreground ,bracket)))
`(font-lock-builtin-face ((,c :inherit modus-themes-bold :foreground ,builtin)))
`(font-lock-comment-delimiter-face ((,c :inherit font-lock-comment-face)))
`(font-lock-comment-face ((,c :inherit modus-themes-slant :foreground ,comment)))
`(font-lock-constant-face ((,c :foreground ,constant)))
`(font-lock-delimiter-face ((,c :foreground ,delimiter)))
`(font-lock-doc-face ((,c :inherit modus-themes-slant :foreground ,docstring)))
`(font-lock-doc-markup-face ((,c :inherit modus-themes-slant :foreground ,docmarkup)))
`(font-lock-function-name-face ((,c :foreground ,fnname)))
`(font-lock-keyword-face ((,c :inherit modus-themes-bold :foreground ,keyword)))
`(font-lock-negation-char-face ((,c :inherit error)))
`(font-lock-number-face ((,c :foreground ,number)))
`(font-lock-operator-face ((,c :foreground ,operator)))
`(font-lock-preprocessor-face ((,c :foreground ,preprocessor)))
`(font-lock-punctuation-face ((,c :foreground ,punctuation)))
`(font-lock-regexp-grouping-backslash ((,c :inherit modus-themes-bold :foreground ,rx-backslash)))
`(font-lock-regexp-grouping-construct ((,c :inherit modus-themes-bold :foreground ,rx-construct)))
`(font-lock-string-face ((,c :foreground ,string)))

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

@ -256,19 +256,24 @@ standard)."
;;;; Code mappings
(bracket fg-main)
(builtin magenta-warmer)
(comment yellow-cooler)
(constant blue-cooler)
(docstring cyan-faint)
(delimiter fg-main)
(docmarkup magenta-faint)
(docstring cyan-faint)
(fnname magenta)
(keyword magenta-cooler)
(number fg-main)
(operator fg-main)
(preprocessor red-cooler)
(punctuation fg-main)
(rx-backslash blue-cooler)
(rx-construct yellow-cooler)
(string blue-warmer)
(type cyan-cooler)
(variable cyan)
(rx-construct yellow-cooler)
(rx-backslash blue-cooler)
;;;; Accent mappings

11
modus-vivendi-theme.el
View file

@ -254,19 +254,24 @@ which corresponds to a minimum contrast in relative luminance of
;;;; Code mappings
(bracket fg-main)
(builtin magenta-warmer)
(comment fg-dim)
(constant blue-cooler)
(docstring cyan-faint)
(delimiter fg-main)
(docmarkup magenta-faint)
(docstring cyan-faint)
(fnname magenta)
(keyword magenta-cooler)
(number fg-main)
(operator fg-main)
(preprocessor red-cooler)
(punctuation fg-main)
(rx-backslash magenta)
(rx-construct green-cooler)
(string blue-warmer)
(type cyan-cooler)
(variable cyan)
(rx-construct green-cooler)
(rx-backslash magenta)
;;;; Accent mappings

11
modus-vivendi-tinted-theme.el
View file

@ -254,19 +254,24 @@ which corresponds to a minimum contrast in relative luminance of
;;;; Code mappings
(bracket fg-main)
(builtin magenta-warmer)
(comment red-faint)
(constant blue-cooler)
(docstring cyan-faint)
(delimiter fg-main)
(docmarkup magenta-faint)
(docstring cyan-faint)
(fnname magenta)
(keyword magenta-cooler)
(number fg-main)
(operator fg-main)
(preprocessor red-cooler)
(punctuation fg-main)
(rx-backslash magenta)
(rx-construct green-cooler)
(string blue-warmer)
(type cyan-cooler)
(variable cyan)
(rx-construct green-cooler)
(rx-backslash magenta)
;;;; Accent mappings

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

@ -256,19 +256,24 @@ standard)."
;;;; Code mappings
(bracket fg-main)
(builtin magenta)
(comment red-faint)
(constant green-faint)
(docstring fg-alt)
(delimiter fg-main)
(docmarkup magenta-faint)
(docstring fg-alt)
(fnname cyan-warmer)
(keyword red-cooler)
(number fg-main)
(operator fg-main)
(preprocessor red-warmer)
(punctuation fg-main)
(rx-backslash magenta)
(rx-construct red)
(string cyan)
(type blue-warmer)
(variable cyan-cooler)
(rx-construct red)
(rx-backslash magenta)
;;;; Accent mappings