diff options
Diffstat (limited to '')
-rw-r--r-- | module/datetime/util.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/module/datetime/util.scm b/module/datetime/util.scm index 0d4699c6..c567d44f 100644 --- a/module/datetime/util.scm +++ b/module/datetime/util.scm @@ -5,6 +5,7 @@ :use-module (srfi srfi-41) :use-module (srfi srfi-41 util) :use-module (util) + :use-module (util config) ) (define-public (start-of-month date) @@ -349,3 +350,9 @@ [else (day (get-date dt))]))) (+ (time->decimal-hour ((@ (datetime) get-time%) dt)) (* (1- date-diff) 24)))) + + +(register-config! + week-start + sun + (ensure (lambda (x) (<= sun x sat)))) |