acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Experiment: remove most font-lock faces

This commit is contained in:
Case Duckworth 2022-04-02 13:56:25 -05:00
parent 94c3685e85
commit 99ddcb1718
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
init.el
View File

@ -1790,6 +1790,28 @@ See also `crux-reopen-as-root-mode'."
:now)))))
(:face modus-themes-tab-active ((t :bold nil))
modus-themes-tab-inactive ((t :italic t)))
(add-hook 'modus-themes-after-load-theme-hook
(defun +modus-themes-mostly-monochrome ()
"Set up mdous-themes to be mostly monochrome."
(modus-themes-with-colors
(custom-set-faces
`(font-lock-builtin-face ((,class :inherit modus-themes-bold :foreground unspecified)))
`(font-lock-comment-delimiter-face ((,class :inherit font-lock-comment-face)))
`(font-lock-comment-face ((,class :inherit modus-themes-slant :foreground ,fg-docstring)))
`(font-lock-constant-face ((,class :foreground unspecified)))
`(font-lock-doc-face ((,class :inherit modus-themes-slant :foreground ,fg-docstring)))
`(font-lock-function-name-face ((,class :foreground unspecified)))
`(font-lock-keyword-face ((,class :inherit modus-themes-bold :foreground unspecified)))
`(font-lock-negation-char-face ((,class :inherit modus-themes-bold :foreground unspecified)))
`(font-lock-preprocessor-face ((,class :foreground unspecified)))
`(font-lock-regexp-grouping-backslash ((,class :foreground ,fg-escape-char-backslash)))
`(font-lock-regexp-grouping-construct ((,class :foreground ,fg-escape-char-construct)))
`(font-lock-string-face ((,class :inherit modus-themes-slant :foreground unspecified)))
`(font-lock-type-face ((,class :inherit modus-themes-bold :foreground unspecified)))
`(font-lock-variable-name-face ((,class :foreground unspecified)))
`(font-lock-warning-face ((,class :inherit modus-themes-bold :foreground ,red-nuanced-fg)))))))
(dawn-schedule #'modus-themes-load-operandi
#'modus-themes-load-vivendi))