cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a parameter to form-horizontal-control affect multiple values

Browse source 
Previously, the behaviour was to accept multiple values, but enable just
allowing one value to be entered.
This commit is contained in:
Christopher Baines 2019-12-14 17:04:36 +00:00
parent 67710065f0
commit 4cc678dfb1
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guix-data-service/web/view/html.scm
View file

@ -107,6 +107,7 @@
help-text
required?
options
(allow-selecting-multiple-options #t)
font-family
(type "text"))
(define (value->text value)
@ -146,7 +147,9 @@
(string-append
"font-family: " font-family ";")
""))
(multiple #t)
,@(if allow-selecting-multiple-options
'((multiple #t))
'())
(id ,input-id)
,@(if show-help-span?
`((aria-describedby ,help-span-id))
@ -157,7 +160,9 @@
(match (assq (string->symbol input-name)
query-parameters)
((_key . value)
value)
(if (not allow-selecting-multiple-options)
(list value)
value))
(_ '()))))
(map (match-lambda