diff options
Diffstat (limited to 'module/output/html.scm')
| -rw-r--r-- | module/output/html.scm | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index bc3f131b..1a60549a 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -127,6 +127,16 @@ + +(define (popup ev) + `(div (@ (class "popup")) + (nav (@ (class "popup-control CAL_" ,(html-attr (or (attr (parent ev) 'NAME) + "unknown")))) + (button (@ (class "btn") (onclick "close_popup(this)")) "×") + (a (@ (class "btn") (href "/calendar/" ,(attr ev 'UID) ".ics")) + "📅")) + ,(fmt-single-event ev))) + (define (event-debug-html event) (fmt-single-event event) #; @@ -190,10 +200,7 @@ (div (@ (class "event-inner")) ;; NOTE These popup's are far from good. Main problem being that ;; the often render off-screen for events high up on the screen. - (div (@ (class "popup")) - ,(event-debug-html ev) - (button (@ (onclick "close_popup(this)")) "×") - ) + ,(popup ev) (a (@ (href "#" ,(UID ev)) (class "hidelink")) (div (@ (class "body")) @@ -397,9 +404,6 @@ `(span (@ (class "last-modified")) "Senast ändrad " ,(datetime->string (attr ev 'LAST-MODIFIED) "~1 ~H:~M"))) - (a (@ (href "/calendar/" ,(attr ev 'UID) ".ics")) - "📅") - ))) ;; Single event in side bar (text objects) |