diff options
author | Martin Polden <mpolden@mpolden.no> | 2022-06-30 20:30:05 +0200 |
---|---|---|
committer | Martin Polden <mpolden@mpolden.no> | 2022-06-30 20:30:05 +0200 |
commit | cc8e08cb7939f6c6a4efa982bc59d94f3299e76b (patch) | |
tree | 9ad0bea732c83de41bada68508c4d74073a16844 | |
parent | 22b792e5cf49508ba99708152163663db1b23315 (diff) |
theme, vterm: fix toggling
-rw-r--r-- | lisp/init-theme.el | 12 | ||||
-rw-r--r-- | lisp/init-vterm.el | 4 |
2 files changed, 8 insertions, 8 deletions
diff --git a/lisp/init-theme.el b/lisp/init-theme.el index f733500..6714937 100644 --- a/lisp/init-theme.el +++ b/lisp/init-theme.el @@ -30,15 +30,15 @@ The variables `mpolden/theme-light' and `mpolden/theme-dark' decides the themes to toggle between." (interactive) - (let ((theme (mpolden/current-theme))) + (let* ((is-light (equal (mpolden/current-theme) "light")) + (new-theme (if is-light mpolden/theme-dark mpolden/theme-light)) + (new-vterm-theme (if is-light "dark" "light"))) (progn - (mpolden/switch-theme (if (equal theme "light") - mpolden/theme-dark - mpolden/theme-light)) + (mpolden/switch-theme new-theme) (when (fboundp 'mpolden/vterm-change-theme) - (mpolden/vterm-change-theme theme)) + (mpolden/vterm-change-theme new-vterm-theme)) (when (fboundp 'mpolden/vterm-set-theme) - (mpolden/vterm-set-theme theme))))) + (mpolden/vterm-set-theme new-vterm-theme))))) (use-package doom-themes :ensure t diff --git a/lisp/init-vterm.el b/lisp/init-vterm.el index 8a7d63f..993cb28 100644 --- a/lisp/init-vterm.el +++ b/lisp/init-vterm.el @@ -12,13 +12,13 @@ (defun mpolden/vterm-set-theme (theme) "Set the default Vterm theme to THEME." - (let ((theme-var (concat "VTERM_THEME=" theme))) + (let ((new-var (concat "VTERM_THEME=" theme))) (progn (setq vterm-environment (seq-filter (lambda (var) (unless (string-prefix-p "VTERM_THEME=" var))) vterm-environment)) - (add-to-list 'vterm-environment theme-var t)))) + (add-to-list 'vterm-environment new-var t)))) (use-package vterm :ensure t |