From 78fb3fafc03617ff8a1427b8928e603d5a6307a6 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 19 May 2019 21:24:50 +0100 Subject: [PATCH] Add type support to form-horizontal-control Particularly to support checkboxes. --- guix-data-service/web/view/html.scm | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 1d7a7d0..2e3991c 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -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 . ($ 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"))