diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-14 01:48:39 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-14 01:48:39 +0200 |
| commit | f2068d28f24164d850983a26ad98f46078be1217 (patch) | |
| tree | a8b8d92f5a65acfb4bb7988707a2f32329b252a1 /module/html/components.scm | |
| parent | Add popup dropshadows. (diff) | |
| download | calp-f2068d28f24164d850983a26ad98f46078be1217.tar.gz calp-f2068d28f24164d850983a26ad98f46078be1217.tar.xz | |
Popup style improvement, add tab for repeats.
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))))) |