From 6defde9aba22b40dec322964ead7d5f5c35263b3 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Tue, 7 Mar 2023 20:41:33 +0100
Subject: Emacs: migrate to new modus-themes customisation

---
 user/emacs/init.el | 34 ++++++++++++++++++++++++++--------
 1 file changed, 26 insertions(+), 8 deletions(-)

(limited to 'user')

diff --git a/user/emacs/init.el b/user/emacs/init.el
index f03c5ffc..181231fb 100644
--- a/user/emacs/init.el
+++ b/user/emacs/init.el
@@ -66,15 +66,33 @@
           window-system)
   (use-package modus-themes
     :config (progn
-              (setq modus-themes-fringes 'subtle
-                    modus-themes-lang-checkers '(background)
-                    modus-themes-mode-line '(borderless accented)
-                    modus-themes-syntax '(alt-syntax)
-                    modus-themes-hl-line 'nil
-                    modus-themes-region '(bg-only)
-                    modus-themes-diffs 'desaturated)
               (let ((light-mode-theme 'modus-operandi)
-                    (dark-mode-theme 'modus-vivendi))
+                    (dark-mode-theme 'modus-vivendi-tinted))
+                (setq modus-themes-common-palette-overrides
+                      `((builtin magenta)
+                        (comment yellow-faint)
+                        (constant magenta-cooler)
+                        (docstring green-faint)
+                        (docmarkup magenta-faint)
+                        (fnname magenta-warmer)
+                        (keyword cyan)
+                        (preprocessor cyan-cooler)
+                        (string green-cooler)
+                        (type magenta-cooler)
+                        (variable blue-warmer)
+                        (rx-construct magenta-warmer)
+                        (rx-backslash blue-cooler)
+                        (border-mode-line-active unspecified)
+                        (border-mode-line-inactive unspecified)
+                        (bg-mode-line-active bg-blue-subtle)
+                        (fg-mode-line-active fg-main)
+                        (fg-line-number-inactive "gray50")
+                        (fg-line-number-active fg-main)
+                        (bg-line-number-active bg-dim)
+                        ,@modus-themes-preset-overrides-faint)
+                      modus-themes-to-toggle `(,light-mode-theme ,dark-mode-theme))
+                (load-theme light-mode-theme :noconfirm :noenable)
+                (load-theme dark-mode-theme :noconfirm :noenable)
                 (defun my/set-dark-or-light-theme ()
                   (interactive)
                   (let ((appearance (plist-get (mac-application-state) :appearance)))
-- 
cgit 1.4.1