From 507844a30cbbdaf166a2fd56c9a6e4985c7d7c97 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Mon, 24 Nov 2025 15:39:14 +0100 Subject: Remove latest measurement and target delta display. --- views.rkt | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) (limited to 'views.rkt') diff --git a/views.rkt b/views.rkt index cd33cad..b61842d 100644 --- a/views.rkt +++ b/views.rkt @@ -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) -- cgit v1.2.3