aboutsummaryrefslogtreecommitdiff
path: root/module/datetime/util.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/datetime/util.scm')
-rw-r--r--module/datetime/util.scm10
1 files changed, 4 insertions, 6 deletions
diff --git a/module/datetime/util.scm b/module/datetime/util.scm
index a4ac8bcc..4f461591 100644
--- a/module/datetime/util.scm
+++ b/module/datetime/util.scm
@@ -101,14 +101,12 @@
)
+(define-public week-start (make-parameter sun))
+
(define-config week-start sun
"First day of week"
- (lambda (x) (<= sun x sat)))
-
-;; TODO setting the @var{week-start} parameter from the @var{week-start}
-;; config ought to be done. But a post-set method first needs to be
-;; introduced in define-config.
-(define-public week-start (make-parameter sun))
+ pre: (lambda (x) (<= sun x sat))
+ post: week-start)
;; given a date, returns the date the first week of that year starts on.
;; @example