[Racket] Ferti hydroponic nutrient solver, redux.
Realign table header titles.
views.rkt
@@ -221,7 +221,7 @@
221
221
(define title (format "Relevé du ~a" (normal-date (nutrient-measurement-date nm))))
222
222
(define table
223
223
`(table ((class "table"))
224
Removed:
(thead (tr (th "Nutriment") (th ((class "text-end")) "Valeur de ce relevé (mg/L)")))
224
Added:
(thead (tr (th "Nutriment") (th ((class "text-end")) "Concentration (mg/L)")))
225
225
(tbody ,@(for/list ([n (get-nutrients)])
226
226
(define nutrient-value (hash-ref (nutrient-measurement-values nm) n 0))
227
227
`(tr (td ,(nutrient-french-name n))
@@ -261,7 +261,7 @@
261
261
(define sorted-nutrient-values (sort (hash->list positive-nutrient-values) > #:key cdr))
262
262
(define table
263
263
`(table ((class "table"))
264
Removed:
(thead (tr (th "Nutriment") (th ((class "text-end")) "Apport (mg/L)")))
264
Added:
(thead (tr (th "Nutriment") (th ((class "text-end")) "Concentration (mg/L)")))
265
265
(tbody ,@(for/list ([nv-pair sorted-nutrient-values])
266
266
(match-define (cons n v) nv-pair)
267
267
`(tr (td ,(nutrient-french-name n))