emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/theme-buffet a82eb92bb3: Add theme-buffet--time-next-pe


From: ELPA Syncer
Subject: [elpa] externals/theme-buffet a82eb92bb3: Add theme-buffet--time-next-period to account for different time-zones
Date: Sat, 9 Dec 2023 06:58:55 -0500 (EST)

branch: externals/theme-buffet
commit a82eb92bb3c2b3fb08185ed3c902e6db725a40b5
Author: Bruno Boal <egomet@bboal.com>
Commit: Bruno Boal <egomet@bboal.com>

    Add theme-buffet--time-next-period to account for different time-zones
---
 theme-buffet.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/theme-buffet.el b/theme-buffet.el
index 4bed624c54..5dc48da8ad 100644
--- a/theme-buffet.el
+++ b/theme-buffet.el
@@ -495,6 +495,13 @@ When NUMBER is 0, the timer is cancelled. Maximum value is 
%s" units max-num)
 ;;;###autoload (autoload 'theme-buffet-timer-hours "theme-buffet")
 (theme-buffet--define-timer hours)  ; (theme-buffet-timer-hours n)
 
+(defun theme-buffet--time-next-period()
+  "Calculates the seconds remaining for the next change of period."
+  (let ((next-run (theme-buffet--interval))
+        (now (theme-buffet--get-time)))
+    (while (< next-run now)
+      (setq now (- now next-run)))
+  (- next-run now)))
 
 (defmacro theme-buffet--define-menu-defuns (menu)
   "Define interactive functions to choose property list with themes to use.
@@ -517,7 +524,8 @@ opinion.")
        (theme-buffet--free-timer 'theme-buffet-timer-periods)
        (setq theme-buffet-menu (quote ,menu)
              theme-buffet-timer-periods
-             (run-at-time t (theme-buffet--interval)
+             (run-at-time (theme-buffet--time-next-period)
+                          (theme-buffet--interval)
                           #'theme-buffet--load-random))
        (message "Sucess! Theme-Buffet Chef is firing up %s themes..." 
',menu))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]