diff options
| -rw-r--r-- | handlers.rkt | 11 | ||||
| -rw-r--r-- | views.rkt | 9 |
2 files changed, 17 insertions, 3 deletions
diff --git a/handlers.rkt b/handlers.rkt index 5ff000e..924b2f3 100644 --- a/handlers.rkt +++ b/handlers.rkt @@ -14,6 +14,8 @@ (define-values (app-dispatch _) (dispatch-rules + ;; Ferti dashboard + [("ferti") #:method "get" ferti] ;; Nutrient measurements [("measurement" "new") #:method "get" new-measurement] [("measurement" "create") #:method "post" create-measurement] @@ -25,12 +27,17 @@ [("") #:method "get" index] [else fallback])) -(define (index _) +(define (ferti _) (define measurements (get-nutrient-measurements)) (define ferti-recipe (find-ferti-recipe)) (response/xexpr #:preamble #"<!DOCTYPE html>" - (index-page measurements ferti-recipe))) + (ferti-page measurements ferti-recipe))) + +(define (index _) + (response/xexpr + #:preamble #"<!DOCTYPE html>" + (index-page))) ;; Nutrient measurements @@ -1,6 +1,7 @@ #lang racket (provide index-page + ferti-page new-measurement-page new-target-page fallback-page) @@ -102,7 +103,7 @@ ;; Pages -(define (index-page measurements ferti-recipe) +(define (ferti-page measurements ferti-recipe) (page-template "Ferti" `((h1 ([class "display-1 mb-3"]) "Ferti") @@ -201,6 +202,12 @@ [method "POST"]) ,@(formlet-display (targets-formlet))))))) +(define (index-page) + (page-template + "Bienvenue à la FAPG" + `((a ([class "btn btn-primary mb-3"] [href "/ferti"]) "Accéder à Ferti")))) + + (define (fallback-page request-code) (page-template (format "Réponse: ~a" request-code) |