Implement show-measurement-page.

1 files changed, 9 insertions, 2 deletions

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))