diff options
Diffstat (limited to 'module/html/components.scm')
| -rw-r--r-- | module/html/components.scm | 6 |
1 files changed, 3 insertions, 3 deletions
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))))) |