From 314aa06e7190a5b5e6abd14be799f452fb5a9de5 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 16 Apr 2024 17:18:41 +0300 Subject: emacs:(commands) Update thanos/load-theme --- .emacs.d/modules/thanos-commands.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to '.emacs.d/modules') diff --git a/.emacs.d/modules/thanos-commands.el b/.emacs.d/modules/thanos-commands.el index 41e5d90..36e6529 100644 --- a/.emacs.d/modules/thanos-commands.el +++ b/.emacs.d/modules/thanos-commands.el @@ -102,10 +102,9 @@ ;; THEMING (defvar wallpapers-dir "~/wallpapers/") -(defun thanos/load-theme () - "Disable current theme and load a new one." - (interactive) - (let ((theme (intern (completing-read "Theme: " (custom-available-themes))))) +(defun thanos/load-theme (&optional theme) + "Disable current theme and load a new THEME." + (let ((theme (or theme (intern (completing-read "Theme: " (custom-available-themes)))))) (disable-theme (car custom-enabled-themes)) (load-theme theme t))) -- cgit v1.2.3