Style adjustments.

1 files changed, 53 insertions, 26 deletions

diff --git a/init.org b/init.org
index 531f000..d868d85 100644
--- a/init.org
+++ b/init.org
@@ -172,32 +172,59 @@ The default behavior of Emacs is that you can compose multiple themes; however,
 The Modus themes look pretty nice.
 
 #+BEGIN_SRC elisp
-(setq modus-themes-mode-line '(borderless))
-(setq modus-themes-region '(bg-only))
-(setq modus-themes-completions '(opinionated))
-(setq modus-themes-paren-match '(bold intense))
-(setq modus-themes-org-agenda nil)
-(setq modus-themes-headings
-      '((1 . (bold 1.4))
-        (2 . (bold 1.3))
-        (3 . (bold 1.2))
-        (t . (semilight 1.1))))
-(setq modus-themes-scale-headings t)
-(setq modus-themes-bold-constructs t)
-(setq modus-themes-org-blocks nil)
-(setq modus-themes-variable-pitch-headings t)
-(load-theme 'modus-vivendi-tinted t)
-
-;; Add frame borders and window dividers
-(modify-all-frames-parameters
- '((right-divider-width . 20)
-   (internal-border-width . 20)))
-(dolist (face '(window-divider
+(use-package modus-themes
+  :init
+  (setq modus-themes-completions '(opinionated))
+  (setq modus-themes-headings
+        '((agenda-structure . (variable-pitch light 2.2))
+          (agenda-date . (variable-pitch regular 1.3))
+          (1 . (variable-pitch background bold 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-variable-pitch-ui t)
+  (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)
+        ))
+  (load-theme 'modus-operandi-tinted :no-confirm)
+
+  ;; Add frame borders and window dividers
+  (modify-all-frames-parameters
+   '((right-divider-width . 20)
+     (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))
+    (face-spec-reset-face face)
+    (set-face-foreground face (face-attribute 'default :background)))
+  (set-face-background 'fringe (face-attribute 'default :background)))
 #+END_SRC
 
 Dired mode becomes much prettier with =nerd-icons=.
@@ -213,8 +240,8 @@ I like the doom emacs modeline with buffer-appropriate icons.
   :after eshell     ;Make sure it gets hooked after eshell
   :init (doom-modeline-mode)
   :custom
-  (doom-modeline-height 35)
-  (doom-modeline-bar-width 6)
+  (doom-modeline-height 48)
+  (doom-modeline-bar-width 8)
   (doom-modeline-lsp t)
   (doom-modeline-github nil)
   (doom-modeline-mu4e nil)