diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-10-23 00:14:17 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-10-23 00:14:17 +0200 |
commit | 28c560c4c11f51b2dfffc77a286ad03057e4a13b (patch) | |
tree | e1765b3242ffe6a83033c5a4d8c8bcaaf3b02437 /module/calp | |
parent | s/inline-edit/input-list/ (diff) | |
download | calp-28c560c4c11f51b2dfffc77a286ad03057e4a13b.tar.gz calp-28c560c4c11f51b2dfffc77a286ad03057e4a13b.tar.xz |
Work on generalizing multi-input lists.
Diffstat (limited to 'module/calp')
-rw-r--r-- | module/calp/html/vcomponent.scm | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index cf8f3a9d..208b66f7 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -207,27 +207,28 @@ ,@(awhen (prop ev 'CATEGORIES) (map (lambda (c) `(input (@ (size 2) + (class "unit") (value ,c)))) it)) - (input (@ (class "final") + (input (@ (class "unit final") (size 2) (type "text") )))) - ;; TODO extra fields - (hr) - (div (@ (class "newfield")) - (input (@ (type "text") - (list "known-fields") - (placeholder "Nytt fält"))) - (select (@ (name "TYPE")) - (option (@ (value "TEXT")) "Text")) - (span + ;; For custom user fields + (div (@ (class "input-list")) + (div (@ (class "unit final newfield")) (input (@ (type "text") - (placeholder "Värde"))))) + (list "known-fields") + (placeholder "Nytt fält"))) + (select (@ (name "TYPE")) + (option (@ (value "TEXT")) "Text")) + (span + (input (@ (type "text") + (placeholder "Värde")))))) (hr) |