diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 23:46:57 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 23:46:57 +0200 |
| commit | 9c94e6ec731ce433aadf12eae22d50e8fec7a91b (patch) | |
| tree | dc3db263ba5c2afc725c5d163460597f233c1c8d /module/calp/entry-points/html.scm | |
| parent | Reformat test/datetime.scm (diff) | |
| download | calp-9c94e6ec731ce433aadf12eae22d50e8fec7a91b.tar.gz calp-9c94e6ec731ce433aadf12eae22d50e8fec7a91b.tar.xz | |
Remove (add|remove)-day, and month[+-].
Procedures where overly specific, and doing it manually was almost no
more work.
Diffstat (limited to 'module/calp/entry-points/html.scm')
| -rw-r--r-- | module/calp/entry-points/html.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/calp/entry-points/html.scm b/module/calp/entry-points/html.scm index a324305b..2aa7e0e2 100644 --- a/module/calp/entry-points/html.scm +++ b/module/calp/entry-points/html.scm @@ -122,7 +122,8 @@ for embedding in a larger page. Currently only applies to the <i>small</i> style next-start: (lambda (d) (date+ d chunk-length)) prev-start: (lambda (d) (date- d chunk-length)) start-date: start-date - end-date: (remove-day (date+ start-date chunk-length)) + end-date: (date- (date+ start-date chunk-length) + (date day: 1)) render-calendar: render-calendar extra-args)))))) (stream-take count (date-stream chunk-length start-date)) |