From c6ccd9151dcd458f511a11e41b3e8fb541ad4f9b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 12 Apr 2022 13:19:49 -0500
Subject: Configure modus-themes

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

diff --git a/init.el b/init.el
index 620c637..89fab77 100644
--- a/init.el
+++ b/init.el
@@ -1800,7 +1800,7 @@ See also `crux-reopen-as-root-mode'."
   (require 'modus-themes (.etc "straight/build/modus-themes/modus-themes"))
   (:also-load dawn)
   (:option modus-themes-mixed-fonts t
-           modus-themes-bold-constructs nil
+           modus-themes-bold-constructs t
            modus-themes-italic-constructs t
            modus-themes-headings '((t . (background regular rainbow))))
   (dotimes (facen-1 8)
@@ -1819,21 +1819,33 @@ See also `crux-reopen-as-root-mode'."
               "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-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-comment-face ((,class :inherit modus-themes-slant
+                                                   :foreground ,fg-docstring)))
+                 `(font-lock-constant-face ((,class :inherit underline
+                                                    :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-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-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)))))))
+                 `(font-lock-warning-face ((,class :inherit modus-themes-bold
+                                                   :foreground ,red-nuanced-fg)))
+                 `(font-lock-todo-face ((,class :inherit font-lock-comment-face
+                                                :foreground ,fg-header
+                                                :background ,yellow-intense-bg)))))))
 
   (dawn-schedule #'modus-themes-load-operandi
                  #'modus-themes-load-vivendi))
-- 
cgit 1.4.1-21-gabe81