diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-13 10:11:14 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-13 10:11:14 +0200 |
| commit | 973708409481ea5e0d614c3ac6b6f1c96413caad (patch) | |
| tree | 1c60089a04a55e904b9f243549b6750d81f997c3 /module/html/view/calendar/week.scm | |
| parent | cleanup. (diff) | |
| download | calp-973708409481ea5e0d614c3ac6b6f1c96413caad.tar.gz calp-973708409481ea5e0d614c3ac6b6f1c96413caad.tar.xz | |
Popups are now correcetly rooted.
Diffstat (limited to '')
| -rw-r--r-- | module/html/view/calendar/week.scm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/module/html/view/calendar/week.scm b/module/html/view/calendar/week.scm index 7da186e1..34e8eeb4 100644 --- a/module/html/view/calendar/week.scm +++ b/module/html/view/calendar/week.scm @@ -22,7 +22,8 @@ (define*-public (render-calendar key: events start-date end-date #:allow-other-keys) (let* ((long-events short-events (partition long-event? (stream->list (events-between start-date end-date events)))) (range (date-range start-date end-date))) - `((div (@ (class "calendar")) + `((script "const VIEW='week';") + (div (@ (class "calendar")) (div (@ (class "days")) ,@(time-marker-div) (div (@ (class "longevents event-container") @@ -41,7 +42,13 @@ (stream-map lay-out-day (get-groups-between (group-stream (list->stream short-events)) - start-date end-date)))))))) + start-date end-date))) + + ,@(for event in (stream->list + (events-between start-date end-date events)) + ((@ (html vcomponent ) popup) event (string-append "popup" (html-id event)))) + + ))))) |