guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Add type support to form-horizontal-control 

Particularly to support checkboxes.
This commit is contained in:
Christopher Baines 2019-05-19 21:24:50 +01:00
parent d4b23f81c1
commit 78fb3fafc0
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
guix-data-service/web/view/html.scm
View File

@ -98,7 +98,8 @@
name
help-text
required?
options)
options
(type "text"))
(define (value->text value)
(match value
(#f "")
@ -162,6 +163,7 @@
`(input (@ (class "form-control")
(style "font-family: monospace;")
(id ,input-id)
(type ,type)
,@(if required?
'((required #t))
'())
@ -173,9 +175,17 @@
query-parameters)
(#f '())
((_key . ($ <invalid-query-parameter> value))
`((value ,(value->text value))))
(if (string=? type "checkbox")
(if value
'((checked #t))
'())
`((value ,(value->text value)))))
((_key . value)
`((value ,(value->text value))))))))
(if (string=? type "checkbox")
(if (peek "VALUE" value)
'((checked #t))
'())
`((value ,(value->text value)))))))))
,@(if show-help-span?
`((span (@ (id ,help-span-id)
(class "help-block"))