diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-12-13 22:52:29 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-12-13 22:52:29 +0100 |
| commit | 71b143fd2aa3cf007c5b09ebd1b09d88694367dc (patch) | |
| tree | 88a102ff528c999c7a86776bc39b17a636dbe0bc | |
| parent | fc64ba9e3f119b3e283bd3750385c477381d549a (diff) | |
Minor formlet updates.
| -rw-r--r-- | formlets.rkt | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/formlets.rkt b/formlets.rkt index 7ebd0b9..c35e882 100644 --- a/formlets.rkt +++ b/formlets.rkt @@ -10,6 +10,7 @@ "models/nutrient-measurement.rkt" "models/fertilizer-product.rkt" "models/crop.rkt" + "models/crop-rotation.rkt" "models/crop-requirement.rkt") (define (measurements-formlet #:value [nm #f]) @@ -40,7 +41,7 @@ (define (rotation-formlet #:date [date-string #f]) (formlet* (#%# `(div ((class "mb-3")) (h5 "Date de l'assolement") - ,{=>* (date-formlet #:date date-string) rotation-date*}) + ,{=>* (date-formlet #:value date-string) rotation-date*}) `(div ((class "mb-3")) (h5 "Répartition des cultures (%)") ,@(for/list ([requirement (get-crop-requirements)]) @@ -57,18 +58,16 @@ id*) `(div ((class "mb-3")) (h5 "Nom de référence") - ,{=>* - (required-string-input #:value (if fp - (fertilizer-product-name fp) - "")) - canonical-name*}) + ,(=>* (required-string-input #:value (if fp + (fertilizer-product-name fp) + "")) + canonical-name*)) `(div ((class "mb-3")) (h5 "Nom de marque") - ,{=>* - (required-string-input #:value (if fp - (fertilizer-brand-name fp) - "")) - brand-name*}) + ,(=>* (required-string-input #:value (if fp + (fertilizer-brand-name fp) + "")) + brand-name*)) `(div ((class "mb-3")) (h5 "Valeurs de l'intrant") ,@(for/list ([n (get-nutrients)]) @@ -115,7 +114,7 @@ (div ((class "form-floating mb-3")) ,{=> percentage-input requirement-percentage} ,input-label) (cons requirement requirement-percentage))) -(define (date-formlet #:date [date-string #f]) +(define (date-formlet #:value [date-string #f]) (to-string (required (input #:type "date" #:value (or date-string (date->iso8601 (today))) #:attributes '((class "form-control") [required "required"]))))) @@ -130,7 +129,6 @@ [id ,id] [name ,id] [value ,(number->string value)] - [step "0.1"] [placeholder ,(nutrient-french-name nutrient)])))))) (define input-label `(label ((for ,id |