[Racket] Ferti hydroponic nutrient solver, redux.
Remove redundant parameter from view function.
Changed files
handlers.rkt
@@ -62,10 +62,9 @@
62
62
(render-page (ferti-index-page)))
63
63
64
64
(define (ferti-measurements-and-rotations _)
65
Removed:
(define nutrients (get-nutrients))
66
65
(define measurements (get-nutrient-measurements))
67
66
(define rotations (get-crop-rotations))
68
Removed:
(render-page (ferti-measurements-and-rotations-page nutrients measurements rotations)))
67
Added:
(render-page (ferti-measurements-and-rotations-page measurements rotations)))
69
68
70
69
(define (ferti-recipe _ date-string)
71
70
(define ferti-recipe (find-ferti-recipe date-string))
views.rkt
@@ -102,7 +102,7 @@
102
102
(a ((class "btn btn-outline-primary") [href "/ferti/fertilizer/new"])
103
103
"Ajouter un intrant")))))
104
104
105
Removed:
(define (ferti-measurements-and-rotations-page nutrients measurements rotations)
105
Added:
(define (ferti-measurements-and-rotations-page measurements rotations)
106
106
(define (maybe-rotation-for-measurement m)
107
107
(findf (λ (r) (equal? (crop-rotation-date r) (nutrient-measurement-date m))) rotations))
108
108
(define table
@@ -128,11 +128,11 @@
128
128
(href ,(format "/ferti/recipe/~a" (crop-rotation-date maybe-rotation))))
129
129
"Consulter")
130
130
"—")))))))
131
Removed:
(ferti-template
132
Removed:
`((h2 () "Relevés & Assolements")
133
Removed:
(div ((class "btn-group mb-3"))
134
Removed:
(a ((class "btn btn-primary") [href "/ferti/measurement/new"]) "Ajouter un relevé")
135
Removed:
,table)))
131
Added:
(ferti-template `((h2 () "Relevés & Assolements")
132
Added:
(div ((class "btn-group mb-3"))
133
Added:
(a ((class "btn btn-primary") [href "/ferti/measurement/new"])
134
Added:
"Ajouter un relevé"))
135
Added:
,table)))
136
136
137
137
#;
138
138
(define (ferti-targets-page latest-measurement-hash latest-target-hash)