diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-10-23 17:11:29 +0200 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-10-23 17:11:29 +0200 |
| commit | 3ef575dce9a873184f57078e5765b47698302c66 (patch) | |
| tree | a08f324babf650780536c1ed434fbf03b153794a /views.rkt | |
| parent | 5ca8097a847e29c5cf1267cbc43f1949f9e04117 (diff) | |
Fix views edge case (no latest target) and update renamed accessor.
Diffstat (limited to 'views.rkt')
| -rw-r--r-- | views.rkt | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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")]) |