From 8020f23b1cefe9ad6cef9bbd47d3879caeba0d0d Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Wed, 10 Dec 2025 20:47:05 +0100
Subject: Add crop requirements logic + views.

---
 handlers.rkt | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'handlers.rkt')

diff --git a/handlers.rkt b/handlers.rkt
index 179775e..010fe8e 100644
--- a/handlers.rkt
+++ b/handlers.rkt
@@ -10,8 +10,8 @@
          "views.rkt"
          "formlets.rkt"
          "models/user.rkt"
-         "models/nutrient.rkt"
          "models/nutrient-measurement.rkt"
+         "models/crop-requirement.rkt"
          "models/crop-rotation.rkt"
          "models/fertilizer-product.rkt"
          "services/nnls.rkt")
@@ -27,6 +27,7 @@
    [("ferti" "measurements-and-rotations") #:method "get" ferti-measurements-and-rotations]
    [("ferti" "recipes" (string-arg)) #:method "get" ferti-recipe]
    [("ferti" "fertilizers") #:method "get" ferti-fertilizers]
+   [("ferti" "crop-requirements") #:method "get" ferti-crop-requirements]
    ;; Nutrient measurements
    [("ferti" "measurements" "new") #:method "get" new-measurement]
    [("ferti" "measurements" "create") #:method "post" create-measurement]
@@ -71,8 +72,10 @@
   (render-page (ferti-recipe-page date-string ferti-recipe)))
 
 (define (ferti-fertilizers _)
-  (define fertilizers (get-fertilizer-products))
-  (render-page (ferti-fertilizers-page fertilizers)))
+  (render-page (ferti-fertilizers-page (get-fertilizer-products))))
+
+(define (ferti-crop-requirements _)
+  (render-page (ferti-crop-requirements-page (get-crop-requirements))))
 
 ;; Nutrient measurements
 
-- 
cgit v1.2.3