From 3ef575dce9a873184f57078e5765b47698302c66 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Thu, 23 Oct 2025 17:11:29 +0200 Subject: Fix views edge case (no latest target) and update renamed accessor. --- views.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/views.rkt b/views.rkt index 12b5d1a..d183cbe 100644 --- a/views.rkt +++ b/views.rkt @@ -86,6 +86,8 @@ (define latest-target (get-latest-nutrient-target-value n)) (define latest-measurement (get-latest-nutrient-measurement-value n)) (define delta-percentage (cond + [(false? latest-target) + #f] [(zero? latest-target) -100] [(zero? latest-measurement) @@ -93,8 +95,7 @@ [(number? latest-target) (* 100 (/ (- latest-target latest-measurement) - latest-measurement))] - [else #f])) + latest-measurement))])) `(tr (td ,(nutrient-name n)) (td ([class "text-end"]) ,(if latest-measurement (round 2 latest-measurement) "—")) (td ([class "text-end"]) ,(if latest-target (round 2 latest-target) "—")) @@ -107,7 +108,7 @@ (th ([class "text-end"]) "P") (th ([class "text-end"]) "K")) ,@(for/list ([m measurements]) - (define measured-on (nutrient-measurement-measured-on m)) + (define measured-on (nutrient-measurement-date m)) (define-values (n p k) (apply values (for/list ([nutrient '("Nitrate Nitrogen" "Phosphorus" "Potassium")]) -- cgit v1.2.3