diff options
| author | Thanos Apollo <[email protected]> | 2024-04-16 17:18:41 +0300 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-04-16 17:18:41 +0300 |
| commit | 314aa06e7190a5b5e6abd14be799f452fb5a9de5 (patch) | |
| tree | 4bbecb3f157f2b4aabc2651118b771f0a7247eec /.emacs.d/modules | |
| parent | 93840e4b58c049f5a994a97fba92b89af944234d (diff) | |
emacs:(commands) Update thanos/load-theme
Diffstat (limited to '.emacs.d/modules')
| -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))) |