More theming.

1 files changed, 33 insertions, 34 deletions

diff --git a/init.org b/init.org
index 5df3cea..81810db 100644
--- a/init.org
+++ b/init.org
@@ -176,54 +176,53 @@ The Modus themes look pretty nice.
   :init
   (setq modus-themes-completions '(opinionated))
   (setq modus-themes-headings
-        '((agenda-structure . (variable-pitch light 2.2))
+        '((agenda-structure . (variable-pitch light 1.5))
           (agenda-date . (variable-pitch regular 1.3))
-          (1 . (variable-pitch background bold overline 1.5))
+          (0 . (variable-pitch regular 2.0))
+          (1 . (variable-pitch background light overline 1.5))
           (2 . (variable-pitch overline rainbow 1.3))
           (3 . (variable-pitch overline 1.1))
           (t . (monochrome))))
   (setq modus-themes-bold-constructs t)
-  (setq modus-themes-org-blocks nil)
+  (setq modus-themes-org-blocks t)
   (setq modus-themes-variable-pitch-ui nil)
   (setq modus-themes-prompts '(bold))
   (setq modus-themes-to-toggle '(modus-operandi-tinted modus-vivendi-tinted))
   (setq modus-themes-common-palette-overrides
-      '((border-mode-line-active unspecified)
-        (border-mode-line-inactive unspecified)
-        ;; Parenthesis matching
-        (bg-paren-match bg-magenta-intense)
-        ;; Org Agenda
-        (date-deadline magenta-warmer)
-        (date-scheduled green-cooler)
-        (date-weekday fg-main)
-        (date-event fg-dim)
-        (date-now blue)
-        (prose-done fg-alt)
-        (prose-todo yellow)
-        ;; Region highlight
-        (bg-region bg-yellow-subtle)
-        (fg-region unspecified)
-        ;; Fewer colors in email
-        (mail-cite-0 fg-dim)
-        (mail-cite-1 blue-faint)
-        (mail-cite-2 fg-dim)
-        (mail-cite-3 blue-faint)
-        (mail-part cyan-warmer)
-        (mail-recipient blue-warmer)
-        (mail-subject magenta-cooler)
-        (mail-other cyan-warmer)
-        ))
+        (append '((border-mode-line-active unspecified)
+                  (border-mode-line-inactive unspecified)
+                  (window-divider fg-main)
+
+                  ;; Parenthesis matching
+                  (bg-paren-match bg-magenta-intense)
+                  ;; Org Agenda
+                  (date-deadline magenta-warmer)
+                  (date-scheduled green-cooler)
+                  (date-weekday fg-main)
+                  (date-event fg-dim)
+                  (date-now blue)
+                  (prose-done fg-alt)
+                  (prose-todo yellow)
+                  ;; Region highlight
+                  (bg-region bg-yellow-subtle)
+                  (fg-region unspecified)
+                  ;; Fewer colors in email
+                  (mail-cite-0 fg-dim)
+                  (mail-cite-1 blue-faint)
+                  (mail-cite-2 fg-dim)
+                  (mail-cite-3 blue-faint)
+                  (mail-part cyan-warmer)
+                  (mail-recipient blue-warmer)
+                  (mail-subject magenta-cooler)
+                  (mail-other cyan-warmer))
+                modus-themes-preset-overrides-faint))
+
   (load-theme 'modus-operandi-tinted :no-confirm)
 
   ;; Add frame borders and window dividers
   (modify-all-frames-parameters
-   '((right-divider-width . 20)
+   '((right-divider-width . 1)
      (internal-border-width . 20)))
-  (dolist (face '(window-divider
-                window-divider-first-pixel
-                window-divider-last-pixel))
-    (face-spec-reset-face face)
-    (set-face-foreground face (face-attribute 'default :background)))
   (set-face-background 'fringe (face-attribute 'default :background)))
 #+END_SRC