diff options
Diffstat (limited to 'util.scm')
| -rw-r--r-- | util.scm | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -89,10 +89,13 @@ (date-hour date) 0 0 0 0)) +(define (10pm-adjusted-date date) + (let ((date-offset (if (> (date-hour date) 22) 1 0))) + (date+ (current-date) date-offset))) + (define (this day-name) (log-msg 'DEBUG "Calculating next " day-name) - (let* ((date-offset (if (> (date-hour (current-date)) 22) 1 0)) - (current-date (date+ (current-date) date-offset)) + (let* ((current-date (10pm-adjusted-date (current-date))) (current-week-day (date-week-day current-date)) (target-week-day (day-name->week-day day-name)) (days-ahead (mod (- target-week-day current-week-day) 7)) |