[Racket] Ferti hydroponic nutrient solver, redux.
Implement show-measurement-page.
views.rkt
@@ -193,8 +193,15 @@
193
193
,@(formlet-display (fertilizer-formlet)))))))
194
194
195
195
(define (show-measurement-page nm)
196
Removed:
(page-template (format "Relevé du ~a" (nutrient-measurement-date nm))
197
Removed:
'((h1 ((class "display-1 mb-3")) "Relevé"))))
196
Added:
(define title (format "Relevé du ~a" (nutrient-measurement-date nm)))
197
Added:
(define table
198
Added:
`(table ((class "table"))
199
Added:
(thead (tr (th "Nutriment") (th ((class "text-end")) "Valeur de ce relevé")))
200
Added:
(tbody ,@(for/list ([n (get-nutrients)])
201
Added:
(define nutrient-value (hash-ref (nutrient-measurement-values nm) n 0))
202
Added:
`(tr (td ,(nutrient-french-name n))
203
Added:
(td ((class "text-end font-monospace")) ,(round 2 nutrient-value)))))))
204
Added:
(page-template title `((h1 ((class "display-1 mb-3")) ,title) ,table)))
198
205
199
206
(define (show-target-page nt)
200
207
(page-template (format "Cible ~a" (nutrient-target-id nt))