diff options
Diffstat (limited to 'formlets.rkt')
| -rw-r--r-- | formlets.rkt | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/formlets.rkt b/formlets.rkt index 6ae4551..cc89fc0 100644 --- a/formlets.rkt +++ b/formlets.rkt @@ -87,14 +87,12 @@ requirements*))]) (values effective-on nutrient-values)))) -(define (name-formlet) - (define string-input (input #:type "string" #:attributes `((class "form-control")))) - (formlet (#%# (div ((class "mb-3")) ,{=> string-input string-value-b})) - (bytes->string/utf-8 (binding:form-value string-value-b)))) +(define string-input + (to-string (required (text-input #:attributes '((class "form-control") [required "required"]))))) (define (fertilizer-formlet) - (formlet* (#%# `(div ((class "mb-3")) (h5 "Nom de référence") ,{=>* (name-formlet) canonical-name*}) - `(div ((class "mb-3")) (h5 "Nom de marque") ,{=>* (name-formlet) brand-name*}) + (formlet* (#%# `(div ((class "mb-3")) (h5 "Nom de référence") ,{=>* string-input canonical-name*}) + `(div ((class "mb-3")) (h5 "Nom de marque") ,{=>* string-input brand-name*}) `(div ((class "mb-3")) (h5 "Valeurs de l'intrant") ,@(for/list ([nutrient (get-nutrients)]) @@ -104,4 +102,4 @@ [nutrient-values (for/hash ([nv (filter pair? nutrient-values*)]) (values (car nv) (cdr nv)))] [brand-name (first brand-name*)]) - (values canonical-name nutrient-values brand-name)))) + (values canonical-name brand-name nutrient-values)))) |