diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-20 14:08:21 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-20 14:08:21 +0100 |
| commit | d2b7a6a7e2739869f8b718c80cad7c9515f10070 (patch) | |
| tree | d3e8ac04dc4d1178fe24bc0511ada49caadf25db /formlets.rkt | |
| parent | 434b521ddb70287b55d1dc8f5e24f18aeaa01fdc (diff) | |
Replace nutrient-value alists with hashes everywhere.
Diffstat (limited to 'formlets.rkt')
| -rw-r--r-- | formlets.rkt | 13 |
1 files changed, 7 insertions, 6 deletions
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)))) |