diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-20 11:27:50 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-20 11:27:50 +0100 |
| commit | e49ca1f3999127bee5888b44c3900b5483ecebd0 (patch) | |
| tree | 66a2e7a2ca48a7fb480d0ded1d8072da2f4b93cf /views.rkt | |
| parent | c0f93e8d41188fc4138a350430ee349b61ea0535 (diff) | |
raco fmt.
Diffstat (limited to 'views.rkt')
| -rw-r--r-- | views.rkt | 30 |
1 files changed, 16 insertions, 14 deletions
@@ -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 ;;;;;;;;;; |