From e49ca1f3999127bee5888b44c3900b5483ecebd0 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Thu, 20 Nov 2025 11:27:50 +0100 Subject: raco fmt. --- views.rkt | 30 ++++++++++++++++-------------- 1 file changed, 16 insertions(+), 14 deletions(-) (limited to 'views.rkt') diff --git a/views.rkt b/views.rkt index 5893512..7e4f4d9 100644 --- a/views.rkt +++ b/views.rkt @@ -116,22 +116,24 @@ (define latest-measurement (get-latest-nutrient-measurement-value n)) (define delta-percentage (cond - [(false? latest-target) - #f] - [(zero? latest-target) - -100] - [(zero? latest-measurement) - 100] + [(false? latest-target) #f] + [(zero? latest-target) -100] + [(zero? latest-measurement) 100] [(number? latest-target) - (* 100 - (/ (- latest-target latest-measurement) - latest-measurement))])) + (* 100 (/ (- latest-target latest-measurement) latest-measurement))])) `(tr (td ,(nutrient-name n)) - (td ([class "text-end font-monospace"]) ,(if latest-measurement (round 2 latest-measurement) "—")) - (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) "—"))))) - - + (td ((class "text-end font-monospace")) + ,(if latest-measurement + (round 2 latest-measurement) + "—")) + (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) + "—"))))) ;;;;;;;;;; ;; Relevés ;;;;;;;;;; -- cgit v1.2.3