diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-20 11:28:55 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-20 11:28:55 +0100 |
| commit | 4bc7b5822b2c69dfe918b18fb0c08cf3406d2958 (patch) | |
| tree | 06207ad2cfaa6b82e9a49370e87cb0f4d7ef8fa3 | |
| parent | e49ca1f3999127bee5888b44c3900b5483ecebd0 (diff) | |
Reduce SQL requests for main Ferti page.
| -rw-r--r-- | handlers.rkt | 7 | ||||
| -rw-r--r-- | views.rkt | 6 |
2 files changed, 8 insertions, 5 deletions
diff --git a/handlers.rkt b/handlers.rkt index 7fcd004..da56161 100644 --- a/handlers.rkt +++ b/handlers.rkt @@ -31,10 +31,13 @@ (define ferti-recipe (find-ferti-recipe)) (define latest-measurement-hash (get-latest-nutrient-measurement-hash)) (define latest-target-hash (get-latest-nutrient-target-hash)) - (define latest-measurements (take* (get-nutrient-measurements) 10)) + (define latest-measurements (take (get-nutrient-measurements) 10)) (response/xexpr #:preamble #"<!DOCTYPE html>" - (ferti-page ferti-recipe latest-measurement-hash latest-target-hash latest-measurements))) + (ferti-page ferti-recipe + latest-measurement-hash + latest-target-hash + latest-measurements))) (define (index _) (define user (get-current-user)) @@ -84,7 +84,7 @@ ;; Pages -(define (ferti-page measurements ferti-recipe) +(define (ferti-page ferti-recipe latest-measurement-hash latest-target-hash measurements) (page-template "Ferti" `((h1 ((class "display-1 mb-3")) "Ferti") @@ -112,8 +112,8 @@ (th ((class "text-end")) "Dernière Cible") (th ((class "text-end")) "Delta (%)")) ,@(for/list ([n (get-nutrients)]) - (define latest-target (get-latest-nutrient-target-value n)) - (define latest-measurement (get-latest-nutrient-measurement-value n)) + (define latest-measurement (hash-ref latest-measurement-hash n #f)) + (define latest-target (hash-ref latest-target-hash n #f)) (define delta-percentage (cond [(false? latest-target) #f] |