(Emacs/config)+timer to sync theme based on hour

2024-08-27 15:40:08 +01:00
parent 41ccade907
commit 70ee7389a1
1 changed files with 8 additions and 1 deletions
--- a/Emacs/.config/emacs/config.org
+++ b/Emacs/.config/emacs/config.org
@@ -278,7 +278,14 @@ eyes too much.
    (setq +oreo/theme (mod (+ 1 +oreo/theme) (length +oreo/theme-list)))
    (+oreo/load-theme))

-  (+oreo/load-theme))
+  (defun +oreo/sync-theme ()
+    (let ((hour (read (format-time-string "%H"))))
+      (setq +oreo/theme
+            (if (or (< hour 8) (> hour 18))
+                1
+              0))
+      (+oreo/load-theme)))
+  (run-at-time nil (* 60 60) #'+oreo/sync-theme))
 #+end_src
 ** Font size
 Adjust font sizes for my devices.