Introduce crop rotations.

These will probably replace nutrient targets as the main entry point
for nutrient requirement calculations.

2 files changed, 33 insertions, 0 deletions

diff --git a/db/migrations.rkt b/db/migrations.rkt
index dfb216e..86c9cce 100644
--- a/db/migrations.rkt
+++ b/db/migrations.rkt
@@ -143,6 +143,30 @@
                      #:constraints (primary-key id)
                      (foreign-key crop_id #:references (crops id) #:on-delete #:cascade))))
 
+(define-migration "create table crop_rotations"
+                  (list (create-table #:if-not-exists crop_rotations
+                                      #:columns [id integer #:not-null]
+                                      ;; ISO8601 date
+                                      [rotation_date text #:not-null]
+                                      [nutrient_measurement_id integer]
+                                      #:constraints (primary-key id)
+                                      (foreign-key nutrient_measurement_id
+                                                   #:references (nutrient_measurements id)
+                                                   #:on-delete
+                                                   #:set-null)
+                                      (unique rotation_date))))
+
+(define-migration
+ "create table crop_rotation_requirements"
+ (list (create-table
+        #:if-not-exists crop_rotation_requirements
+        #:columns [crop_rotation_id integer #:not-null]
+        [crop_requirement_id integer #:not-null]
+        [proportion_percent integer #:not-null]
+        #:constraints (primary-key crop_rotation_id crop_requirement_id)
+        (foreign-key crop_rotation_id #:references (crop_rotation id) #:on-delete #:cascade)
+        (foreign-key crop_requirement_id #:references (crop_requirement id) #:on-delete #:cascade))))
+
 ;;;;;;;;;;;;;;
 ;; FERTILIZERS
 ;;;;;;;;;;;;;;
diff --git a/db/seed.rkt b/db/seed.rkt
index d767d63..8d671ba 100644
--- a/db/seed.rkt
+++ b/db/seed.rkt
@@ -9,6 +9,7 @@
          "../models/nutrient-measurement.rkt"
          "../models/crop.rkt"
          "../models/crop-requirement.rkt"
+         "../models/crop-rotation.rkt"
          "../models/fertilizer-product.rkt")
 
 (define (seed-database!)
@@ -20,6 +21,7 @@
         seed-historical-nutrient-measurements!
         seed-crops!
         seed-crop-requirements!
+        seed-initial-crop-rotation!
         seed-existing-fertilizer-products!))
 
 (define (seed-nutrients!)
@@ -90,6 +92,13 @@
       [else (create-crop-requirement! profile nutrient-values)]))
   (with-tx (csv-for-each row->seed! next-row)))
 
+(define (seed-initial-crop-rotation!)
+  (define nm (get-latest-nutrient-measurement))
+  (define generic-requirement (get-crop-requirement #:profile "générique croissance"))
+  (create-crop-rotation! (nutrient-measurement-date nm)
+                         (hash generic-requirement 100)
+                         #:nutrient-measurement (nutrient-measurement-id nm)))
+
 (define-runtime-path fertilizer-products-csv "data/dolibarr_fertilizer_compositions_percentage.csv")
 (define (seed-existing-fertilizer-products!)
   (define next-row (make-csv-reader (open-input-file fertilizer-products-csv)))