From d9777ece2360673443244ec6dc9bd5253c8e3ada Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 29 Nov 2025 14:21:21 +0100 Subject: Use current locale and timezone. --- views.rkt | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'views.rkt') 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) -- cgit v1.2.3