From 4ba8a8894f0a63e0d3e96df38c3c4d5dab5b737c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 23 May 2020 21:46:05 +0200 Subject: Slight changes to define-config. --- module/datetime/util.scm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'module/datetime') 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 -- cgit v1.2.3