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/view/calendar/week.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/html/view/calendar/week.scm')
-rw-r--r-- | module/calp/html/view/calendar/week.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm index ef630c36..caad8912 100644 --- a/module/calp/html/view/calendar/week.scm +++ b/module/calp/html/view/calendar/week.scm @@ -43,7 +43,7 @@ ,@(time-marker-div) (div (@ (class "longevents event-container") (data-start ,(date->string start-date) ) - (data-end ,(date->string (add-day end-date)) ) + (data-end ,(date->string (date+ end-date (date day: 1))) ) (style "grid-column-end: span " ,(days-in-interval start-date end-date))) ,@(lay-out-long-events start-date end-date long-events)) ,@(map (lambda (day-date) @@ -139,7 +139,7 @@ `(div (@ (class "events event-container") (id ,(date-link day-date)) (data-start ,(date->string day-date)) - (data-end ,(date->string (add-day day-date)) )) + (data-end ,(date->string (date+ day-date (date day: 1))) )) ,@(map (lambda (time) `(div (@ (class "clock clock-" ,time)))) (iota 12 0 2)) |