From e4df053522e0f1ae0a8d3abd62dfe52d28e20d45 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 13 Dec 2025 22:30:24 +0100 Subject: Realign table header titles. --- views.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/views.rkt b/views.rkt index 965cab9..805dc58 100644 --- a/views.rkt +++ b/views.rkt @@ -221,7 +221,7 @@ (define title (format "Relevé du ~a" (normal-date (nutrient-measurement-date nm)))) (define table `(table ((class "table")) - (thead (tr (th "Nutriment") (th ((class "text-end")) "Valeur de ce relevé (mg/L)"))) + (thead (tr (th "Nutriment") (th ((class "text-end")) "Concentration (mg/L)"))) (tbody ,@(for/list ([n (get-nutrients)]) (define nutrient-value (hash-ref (nutrient-measurement-values nm) n 0)) `(tr (td ,(nutrient-french-name n)) @@ -261,7 +261,7 @@ (define sorted-nutrient-values (sort (hash->list positive-nutrient-values) > #:key cdr)) (define table `(table ((class "table")) - (thead (tr (th "Nutriment") (th ((class "text-end")) "Apport (mg/L)"))) + (thead (tr (th "Nutriment") (th ((class "text-end")) "Concentration (mg/L)"))) (tbody ,@(for/list ([nv-pair sorted-nutrient-values]) (match-define (cons n v) nv-pair) `(tr (td ,(nutrient-french-name n)) -- cgit v1.2.3