From 46135d9af7b41af8f505968160aa2b84781682d5 Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Wed, 12 Nov 2025 17:21:32 +0100
Subject: Split index and Ferti pages.

---
 views.rkt | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'views.rkt')

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