From 74102c3f5f400542a09c5c5fc1043ab5fa490be0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 18 Nov 2021 23:15:35 +0100 Subject: Change popup tabs interface. --- module/calp/html/view/calendar/week.scm | 26 ++++++++++---------------- 1 file changed, 10 insertions(+), 16 deletions(-) (limited to 'module/calp/html/view') 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")) -- cgit v1.2.3