aboutsummaryrefslogtreecommitdiff
path: root/module/calp/html/vcomponent.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/calp/html/vcomponent.scm')
-rw-r--r--module/calp/html/vcomponent.scm23
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)