diff options
Diffstat (limited to '')
-rw-r--r-- | module/calp/html/vcomponent.scm | 7 | ||||
-rw-r--r-- | module/calp/html/view/calendar/week.scm | 73 |
2 files changed, 21 insertions, 59 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 8a301e04..c8b917d2 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -239,11 +239,16 @@ '(date-time-input (@ (name "dtend") (data-property "dtend")))) - (div + (div (@ (class "checkboxes")) ,@(with-label "Heldag?" `(input (@ (type "checkbox") (name "wholeday") + ))) + ,@(with-label + "Upprepande?" + `(input (@ (type "checkbox") + (name "has_repeats") )))) ) diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm index 1fbe4dbe..6674b904 100644 --- a/module/calp/html/view/calendar/week.scm +++ b/module/calp/html/view/calendar/week.scm @@ -95,42 +95,6 @@ (define (popup-template) - ;; the XXX-n and YYY-n id:s aren't actually used, but mearly show how things - ;; are supposed to be linked together. - ;; Each instance of XXX should be replaced with THE SAME unique id, - ;; and each instance of YYY shoud be replaced with another, but unique id. - ;; n is a serial number, where a tab and its label MUST have the same number. - - (define* (build-tab - tabdata key: - (selected "false") - (tabindex "-1")) - `(button (@ (role "tab") - (aria-selected ,selected) - (tabindex ,tabindex) - (aria-controls "XXX-n") - (id "YYY-n") - (title ,(tab-title tabdata))) - ,(tab-label tabdata))) - - (define tabs - (append - (list - (make-tab "รversikt" "๐
" - '(vevent-description - (@ (class "vevent populate-with-uid")))) - (make-tab "Redigera" "๐" - '(vevent-edit (@ (class "populate-with-uid")))) - (make-tab "Upprepningar" "โบ" - '(vevent-edit-rrule (@ (class "populate-with-uid"))))) - - (when (debug) - (list - (make-tab "Debug" "๐ธ" - '(vevent-dl (@ (class "populate-with-uid")))) - )))) - - ;; becomes the direct child of <popup-element/> `(div (@ (class "popup-root window") (onclick "event.stopPropagation()")) @@ -144,28 +108,21 @@ (title "Ta Bort")) "๐")) - (main (@ (class "tabgroup window-body")) - (menu (@ (role "tablist") - (aria-label "Simple Tabs")) - ,@(cons (build-tab (car tabs) - selected: "true" - tabindex: "0") - (map build-tab (cdr tabs)))) - ;; content - (article (@ (id "XXX-n") - (role "tabpanel") - (tabindex "0") - (aria-labeledby "YYY-n")) - ,(tab-body (car tabs))) - ,@(map (lambda (tab) - `(article (@ (id "XXX-n") - (role "tabpanel") - (tabindex "0") - (hidden) - (aria-labeledby "YYY-n")) - ,(tab-body tab))) - (cdr tabs)) - ))) + (tab-group (@ (class "window-body")) + (vevent-description + (@ (data-label "๐
") (data-title "รversikt") + (class "vevent"))) + + (vevent-edit + (@ (data-label "๐") (data-title "Redigera"))) + + ;; (vevent-edit-rrule + ;; (@ (data-label "โบ") (data-title "Upprepningar"))) + + ,@(when (debug) + '((vevent-dl + (@ (data-label "๐ธ") (data-title "Debug"))))) + ))) (define (week-day-select args) `(select (@ ,@args) |