diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-30 15:06:48 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-30 15:06:48 +0100 |
| commit | 0411d731cf2018794b4f10154e3af8c875faa99c (patch) | |
| tree | f51bb2e335aa0285bfe5502969fb59d4df26f852 /db/seed.rkt | |
| parent | a648653b1745474eef8274d72e633cf7e1d28be2 (diff) | |
Introduce crop rotations.
These will probably replace nutrient targets as the main entry point
for nutrient requirement calculations.
Diffstat (limited to 'db/seed.rkt')
| -rw-r--r-- | db/seed.rkt | 9 |
1 files changed, 9 insertions, 0 deletions
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))) |