diff options
| -rw-r--r-- | handlers.rkt | 3 | ||||
| -rw-r--r-- | views.rkt | 12 |
2 files changed, 7 insertions, 8 deletions
diff --git a/handlers.rkt b/handlers.rkt index bd8387a..bcd81c7 100644 --- a/handlers.rkt +++ b/handlers.rkt @@ -62,10 +62,9 @@ (render-page (ferti-index-page))) (define (ferti-measurements-and-rotations _) - (define nutrients (get-nutrients)) (define measurements (get-nutrient-measurements)) (define rotations (get-crop-rotations)) - (render-page (ferti-measurements-and-rotations-page nutrients measurements rotations))) + (render-page (ferti-measurements-and-rotations-page measurements rotations))) (define (ferti-recipe _ date-string) (define ferti-recipe (find-ferti-recipe date-string)) @@ -102,7 +102,7 @@ (a ((class "btn btn-outline-primary") [href "/ferti/fertilizer/new"]) "Ajouter un intrant"))))) -(define (ferti-measurements-and-rotations-page nutrients measurements rotations) +(define (ferti-measurements-and-rotations-page measurements rotations) (define (maybe-rotation-for-measurement m) (findf (λ (r) (equal? (crop-rotation-date r) (nutrient-measurement-date m))) rotations)) (define table @@ -128,11 +128,11 @@ (href ,(format "/ferti/recipe/~a" (crop-rotation-date maybe-rotation)))) "Consulter") "—"))))))) - (ferti-template - `((h2 () "Relevés & Assolements") - (div ((class "btn-group mb-3")) - (a ((class "btn btn-primary") [href "/ferti/measurement/new"]) "Ajouter un relevé") - ,table))) + (ferti-template `((h2 () "Relevés & Assolements") + (div ((class "btn-group mb-3")) + (a ((class "btn btn-primary") [href "/ferti/measurement/new"]) + "Ajouter un relevé")) + ,table))) #; (define (ferti-targets-page latest-measurement-hash latest-target-hash) |