diff options
| -rw-r--r-- | main.rkt | 11 | ||||
| -rw-r--r-- | views.rkt | 17 |
2 files changed, 15 insertions, 13 deletions
@@ -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)))) @@ -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) |