diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-11-18 23:15:35 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-11-18 23:15:35 +0100 |
| commit | 74102c3f5f400542a09c5c5fc1043ab5fa490be0 (patch) | |
| tree | 4181461b766ca5f343c62fc31df595e05707127e /module/calp/html/view/calendar/week.scm | |
| parent | Restore remove event functionality. (diff) | |
| download | calp-74102c3f5f400542a09c5c5fc1043ab5fa490be0.tar.gz calp-74102c3f5f400542a09c5c5fc1043ab5fa490be0.tar.xz | |
Change popup tabs interface.
Diffstat (limited to 'module/calp/html/view/calendar/week.scm')
| -rw-r--r-- | module/calp/html/view/calendar/week.scm | 26 |
1 files changed, 10 insertions, 16 deletions
diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm index cb238394..6e0fbc4d 100644 --- a/module/calp/html/view/calendar/week.scm +++ b/module/calp/html/view/calendar/week.scm @@ -101,23 +101,20 @@ (div (@ (class "tabgroup")) (tab-element - (@ (title "Översikt")) - (span (@ (slot "label")) "📅") + (@ (label-title "Översikt") + (label "📅")) (vevent-description - (@ (slot "content") - (class "vevent populate-with-uid")))) + (@(class "vevent populate-with-uid")))) (tab-element - (@ (title "Redigera")) - (span (@ (slot "label")) "🖊") - (vevent-edit (@ (slot "content") - (class "populate-with-uid"))) + (@ (label-title "Redigera") + (label "🖊")) + (vevent-edit (@ (class "populate-with-uid"))) ) ,@(when (debug) `((tab-element - (@ (title "Debug")) - (span (@ (slot "label")) "🐸") - (vevent-dl (@ (slot "content") - (class "populate-with-uid"))) + (@ (label-title "Debug") + (label "🐸")) + (vevent-dl (@ (class "populate-with-uid"))) )))) @@ -144,10 +141,7 @@ )) (label (@ ; for id ;; style= top: calc(var(--tab-size) * i) - (title ; title - )) - (slot (@ (name "label")) "??") - ) + (title))) (div (@ (class "content")) (slot (@ (name "content")) (span (@ (class "error")) |