diff options
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 ;;;;;;;;;; |