diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-06 00:48:10 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-06 00:48:10 +0200 |
commit | 4c06ace245bffa98a2b994ce81f4d1a1ea7fa750 (patch) | |
tree | 183b1fa701bad12169bf67705ad3e2a6fea52d79 /module/output | |
parent | Clean up caltable code. (diff) | |
download | calp-4c06ace245bffa98a2b994ce81f4d1a1ea7fa750.tar.gz calp-4c06ace245bffa98a2b994ce81f4d1a1ea7fa750.tar.xz |
Start moving popup's away from parents.
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 725cd39a..b70b5f56 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -213,7 +213,10 @@ ,(when (and (prop ev 'PARTSTAT) (eq? 'TENTATIVE (prop ev 'PARTSTAT))) " tentative")) - (onclick "toggle_child_popup(this)")))) + ; (onclick "toggle_child_popup(this)") + (onclick ,(format #f "toggle_popup(document.getElementById('~a'))" + (string-append "popup" (html-id ev)))) + ))) ;; Inner div to prevent overflow. Previously "overflow: none" ;; was set on the surounding div, but the popup /needs/ to ;; overflow. @@ -226,7 +229,9 @@ `(span (@ (class "location")) ,(string-map (lambda (c) (if (char=? c #\,) #\newline c)) (prop ev 'LOCATION))))) - ,(popup ev popup-id))))) + #; + ,(popup ev (string-append "popup" (html-id ev)) #; popup-id + ))))) ;; Format single event for graphical display (define (create-block date ev) @@ -725,7 +730,11 @@ post-end: post-end 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)) #; popup-id + ))) ;; Page footer (footer |