Add #:wrap to checkbox-group

Author: tojoqk

web-server-lib/web-server/formlets/input.rkt

@@ -55,7 +55,8 @@
                                (#:attributes 
                                 (-> any/c (listof (list/c symbol? string?)))
                                 #:checked? (any/c . -> . boolean?)
-                                #:display (any/c . -> . pretty-xexpr/c))
+                                #:display (any/c . -> . pretty-xexpr/c)
+                                #:wrap (any/c any/c . -> . xexpr-forest/c))
                                (serial-formlet/c (listof any/c)))]
           [submit (->* ((or/c bytes? string?))
                        (#:attributes (listof (list/c symbol? string?)))

web-server-lib/web-server/formlets/unsafe/input.rkt

@@ -206,12 +206,14 @@
 (define (checkbox-group l 
                         #:attributes [attrs (λ (x) null)]
                         #:checked? [checked? (λ (x) #f)]
-                        #:display [display (λ (x) x)])
+                        #:display [display (λ (x) x)]
+                        #:wrap [wrap (λ (x y) (list x y))])
   (input-group l
                #:kind "checkbox"
                #:attributes attrs
                #:checked? checked?
-               #:display display))
+               #:display display
+               #:wrap wrap))
 
 (define (submit value
                 #:attributes [attrs null])