diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-02 00:35:24 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-02 00:35:24 +0100 |
| commit | a8c1685ace03d4d30915f6375cff6e046eb41dd4 (patch) | |
| tree | 62e79fa0d84d6a53ed1c1188621a1eba0008704e /module/parameters.scm | |
| parent | Warn on empty-line during parse. (diff) | |
| download | calp-a8c1685ace03d4d30915f6375cff6e046eb41dd4.tar.gz calp-a8c1685ace03d4d30915f6375cff6e046eb41dd4.tar.xz | |
Made start of week for html configurable.
Diffstat (limited to 'module/parameters.scm')
| -rw-r--r-- | module/parameters.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/module/parameters.scm b/module/parameters.scm index 8438040d..d58c6333 100644 --- a/module/parameters.scm +++ b/module/parameters.scm @@ -26,3 +26,8 @@ ;; ev x str -> sxml (define-public description-filter (make-parameter (lambda (_ a) a) (ensure procedure?))) + +(use-modules (datetime util)) + +(define-public week-start + (make-parameter sun (ensure (lambda (x) (<= sun x sat))))) |