From 09e2b04a7b469daa4b8b6fd89b88ae800d612fd6 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 22 Nov 2025 18:08:48 +0100 Subject: Make fertilizer product brand name obligatory. --- formlets.rkt | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'formlets.rkt') 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)))) -- cgit v1.2.3