From f4c6d6c57b3043d445336c3f8d241422d563746a Mon Sep 17 00:00:00 2001 From: Marc Kaufmann Date: Sat, 13 Feb 2016 17:55:09 -0500 Subject: [PATCH 1/2] Add #:wrap to radio-group (was added in input-group) --- web-server-lib/web-server/formlets/input.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/web-server-lib/web-server/formlets/input.rkt b/web-server-lib/web-server/formlets/input.rkt index 566a30f2..39508685 100644 --- a/web-server-lib/web-server/formlets/input.rkt +++ b/web-server-lib/web-server/formlets/input.rkt @@ -130,7 +130,7 @@ #:kind kind #:attributes [attrs (λ (x) empty)] #:checked? [checked? (λ (x) #f)] - #:display [display (λ (x) x)] + #:display [display (λ (x) x)] #:wrap [wrap (λ (x y) (list x y))]) (define value->element (make-hasheq)) (define i 0) @@ -174,12 +174,14 @@ (define (radio-group l #:attributes [attrs (λ (x) empty)] #:checked? [checked? (λ (x) #f)] - #:display [display (λ (x) x)]) + #:display [display (λ (x) x)] + #:wrap [wrap (λ (x y) (list x y))]) (input-group l #:kind "radio" #:attributes attrs #:checked? checked? - #:display display)) + #:display display + #:wrap wrap)) (define (checkbox-group l #:attributes [attrs (λ (x) empty)] From d55961ff13219fdfaab7a6d65966114f13dea450 Mon Sep 17 00:00:00 2001 From: Marc Kaufmann Date: Mon, 15 Feb 2016 21:57:33 -0500 Subject: [PATCH 2/2] Add #:wrap to radio-group contract --- web-server-lib/web-server/formlets/input.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/web-server-lib/web-server/formlets/input.rkt b/web-server-lib/web-server/formlets/input.rkt index 39508685..b8986902 100644 --- a/web-server-lib/web-server/formlets/input.rkt +++ b/web-server-lib/web-server/formlets/input.rkt @@ -356,7 +356,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 . -> . pretty-xexpr/c)) . ->* . (formlet/c any/c))] [checkbox-group ((sequence?)