From a703a46b030b929e9c12fe4c8b3fd5caee2c46d2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 13 Jul 2020 20:12:01 +0200 Subject: Frontend for event creation should work for long and short events. --- module/output/html.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'module/output/html.scm') diff --git a/module/output/html.scm b/module/output/html.scm index df8909e9..71b52956 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -334,7 +334,9 @@ (fix-event-widths! short-events event-length-key: (lambda (e) (event-length/day day-date e))) - `(div (@ (class "events") (id ,(date-link day-date))) + `(div (@ (class "events event-container") (id ,(date-link day-date)) + (data-start ,(date->string day-date) "T00:00Z") + (data-end ,(date->string (add-day day-date)) "T00:00Z")) ,@(map (lambda (time) `(div (@ (class "clock clock-" ,time)))) (iota 12 0 2)) @@ -368,7 +370,9 @@ `((div (@ (class "calendar")) (div (@ (class "days")) ,@(time-marker-div) - (div (@ (class "longevents") + (div (@ (class "longevents event-container") + (data-start ,(date->string start-date) "T00:00Z") + (data-end ,(date->string (add-day end-date)) "T00:00Z") (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) -- cgit v1.2.3