[Racket] Ferti hydroponic nutrient solver, redux.
Update view.
views.rkt
@@ -240,7 +240,8 @@
240
240
,table)))
241
241
242
242
(define (show-fertilizer-page fp)
243
Removed:
(define title (fertilizer-product-name fp))
243
Added:
(define product-name (fertilizer-product-name fp))
244
Added:
(define brand-name (fertilizer-brand-name fp))
244
245
(define nutrient-values (fertilizer-product-values fp))
245
246
(define table
246
247
`(table ((class "table"))
@@ -250,8 +251,9 @@
250
251
`(tr (td ,(nutrient-french-name nutrient))
251
252
(td ((class "text-end font-monospace")) ,(round 2 quantity)))))))
252
253
253
Removed:
(page-template title
254
Removed:
`((h1 ((class "display-1 mb-3")) ,title)
254
Added:
(page-template product-name
255
Added:
`((h1 ((class "display-1 mb-3")) ,(or brand-name "Intrant générique"))
256
Added:
(h5 ((class "display-5 mb-3")) ,product-name)
255
257
(a ((class "btn btn-danger")
256
258
[href ,(format "/ferti/fertilizers/destroy/~a" (fertilizer-product-id fp))])
257
259
"Supprimer")