From f2068d28f24164d850983a26ad98f46078be1217 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 14 Aug 2020 01:48:39 +0200 Subject: Popup style improvement, add tab for repeats. --- module/html/components.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'module/html/components.scm') diff --git a/module/html/components.scm b/module/html/components.scm index 77156fc5..68c8e763 100644 --- a/module/html/components.scm +++ b/module/html/components.scm @@ -101,9 +101,9 @@ `(div (@ (class "tab")) (input (@ (type "radio") (id ,id) (name ,tabgroup) ,@(when (zero? i) '((checked))))) - (label (@ (for ,id) (style "top: " ,(* 6 i) "ex") - ,(awhen (memv title: args) - `(title ,(cadr it)))) + (label (@ ,@(assq-merge `((for ,id) + (style "top: " ,(* 6 i) "ex")) + (kvlist->assq args))) ,key) (div (@ (class "content")) ,body))))) -- cgit v1.2.3