diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-11 21:31:52 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-11 21:31:52 +0200 |
| commit | e360d3566eb878a944dada510a0c7e8437a5554b (patch) | |
| tree | 7b338ef505acba0b14f0f32b11355f4f716561c3 /module | |
| parent | Limit CAL_ class to once per 'thing'. (diff) | |
| download | calp-e360d3566eb878a944dada510a0c7e8437a5554b.tar.gz calp-e360d3566eb878a944dada510a0c7e8437a5554b.tar.xz | |
Fix frontend for calendar choosing.
Diffstat (limited to 'module')
| -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))) |