[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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/theme-buffet a82eb92bb3: Add theme-buffet--time-next-period to account for different time-zones,
ELPA Syncer <=