From 7df7ad070b7a6146ad638294e379d976d363763e Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Wed, 12 Nov 2025 18:23:40 +0100
Subject: Add user entity to model.

---
 views.rkt | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'views.rkt')

diff --git a/views.rkt b/views.rkt
index 2e102bb..6f4834c 100644
--- a/views.rkt
+++ b/views.rkt
@@ -6,8 +6,10 @@
          new-target-page
          fallback-page)
 
-(require web-server/formlets
+(require gregor
+         web-server/formlets
          "formlets.rkt"
+         "models/users.rkt"
          "models/nutrient.rkt"
          "models/nutrient-measurement.rkt"
          "models/nutrient-target.rkt"
@@ -202,11 +204,16 @@
             [method "POST"])
            ,@(formlet-display (targets-formlet)))))))
 
-(define (index-page)
+(define (index-page user)
   (page-template
    "Bienvenue à la FAPG"
-   `((a ([class "btn btn-primary mb-3"] [href "/ferti"]) "Accéder à Ferti"))))
-
+   `((h1 ([class "display-1 mb-3"])
+         ,(format "~a, ~a."
+                  (if (<= (->hours (current-time #:tz "Europe/Paris")) 17)
+                      "Bonjour"
+                      "Bonsoir")
+                  (if user (user-name user) "et bienvenue")))
+     (a ([class "btn btn-primary mb-3"] [href "/ferti"]) "Accéder à Ferti"))))
 
 (define (fallback-page request-code)
   (page-template
-- 
cgit v1.2.3