aboutsummaryrefslogtreecommitdiff
path: root/module/html/vcomponent.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/html/vcomponent.scm')
-rw-r--r--module/html/vcomponent.scm9
1 files changed, 6 insertions, 3 deletions
diff --git a/module/html/vcomponent.scm b/module/html/vcomponent.scm
index 5123af09..3fac17bb 100644
--- a/module/html/vcomponent.scm
+++ b/module/html/vcomponent.scm
@@ -168,10 +168,13 @@
(define-public (popup ev id)
- `(div (@ (class "popup-container") (id ,id)
+ `(div (@ (id ,id) (class "popup-container CAL_"
+ ,(html-attr (or (prop (parent ev) 'NAME)
+ "unknown")))
(onclick "event.stopPropagation()"))
- (div (@ (class "popup CAL_" ,(html-attr (or (prop (parent ev) 'NAME)
- "unknown"))) )
+ ;; TODO all (?) code uses .popup-container as the popup, while .popup sits and does nothing.
+ ;; Do something about this?
+ (div (@ (class "popup"))
(nav (@ (class "popup-control"))
,(btn "×"
title: "Stäng"