From 46135d9af7b41af8f505968160aa2b84781682d5 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Wed, 12 Nov 2025 17:21:32 +0100 Subject: Split index and Ferti pages. --- handlers.rkt | 11 +++++++++-- 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 #"" - (index-page measurements ferti-recipe))) + (ferti-page measurements ferti-recipe))) + +(define (index _) + (response/xexpr + #:preamble #"" + (index-page))) ;; Nutrient measurements diff --git a/views.rkt b/views.rkt index 358a680..2e102bb 100644 --- a/views.rkt +++ b/views.rkt @@ -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) -- cgit v1.2.3