diff options
Diffstat (limited to 'module/html')
-rw-r--r-- | module/html/vcomponent.scm | 9 | ||||
-rw-r--r-- | module/html/view/calendar.scm | 1 |
2 files changed, 7 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" diff --git a/module/html/view/calendar.scm b/module/html/view/calendar.scm index 3c239bc6..72fcccbd 100644 --- a/module/html/view/calendar.scm +++ b/module/html/view/calendar.scm @@ -290,6 +290,7 @@ calendars)) (div (@ (id "calendar-dropdown-template") (class "template")) (select + (option "- Choose a Calendar -") ,@(map (lambda (calendar) `(option (@ (value ,(html-attr (prop calendar 'NAME)))) ,(prop calendar 'NAME))) |