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/month.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/month.scm')
-rw-r--r-- | module/calp/html/view/calendar/month.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/calp/html/view/calendar/month.scm b/module/calp/html/view/calendar/month.scm index d7cd24ae..1d151c77 100644 --- a/module/calp/html/view/calendar/month.scm +++ b/module/calp/html/view/calendar/month.scm @@ -59,7 +59,7 @@ (style "grid-area: long " ,i ";" "grid-column: 1 / span 7;") (data-start ,(date->string s)) - (data-end ,(date->string (add-day e)))) + (data-end ,(date->string (date+ e (date day: 1))))) ,@(lay-out-long-events s e events)))) long-event-groups @@ -76,7 +76,7 @@ `(div (@ (style "grid-area:short " ,i) (class "cal-cell cal-cell-short event-container") (data-start ,(date->string day-date)) - (data-end ,(date->string (add-day day-date)))) + (data-end ,(date->string (date+ day-date (date day: 1))))) (div (@ (style "overflow-y:auto;")) ,@(map make-small-block (stream->list events))))) short-event-groups |