From 99ddcb1718f7debafb20ab6b15539dd437546b7d Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 2 Apr 2022 13:56:25 -0500
Subject: Experiment: remove most font-lock faces

---
 init.el | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/init.el b/init.el
index 5f8e659..4ea6f90 100644
--- a/init.el
+++ b/init.el
@@ -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))
 
-- 
cgit 1.4.1-21-gabe81