Add form-page-template helper.

1 files changed, 8 insertions, 14 deletions

diff --git a/views.rkt b/views.rkt
index 0695079..b4292c1 100644
--- a/views.rkt
+++ b/views.rkt
@@ -80,7 +80,7 @@
 (define (normal-date date-string)
   (~t (iso8601->date date-string) "dd/MM/yyyy"))
 
-;; Pages
+;; Ferti
 
 (define (ferti-template body-xexpr)
   (page-template "Ferti" `((h1 ((class "display-1 mb-3")) "Ferti") ,ferti-tabs ,@body-xexpr)))
@@ -186,9 +186,6 @@
                        "Ajouter un profil")
                     ,table)))
 
-(define (new-measurement-page)
-  (page-template "Nouveau relevé"
-                 `((h1 ((class "display-1 mb-3")) "Nouveau relevé")
 ;; New
 
 (define (form-page-template title action formlet)
@@ -197,20 +194,17 @@
                    (div ((class "mb-3") [style "max-width: 30em"])
                         (form ([action ,action] [method "POST"]) ,@(formlet-display formlet))))))
 
+(define (new-measurement-page)
+  (form-page-template "Nouveau relevé" "/ferti/measurements/create" (measurements-formlet)))
 
 (define (new-rotation-page #:date [date-string #f])
-  (page-template "Nouvel assolement"
-                 `((h1 ((class "display-1 mb-3")) "Nouvel assolement")
-                   (div ((class "mb-3") [style "max-width: 30em"])
-                        (form ([action "/ferti/rotations/create"] [method "POST"])
-                              ,@(formlet-display (rotation-formlet #:date date-string)))))))
+  (form-page-template "Nouvel assolement"
+                      "/ferti/rotations/create"
+                      (rotation-formlet #:date date-string)))
 
 (define (new-fertilizer-page)
-  (page-template "Nouvel intrant"
-                 `((h1 ((class "display-1 mb-3")) "Nouvel intrant")
-                   (div ((class "mb-3") [style "max-width: 30em"])
-                        (form ([action "/ferti/fertilizers/create"] [method "POST"])
-                              ,@(formlet-display (fertilizer-formlet)))))))
+  (form-page-template "Nouvel intrant" "/ferti/fertilizers/create" (fertilizer-formlet)))
+
 ;; Edit
 
 (define (edit-fertilizer-page fp)