diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-21 21:25:56 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-23 21:53:42 +0200 |
| commit | 8ab183e25de48766e286178c078ffdfb4c485b68 (patch) | |
| tree | 0dc3d3a4320ebbf8a418e3960aab7b1e206c86b7 /module/calp | |
| parent | Remove unused procedure form. (diff) | |
| download | calp-8ab183e25de48766e286178c078ffdfb4c485b68.tar.gz calp-8ab183e25de48766e286178c078ffdfb4c485b68.tar.xz | |
Update comment on cal-table.
Diffstat (limited to 'module/calp')
| -rw-r--r-- | module/calp/html/caltable.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/module/calp/html/caltable.scm b/module/calp/html/caltable.scm index b81ad18d..b6d7f45f 100644 --- a/module/calp/html/caltable.scm +++ b/module/calp/html/caltable.scm @@ -24,6 +24,12 @@ ;; end-date : <date> ;; next-start : <date> → <date> ;; prev-start : <date> → <date> +;; +;; Month containing start-date. +;; Days between start-date and end-date will be highlighted +;; prev-start and next-start will generate links for the next interval, +;; they can't be infered from start and end date, mostly due to months having +;; different lengths (define*-public (cal-table key: start-date end-date next-start prev-start) (define (->link date) |