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/html/caltable.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 '')
| -rw-r--r-- | module/calp/html/caltable.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/calp/html/caltable.scm b/module/calp/html/caltable.scm index efaf8871..2c027c35 100644 --- a/module/calp/html/caltable.scm +++ b/module/calp/html/caltable.scm @@ -85,7 +85,7 @@ (lambda (d) (date<= d date (next-start d))) start-date)) "#" ,(date-link date))))) - (date-range pre-start (remove-day start-date))) + (date-range pre-start (date- start-date (date day: 1)))) ,@(map (td (lambda (date) `((href "#" ,(date-link date))))) @@ -101,4 +101,4 @@ (lambda (d) (and (date<= d date) (date< date (next-start d)))) start-date)) "#" ,(date-link date))))) - (date-range (add-day end-date) post-end)))) + (date-range (date+ end-date (date day: 1)) post-end)))) |