Commit 229e7aa2bc41

@@ -72,7 +72,28 @@
 ;; UseTheme
 (use-package shortbrain-light-theme
   :config
-  (load-theme 'shortbrain-light))
+  (load-theme 'shortbrain-light)
+
+  (defun set-light-theme ()
+    "Set the light theme with some customization if needed."
+    (interactive)
+    (use-package shortbrain-light-theme
+      :config
+      (load-theme 'shortbrain-light t)))
+
+  (defun set-dark-theme ()
+    "Set the dark theme with some customization if needed."
+    (interactive)
+    (use-package shortbrain-theme
+      :config
+      (load-theme 'shortbrain t)))
+
+  (defun theme-switcher ()
+    (interactive)
+    (let ((current-hour (string-to-number (format-time-string "%H"))))
+      (if (and (> current-hour 6) (< current-hour 20))
+          (set-light-theme)
+        (set-dark-theme)))))
 ;; -UseTheme
 
 ;; UseMoody

@@ -37,30 +37,7 @@
 
     (use-package visual-fill-column
       :commands visual-fill-column-mode)
-
-    (defun set-light-theme ()
-      "Set the light theme with some customization if needed."
-      (interactive)
-      (use-package shortbrain-light-theme
-        :config
-        (load-theme 'shortbrain-light t)))
-
-    (defun set-dark-theme ()
-      "Set the dark theme with some customization if needed."
-      (interactive)
-      (use-package shortbrain-theme
-        :config
-        (load-theme 'shortbrain t)))
-
-    (defun theme-switcher ()
-      (interactive)
-      (let ((current-hour (string-to-number (format-time-string "%H"))))
-        (if (and (> current-hour 6) (< current-hour 20))
-            (set-light-theme)
-          (set-dark-theme))))
-
-    ;; Run at every 3600 seconds, after 0s delay
-    ;; (run-with-timer 0 3600 'theme-switcher)
-    ))
+    )
+  )
 
 (provide 'setup-style)