From d70e4dc1318d461d4da9fec5b5c1aa73a299f23c Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 29 Nov 2025 19:39:37 +0100 Subject: Implement show-measurement-page. --- views.rkt | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'views.rkt') diff --git a/views.rkt b/views.rkt index 1b232a2..933594e 100644 --- a/views.rkt +++ b/views.rkt @@ -193,8 +193,15 @@ ,@(formlet-display (fertilizer-formlet))))))) (define (show-measurement-page nm) - (page-template (format "Relevé du ~a" (nutrient-measurement-date nm)) - '((h1 ((class "display-1 mb-3")) "Relevé")))) + (define title (format "Relevé du ~a" (nutrient-measurement-date nm))) + (define table + `(table ((class "table")) + (thead (tr (th "Nutriment") (th ((class "text-end")) "Valeur de ce relevé"))) + (tbody ,@(for/list ([n (get-nutrients)]) + (define nutrient-value (hash-ref (nutrient-measurement-values nm) n 0)) + `(tr (td ,(nutrient-french-name n)) + (td ((class "text-end font-monospace")) ,(round 2 nutrient-value))))))) + (page-template title `((h1 ((class "display-1 mb-3")) ,title) ,table))) (define (show-target-page nt) (page-template (format "Cible ~a" (nutrient-target-id nt)) -- cgit v1.2.3