diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 21:38:40 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 21:38:40 +0200 |
| commit | fb9df938cae4fc7308cbe63328b69db3fa68a3a3 (patch) | |
| tree | 243f1edf5ff6c29820d7c37628634dd5af33551d /module/output/html.scm | |
| parent | Add export as ics button. (diff) | |
| download | calp-fb9df938cae4fc7308cbe63328b69db3fa68a3a3.tar.gz calp-fb9df938cae4fc7308cbe63328b69db3fa68a3a3.tar.xz | |
Popup sidebar now button holder.
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) |