Split index and Ferti pages.

1 files changed, 8 insertions, 1 deletions

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)