[Racket] Ferti hydroponic nutrient solver, redux.
Remove latest measurement and target delta display.
views.rkt
@@ -104,19 +104,11 @@
104
104
(table ((class "table"))
105
105
(tr (th "Nutriment")
106
106
(th ((class "text-end")) "Dernier Relevé")
107
Removed:
(th ((class "text-end")) "Dernière Cible")
108
Removed:
(th ((class "text-end")) "Delta (%)"))
107
Added:
(th ((class "text-end")) "Dernière Cible"))
109
108
,@(for/list ([n (get-nutrients)])
110
109
(define latest-measurement (hash-ref latest-measurement-hash n #f))
111
110
(define latest-target (hash-ref latest-target-hash n #f))
112
Removed:
(define delta-percentage
113
Removed:
(cond
114
Removed:
[(false? latest-target) #f]
115
Removed:
[(zero? latest-target) -100]
116
Removed:
[(zero? latest-measurement) 100]
117
Removed:
[(number? latest-target)
118
Removed:
(* 100 (/ (- latest-target latest-measurement) latest-measurement))]))
119
Removed:
`(tr (td ,(nutrient-name n))
111
Added:
`(tr (td ,(nutrient-french-name n))
120
112
(td ((class "text-end font-monospace"))
121
113
,(if latest-measurement
122
114
(round 2 latest-measurement)
@@ -124,10 +116,6 @@
124
116
(td ((class "text-end font-monospace"))
125
117
,(if latest-target
126
118
(round 2 latest-target)
127
Removed:
"—"))
128
Removed:
(td ((class "text-end font-monospace"))
129
Removed:
,(if delta-percentage
130
Removed:
(round 1 delta-percentage)
131
119
"—")))))))
132
120
133
121
(define (ferti-measurements measurements)