mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

config/cron: Update with mcron 1.1.1 fixes

master
Pierre Neidhardt 2018-05-23 16:58:43 +02:00
parent ca38963e91
commit f009dd08ae
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
.config/cron/job.guile
View File

@ -10,14 +10,10 @@
(if (< currency-time (- current-time seconds-in-a-day))
;; Use next-minute to avoid overwhelming the system in case of failure.
(next-minute)
;; TODO: The following does not work while it should. Report upstream.
;; (next-hour-from (next-day) (list (tm:hour (localtime (current-time)))))
(+ (next-minute) (- 86400 (- current-time currency-time))))))
(next-hour-from (next-day) (list (tm:hour (localtime currency-time)))))))
;; A string is nicer than Scheme code for `mcron --schedule' output.
;; Otherwise we could return '(system* "units_cur" currency-file)
;; and use job's 3rd argument as a description.
(string-append "units_cur " currency-file))
(job '(next-hour)
;; '(next-hour '(3)) is broken in mcron 1.1.
"updatedb-local")
(job '(next-hour '(3)) "updatedb-local")