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))))