diff options
| author | Alan Pearce | 2023-06-07 19:01:08 +0200 |
|---|---|---|
| committer | Alan Pearce | 2023-06-07 19:01:08 +0200 |
| commit | 572cea1b1bc913f4543d8be6e5786a148954dbd0 (patch) | |
| tree | d3ac049c62d56d6ae5826c975033632bda68d5e8 /user/emacs | |
| parent | 0e163fc1e986da8cabb65d0ddbe23ac8ca8cfc36 (diff) | |
| download | nixfiles-572cea1b1bc913f4543d8be6e5786a148954dbd0.tar.lz nixfiles-572cea1b1bc913f4543d8be6e5786a148954dbd0.tar.zst nixfiles-572cea1b1bc913f4543d8be6e5786a148954dbd0.zip | |
Emacs: switch to stimmung-themes
Diffstat (limited to 'user/emacs')
| -rw-r--r-- | user/emacs/init.el | 39 |
1 files changed, 12 insertions, 27 deletions
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))) |