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.scm | |
| parent | cleanup. (diff) | |
| download | calp-973708409481ea5e0d614c3ac6b6f1c96413caad.tar.gz calp-973708409481ea5e0d614c3ac6b6f1c96413caad.tar.xz | |
Popups are now correcetly rooted.
Diffstat (limited to 'module/html/view/calendar.scm')
| -rw-r--r-- | module/html/view/calendar.scm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/module/html/view/calendar.scm b/module/html/view/calendar.scm index 2371cfe0..52e42078 100644 --- a/module/html/view/calendar.scm +++ b/module/html/view/calendar.scm @@ -97,6 +97,10 @@ (define repo-url (make-parameter "https://git.hornquist.se")) + +;; TODO document what @var{render-calendar} is supposed to take and return. +;; Can at least note that @var{render-calendar} is strongly encouraged to include +;; (script "const VIEW='??';"), where ?? is replaced by the name of the view. (define*-public (html-generate key: (intervaltype 'all) ; 'week | 'month | 'all @@ -179,10 +183,11 @@ next-start: next-start prev-start: prev-start ) - - ,@(for event in (stream->list - (events-between pre-start post-end events)) - (popup event (string-append "popup" (html-id event))))) + ;; Popups used to be here, but was moved into render-calendar so each + ;; sub-view can itself decide where to put them. This is important + ;; since they need to be placed as children to the scrolling + ;; component, if one such component exists. + ) ;; Page footer (footer |