From ed8f2db2252232b9c3627ef073842e2e681557f8 Mon Sep 17 00:00:00 2001 From: Martin Polden Date: Sun, 3 Jul 2022 17:52:56 +0200 Subject: theme, vterm: remove unnecessary progn --- lisp/init-theme.el | 11 +++++------ lisp/init-vterm.el | 11 +++++------ 2 files changed, 10 insertions(+), 12 deletions(-) diff --git a/lisp/init-theme.el b/lisp/init-theme.el index 6714937..82d54c0 100644 --- a/lisp/init-theme.el +++ b/lisp/init-theme.el @@ -33,12 +33,11 @@ decides the themes to toggle between." (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 new-theme) - (when (fboundp 'mpolden/vterm-change-theme) - (mpolden/vterm-change-theme new-vterm-theme)) - (when (fboundp 'mpolden/vterm-set-theme) - (mpolden/vterm-set-theme new-vterm-theme))))) + (mpolden/switch-theme new-theme) + (when (fboundp 'mpolden/vterm-change-theme) + (mpolden/vterm-change-theme new-vterm-theme)) + (when (fboundp 'mpolden/vterm-set-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 993cb28..f0ebc55 100644 --- a/lisp/init-vterm.el +++ b/lisp/init-vterm.el @@ -13,12 +13,11 @@ (defun mpolden/vterm-set-theme (theme) "Set the default Vterm theme to 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 new-var t)))) + (setq vterm-environment + (seq-filter (lambda (var) + (unless (string-prefix-p "VTERM_THEME=" var))) + vterm-environment)) + (add-to-list 'vterm-environment new-var t))) (use-package vterm :ensure t -- cgit v1.2.3