Add user entity to model.

1 files changed, 11 insertions, 4 deletions

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