From d2b7a6a7e2739869f8b718c80cad7c9515f10070 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Thu, 20 Nov 2025 14:08:21 +0100 Subject: Replace nutrient-value alists with hashes everywhere. --- formlets.rkt | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'formlets.rkt') diff --git a/formlets.rkt b/formlets.rkt index 20a84d8..d0baffc 100644 --- a/formlets.rkt +++ b/formlets.rkt @@ -65,10 +65,10 @@ (format "~a (~a)" crop profile) (format "~a" profile)))) (formlet - (#%# (div ((class "form-floating mb-3")) ,{=> number-input requirement-proportion-b} ,input-label)) - (let ([requirement-proportion - (string->number (bytes->string/utf-8 (binding:form-value requirement-proportion-b)))]) - (and requirement-proportion (cons requirement requirement-proportion))))) + (#%# (div ((class "form-floating mb-3")) ,{=> number-input requirement-percentage-b} ,input-label)) + (let ([requirement-percentage + (string->number (bytes->string/utf-8 (binding:form-value requirement-percentage-b)))]) + (and requirement-percentage (cons requirement requirement-percentage))))) (define (targets-formlet) (formlet* (#%# `(div ((class "mb-3")) (h5 "Date ciblée") ,{=>* date-formlet effective-on*}) @@ -78,5 +78,6 @@ {=>* (crop-requirement-formlet requirement) requirements*})) {=>* (submit "Enregistrer la cible" #:attributes '((class "btn btn-primary"))) _}) (let ([effective-on (first effective-on*)] - [requirements (filter pair? requirements*)]) ; drop #f’s from empty values - (values effective-on requirements)))) + [nutrient-values (average-crop-requirement-nutrient-values (filter pair? + requirements*))]) + (values effective-on nutrient-values)))) -- cgit v1.2.3