diff options
Diffstat (limited to 'views.rkt')
| -rw-r--r-- | views.rkt | 16 |
1 files changed, 2 insertions, 14 deletions
@@ -104,19 +104,11 @@ (table ((class "table")) (tr (th "Nutriment") (th ((class "text-end")) "Dernier Relevé") - (th ((class "text-end")) "Dernière Cible") - (th ((class "text-end")) "Delta (%)")) + (th ((class "text-end")) "Dernière Cible")) ,@(for/list ([n (get-nutrients)]) (define latest-measurement (hash-ref latest-measurement-hash n #f)) (define latest-target (hash-ref latest-target-hash n #f)) - (define delta-percentage - (cond - [(false? latest-target) #f] - [(zero? latest-target) -100] - [(zero? latest-measurement) 100] - [(number? latest-target) - (* 100 (/ (- latest-target latest-measurement) latest-measurement))])) - `(tr (td ,(nutrient-name n)) + `(tr (td ,(nutrient-french-name n)) (td ((class "text-end font-monospace")) ,(if latest-measurement (round 2 latest-measurement) @@ -124,10 +116,6 @@ (td ((class "text-end font-monospace")) ,(if latest-target (round 2 latest-target) - "—")) - (td ((class "text-end font-monospace")) - ,(if delta-percentage - (round 1 delta-percentage) "—"))))))) (define (ferti-measurements measurements) |