Use current locale and timezone.

2 files changed, 15 insertions, 13 deletions

diff --git a/main.rkt b/main.rkt
index 0eb1b3e..b256b5a 100644
--- a/main.rkt
+++ b/main.rkt
@@ -2,6 +2,7 @@
 
 (require web-server/dispatch
          racket/runtime-path
+         gregor
          "handlers.rkt"
          "db/conn.rkt"
          "db/migrations.rkt"
@@ -9,7 +10,9 @@
 
 (define-runtime-path development-db-path "storage/development.sqlite3")
 (module+ main
-  (connect! #:path development-db-path)
-  (migrate-all!)
-  (seed-database!)
-  (serve/dispatch (secured-dispatch)))
+  (parameterize ([current-timezone "Europe/Paris"]
+                 [current-locale "FR"])
+    (connect! #:path development-db-path)
+    (migrate-all!)
+    (seed-database!)
+    (serve/dispatch (secured-dispatch))))
diff --git a/views.rkt b/views.rkt
index 67768ff..9aaed70 100644
--- a/views.rkt
+++ b/views.rkt
@@ -188,15 +188,14 @@
                               ,@(formlet-display (fertilizer-formlet)))))))
 
 (define (index-page user)
-  (page-template
-   "Bienvenue à la FAPG"
-   `((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/index"]) "Accéder à Ferti"))))
+  (page-template "Bienvenue à la FAPG"
+                 `((h1 ((class "display-1 mb-3"))
+                       ,(string-join (list (if (<= (->hours (current-time)) 17) "Bonjour" "Bonsoir")
+                                           (if user
+                                               (user-name user)
+                                               "et bienvenue"))))
+                   (p ,(~t (now) "'Dernière connexion à' HH:mm, 'le' EEEE d MMMM yyyy"))
+                   (a ((class "btn btn-primary mb-3") [href "/ferti/index"]) "Accéder à Ferti"))))
 
 (define (fallback-page request-code)
   (page-template (format "Réponse: ~a" request-code)