diff options
author | Martin Polden <mpolden@mpolden.no> | 2022-07-05 19:33:56 +0200 |
---|---|---|
committer | Martin Polden <mpolden@mpolden.no> | 2022-07-05 19:33:56 +0200 |
commit | acd61b0e004a7b543cda7a016f99ae1bf9a328fb (patch) | |
tree | 78bf45943bb75362f83bf681d40b02a3a845e2a8 /lisp/init-vterm.el | |
parent | c6e74228997eb4c9e4191bd5fabc0f8613c819f1 (diff) |
theme, vterm: use symbol for current theme
Diffstat (limited to 'lisp/init-vterm.el')
-rw-r--r-- | lisp/init-vterm.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lisp/init-vterm.el b/lisp/init-vterm.el index f0ebc55..47b0ca6 100644 --- a/lisp/init-vterm.el +++ b/lisp/init-vterm.el @@ -2,17 +2,23 @@ ;;; Commentary: ;;; Code: +(defun mpolden/theme-env-var (theme) + "Return the environment variable setting given THEME." + (concat "VTERM_THEME=" (if (symbolp theme) + (symbol-name theme) + theme))) + (defun mpolden/vterm-change-theme (theme) "Change the theme in all Vterm buffers to THEME." - (mapcar (lambda (buf) - (with-current-buffer buf - (vterm-send-string (concat "export VTERM_THEME=" theme "\n")))) - (seq-filter (lambda (buf) (string-prefix-p "vterm: " (buffer-name buf))) - (buffer-list)))) + (let ((export-cmd (concat "export " (mpolden/theme-env-var theme) "\n"))) + (mapcar (lambda (buf) (with-current-buffer buf + (vterm-send-string export-cmd))) + (seq-filter (lambda (buf) (string-prefix-p "vterm: " (buffer-name buf))) + (buffer-list))))) (defun mpolden/vterm-set-theme (theme) "Set the default Vterm theme to THEME." - (let ((new-var (concat "VTERM_THEME=" theme))) + (let ((new-var (mpolden/theme-env-var theme))) (setq vterm-environment (seq-filter (lambda (var) (unless (string-prefix-p "VTERM_THEME=" var))) |