diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-12 01:06:39 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-12 01:06:39 +0200 |
commit | 8b397e05a8e80b5d50cdbf94d8858c617c5ebafd (patch) | |
tree | 0e239ef7c1613b701d4b604149adb2f0f315e4af /module/datetime | |
parent | Remove week-start from (html view calendar) (again?) (diff) | |
download | calp-8b397e05a8e80b5d50cdbf94d8858c617c5ebafd.tar.gz calp-8b397e05a8e80b5d50cdbf94d8858c617c5ebafd.tar.xz |
Massivly simplify config internals.
Diffstat (limited to '')
-rw-r--r-- | module/datetime.scm | 3 | ||||
-rw-r--r-- | module/datetime/instance.scm | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/module/datetime.scm b/module/datetime.scm index a0b1e533..5a821afb 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -49,9 +49,8 @@ ;;; Configuration (define-public week-start (make-parameter sun)) - (define-config week-start sun - "First day of week" + description: "First day of week" pre: (ensure (lambda (x) (<= sun x sat))) post: week-start) diff --git a/module/datetime/instance.scm b/module/datetime/instance.scm index 048c9a9b..829002b9 100644 --- a/module/datetime/instance.scm +++ b/module/datetime/instance.scm @@ -5,10 +5,10 @@ :export (zoneinfo)) (define-config tz-dir #f - "Directory in which zoneinfo files can be found") + description: "Directory in which zoneinfo files can be found") (define-config tz-list '() - "List of default zoneinfo files to be parsed") + description: "List of default zoneinfo files to be parsed") (define / file-name-separator-string) |