[Racket] Ferti hydroponic nutrient solver, redux.
Make CSV file paths relative to the seed module path.
db/seed.rkt
@@ -3,6 +3,7 @@
3
3
(provide seed-database!)
4
4
5
5
(require csv-reading
6
Added:
racket/runtime-path
6
7
"conn.rkt"
7
8
"../models/nutrient.rkt"
8
9
"../models/nutrient-measurement.rkt"
@@ -52,9 +53,9 @@
52
53
(unless (member name nutrient-names)
53
54
(create-nutrient! name formula)))))
54
55
56
Added:
(define-runtime-path measurement-csv "data/dolibarr_nutrient_measurements_ppm.csv")
55
57
(define (seed-historical-nutrient-measurements!)
56
Removed:
(define input-csv "/home/blendux/git/ferti-v2/db/data/dolibarr_nutrient_measurements_ppm.csv")
57
Removed:
(define next-row (make-csv-reader (open-input-file input-csv)))
58
Added:
(define next-row (make-csv-reader (open-input-file measurement-csv)))
58
59
(define header (next-row))
59
60
(define (row->seed! row)
60
61
(define row-alist (map cons header row))
@@ -81,9 +82,9 @@
81
82
(unless (member name crop-names)
82
83
(create-crop! name)))))
83
84
85
Added:
(define-runtime-path requirements-csv "data/dolibarr_crop_requirements_ppm.csv")
84
86
(define (seed-crop-requirements!)
85
Removed:
(define input-csv "/home/blendux/git/ferti-v2/db/data/dolibarr_crop_requirements_ppm.csv")
86
Removed:
(define next-row (make-csv-reader (open-input-file input-csv)))
87
Added:
(define next-row (make-csv-reader (open-input-file requirements-csv)))
87
88
(define header (next-row))
88
89
(define (row->seed! row)
89
90
(define row-alist (map cons header row))
@@ -104,9 +105,9 @@
104
105
(with-tx
105
106
(csv-for-each row->seed! next-row)))
106
107
108
Added:
(define-runtime-path fertilizer-csv "data/dolibarr_fertilizer_compositions_percentage.csv")
107
109
(define (seed-existing-fertilizer-products!)
108
Removed:
(define input-csv "/home/blendux/git/ferti-v2/db/data/dolibarr_fertilizer_compositions_percentage.csv")
109
Removed:
(define next-row (make-csv-reader (open-input-file input-csv)))
110
Added:
(define next-row (make-csv-reader (open-input-file fertilizer-csv)))
110
111
(define header (next-row))
111
112
(define (row->seed! row)
112
113
(define row-alist (map cons header row))