diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-13 20:12:01 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-13 20:12:01 +0200 |
| commit | a703a46b030b929e9c12fe4c8b3fd5caee2c46d2 (patch) | |
| tree | 12000fdf78c597e12ddcb570689097392a47e96c /module/output/html.scm | |
| parent | Javascript fixes. (diff) | |
| download | calp-a703a46b030b929e9c12fe4c8b3fd5caee2c46d2.tar.gz calp-a703a46b030b929e9c12fe4c8b3fd5caee2c46d2.tar.xz | |
Frontend for event creation should work for long and short events.
Diffstat (limited to 'module/output/html.scm')
| -rw-r--r-- | module/output/html.scm | 8 |
1 files changed, 6 insertions, 2 deletions
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) |