diff options
| -rw-r--r-- | .emacs.d/modules/thanos-commands.el | 7 |
1 files changed, 3 insertions, 4 deletions
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))) |