From 572cea1b1bc913f4543d8be6e5786a148954dbd0 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Wed, 7 Jun 2023 19:01:08 +0200
Subject: Emacs: switch to stimmung-themes

---
 user/emacs/init.el | 39 ++++++++++++---------------------------
 1 file changed, 12 insertions(+), 27 deletions(-)

(limited to 'user/emacs/init.el')

diff --git a/user/emacs/init.el b/user/emacs/init.el
index d7932e3c..487d93ad 100644
--- a/user/emacs/init.el
+++ b/user/emacs/init.el
@@ -67,36 +67,21 @@
 
 (when (or (daemonp)
           window-system)
-  (use-package modus-themes
+  (use-package stimmung-themes
     :config (progn
-              (let ((light-mode-theme 'modus-operandi)
-                    (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))
+              (let ((light-mode-theme 'stimmung-themes-light)
+                    (dark-mode-theme 'stimmung-themes-dark)
+                    (original-stimmung-themes-string  stimmung-themes-string))
                 (load-theme light-mode-theme :noconfirm :noenable)
                 (load-theme dark-mode-theme :noconfirm :noenable)
-                (enable-theme light-mode-theme))))
+                (enable-theme light-mode-theme)
+                (defun toggle-stimmung-string-highlighting ()
+                  (interactive)
+                  (let ((current-theme (car custom-enabled-themes)))
+                    (setq stimmung-themes-string (if (eq stimmung-themes-string original-stimmung-themes-string)
+                                                     'none
+                                                   original-stimmung-themes-string))
+                    (load-theme current-theme :noconfirm))))))
   (if (eq window-system 'x)
       (setq-default line-spacing 0.2)))
 
-- 
cgit 1.4.1