diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-10-06 04:32:11 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-10-06 04:32:11 +0200 |
| commit | 4f499ccbf71d0ae662159515bb568826e72678a5 (patch) | |
| tree | a0300638045095aa6da1b0d6a275cf1c7e2333f4 /module/calp/html/view/calendar | |
| parent | Fix issue with datetimes not getting set. (diff) | |
| download | calp-4f499ccbf71d0ae662159515bb568826e72678a5.tar.gz calp-4f499ccbf71d0ae662159515bb568826e72678a5.tar.xz | |
Drive popup tabs through javascript.
Diffstat (limited to 'module/calp/html/view/calendar')
| -rw-r--r-- | module/calp/html/view/calendar/week.scm | 51 |
1 files changed, 42 insertions, 9 deletions
diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm index 17bb3b2d..388c2f07 100644 --- a/module/calp/html/view/calendar/week.scm +++ b/module/calp/html/view/calendar/week.scm @@ -99,18 +99,51 @@ ;; onclick: "close_popup(document.getElementById(this.closest('.popup-container').id))" class: '("close-tooltip"))) - ,(tabset - `(("📅" title: "Översikt" - (vevent-description - (@ (class "vevent populate-with-uid"))) - ) + (div (@ (class "tabgroup")) + (tab-element + (@ (title "Översikt")) + (span (@ (slot "label")) "📅") + (vevent-description + (@ (slot "content") + (class "vevent populate-with-uid")))) + (tab-element + (@ (title "Redigera")) + (span (@ (slot "label")) "📅") + (vevent-edit (@ (slot "content") + (class "populate-with-uid"))) + )) - ,@(when (edit-mode) - `(("📅" title: "Redigera" - (vevent-edit (@ (class "populate-with-uid")))))) + ;; ,(tabset + ;; `(("📅" title: "Översikt" + ;; (vevent-description + ;; (@ (class "vevent populate-with-uid"))) + ;; ) - ))))) + ;; ,@(when (edit-mode) + ;; `(("📅" title: "Redigera" + ;; (vevent-edit (@ (class "populate-with-uid")))))) + ;; )) + ))) + + (template + (@ (id "tab-template")) + ;; ,((@ (calp html components) include-css) "/static/tab.css") + (div (@ (class "tab")) + (input (@ (type "radio") + ;; id + ;; (name ,tabgroup) + )) + (label (@ ; for id + ;; style= top: calc(var(--tab-size) * i) + (title ; title + )) + (slot (@ (name "label")) "??") + ) + (div (@ (class "content")) + (slot (@ (name "content")) + (span (@ (class "error")) + "CONTENT MISSING"))))) ))) ;; based on the output of fmt-single-event |