From d67dc0113ee4f3fe77d256a1b72a9fb5158dd1f4 Mon Sep 17 00:00:00 2001 From: David Florness Date: Fri, 14 Jun 2024 12:05:40 -0400 Subject: [PATCH] move interactive functions out of use-package --- lisp/themes.el | 33 ++++++++++++++++++--------------- 1 file changed, 18 insertions(+), 15 deletions(-) diff --git a/lisp/themes.el b/lisp/themes.el index e395345..adc27ec 100644 --- a/lisp/themes.el +++ b/lisp/themes.el @@ -1,21 +1,9 @@ -;; Setup theme +;; install themes + (use-package gruvbox-theme :config (load-theme 'gruvbox-dark-hard t t) - (load-theme 'gruvbox-light-hard t t) - - (defun dark-theme () - (interactive) - (disable-theme 'gruvbox-light-hard) - (enable-theme 'gruvbox-dark-hard)) - - (defun light-theme () - (interactive) - (disable-theme 'gruvbox-dark-hard) - (enable-theme 'gruvbox-light-hard)) - - ;; dark theme by default - (dark-theme)) + (load-theme 'gruvbox-light-hard t t)) (use-package monokai-theme :config @@ -27,6 +15,8 @@ (load-theme 'doom-one-light t t) (load-theme 'doom-vibrant t t)) +;; theme functions + (defun switch-theme (theme) ;; The (interactive ...) and subsequent (unless ...) code was copied from the ;; enable-theme function in custom.el.gz @@ -46,3 +36,16 @@ (interactive) (dolist (thm custom-enabled-themes) (disable-theme thm))) + +(defun dark-theme () + (interactive) + (disable-theme 'gruvbox-light-hard) + (enable-theme 'gruvbox-dark-hard)) + +(defun light-theme () + (interactive) + (disable-theme 'gruvbox-dark-hard) + (enable-theme 'gruvbox-light-hard)) + +;; enable dark theme by default +(dark-theme) -- 2.38.4