Use current locale and timezone.

1 files changed, 8 insertions, 9 deletions

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)