blob: f4dca426ba2bf06339089425215579ec0a119d39 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
#lang racket
(provide seed-database!)
(require csv-reading
"conn.rkt"
"../models/nutrient.rkt"
"../models/nutrient-measurement.rkt"
"../models/crop.rkt"
"../models/crop-requirement.rkt"
"../models/fertilizer-product.rkt")
(define (seed-database!)
(seed-nutrients!)
(seeded "nutrients")
(seed-historical-nutrient-measurements!)
(seeded "historical nutrient measurements")
(seed-crops!)
(seeded "crops")
(seed-crop-requirements!)
(seeded "crop requirements")
(seed-existing-fertilizer-products!)
(seeded "existing fertilizer products"))
(define (seeded entity)
(displayln (format "Seeded entity: ~a" entity)))
(define (seed-nutrients!)
(define nutrient-names (map nutrient-name (get-nutrients)))
(define default-nutrients
'(("Nitrate Nitrogen" "NNO3")
("Phosphorus" "P")
("Potassium" "K")
("Calcium" "Ca")
("Magnesium" "Mg")
("Sulfur" "S")
("Sodium" "Na")
("Chloride" "Cl")
("Silicon" "Si")
("Iron" "Fe")
("Zinc" "Zn")
("Boron" "B")
("Manganese" "Mn")
("Copper" "Cu")
("Molybdenum" "Mo")
("Ammonium Nitrogen" "NNH4")))
(with-tx
(for ([pair (in-list default-nutrients)])
(define name (first pair))
(define formula (second pair))
;; Ensure idempotence
(unless (member name nutrient-names)
(create-nutrient! name formula)))))
(define (seed-historical-nutrient-measurements!)
(define input-csv "/home/blendux/git/ferti-v2/db/data/dolibarr_nutrient_measurements_ppm.csv")
(define next-row (make-csv-reader (open-input-file input-csv)))
(define header (next-row))
(define (row->seed! row)
(define row-alist (map cons header row))
(define measured-on (cdr (first row-alist)))
(define nutrient-values
(for/list ([nm (in-list (cdr row-alist))])
(define formula (car nm))
(define n (get-nutrient #:formula formula))
(define v (string->number (cdr nm)))
(cons n v)))
(create-nutrient-measurement! measured-on nutrient-values))
(with-tx
(csv-for-each row->seed! next-row)))
(define (seed-crops!)
(define crop-names (map crop-name (get-crops)))
(define default-crops '("salade"
"laitue"
"tomate"
"framboise"))
(with-tx
(for ([name (in-list default-crops)])
;; Ensure idempotence
(unless (member name crop-names)
(create-crop! name)))))
(define (seed-crop-requirements!)
(define input-csv "/home/blendux/git/ferti-v2/db/data/dolibarr_crop_requirements_ppm.csv")
(define next-row (make-csv-reader (open-input-file input-csv)))
(define header (next-row))
(define (row->seed! row)
(define row-alist (map cons header row))
(define crop-name (string-downcase (cdr (assoc "Plante" row-alist))))
(define profile (cdr (assoc "Profil" row-alist)))
(define nutrient-values
(for/list ([crop-requirement (in-list (list-tail row-alist 2))])
(define formula (car crop-requirement))
(define n (get-nutrient #:formula formula))
(define v (string->number (cdr crop-requirement)))
(cons n v)))
(cond
[(non-empty-string? crop-name)
(define crop (get-crop #:name crop-name))
(create-crop-requirement! profile nutrient-values crop)]
[else
(create-crop-requirement! profile nutrient-values)]))
(with-tx
(csv-for-each row->seed! next-row)))
(define (seed-existing-fertilizer-products!)
(define input-csv "/home/blendux/git/ferti-v2/db/data/dolibarr_fertilizer_compositions_percentage.csv")
(define next-row (make-csv-reader (open-input-file input-csv)))
(define header (next-row))
(define (row->seed! row)
(define row-alist (map cons header row))
(define canonical-name (cdr (assoc "Libellé" row-alist)))
(define brand-name (cdr (assoc "Nom commercial" row-alist)))
(define nutrient-values
(for/list ([fertilizer-component (in-list (list-tail row-alist 3))])
(define formula (car fertilizer-component))
(define n (get-nutrient #:formula formula))
(define v (string->number (cdr fertilizer-component)))
(cons n v)))
(cond
[(non-empty-string? brand-name)
(create-fertilizer-product! canonical-name nutrient-values brand-name)]
[else
(create-fertilizer-product! canonical-name nutrient-values)]))
(with-tx
(csv-for-each row->seed! next-row)))
(module+ test
(require "migrations.rkt")
(connect! #:path "test.sqlite3"
)
(migrate-all!)
(seed-database!))
|
