[Racket] Ferti hydroponic nutrient solver, redux.
Use current locale and timezone.
main.rkt
@@ -2,6 +2,7 @@
2
2
3
3
(require web-server/dispatch
4
4
racket/runtime-path
5
Added:
gregor
5
6
"handlers.rkt"
6
7
"db/conn.rkt"
7
8
"db/migrations.rkt"
@@ -9,7 +10,9 @@
9
10
10
11
(define-runtime-path development-db-path "storage/development.sqlite3")
11
12
(module+ main
12
Removed:
(connect! #:path development-db-path)
13
Removed:
(migrate-all!)
14
Removed:
(seed-database!)
15
Removed:
(serve/dispatch (secured-dispatch)))
13
Added:
(parameterize ([current-timezone "Europe/Paris"]
14
Added:
[current-locale "FR"])
15
Added:
(connect! #:path development-db-path)
16
Added:
(migrate-all!)
17
Added:
(seed-database!)
18
Added:
(serve/dispatch (secured-dispatch))))
views.rkt
@@ -188,15 +188,14 @@
188
188
,@(formlet-display (fertilizer-formlet)))))))
189
189
190
190
(define (index-page user)
191
Removed:
(page-template
192
Removed:
"Bienvenue à la FAPG"
193
Removed:
`((h1 ((class "display-1 mb-3"))
194
Removed:
,(format "~a, ~a."
195
Removed:
(if (<= (->hours (current-time #:tz "Europe/Paris")) 17) "Bonjour" "Bonsoir")
196
Removed:
(if user
197
Removed:
(user-name user)
198
Removed:
"et bienvenue")))
199
Removed:
(a ((class "btn btn-primary mb-3") [href "/ferti/index"]) "Accéder à Ferti"))))
191
Added:
(page-template "Bienvenue à la FAPG"
192
Added:
`((h1 ((class "display-1 mb-3"))
193
Added:
,(string-join (list (if (<= (->hours (current-time)) 17) "Bonjour" "Bonsoir")
194
Added:
(if user
195
Added:
(user-name user)
196
Added:
"et bienvenue"))))
197
Added:
(p ,(~t (now) "'Dernière connexion à' HH:mm, 'le' EEEE d MMMM yyyy"))
198
Added:
(a ((class "btn btn-primary mb-3") [href "/ferti/index"]) "Accéder à Ferti"))))
200
199
201
200
(define (fallback-page request-code)
202
201
(page-template (format "Réponse: ~a" request-code)