[Racket] Ferti hydroponic nutrient solver, redux.

Add form-page-template helper.

Commit
11ff437e30206bcb2c73c6412eaadab56f9be8f5
Author
Marius Peter <dev@marius-peter.com>
Author date
Committer
Marius Peter <dev@marius-peter.com>
Committer date
views.rkt
index 0695079b..b4292c1d 100644..100644
@@ -80,7 +80,7 @@
80 80 (define (normal-date date-string)
81 81 (~t (iso8601->date date-string) "dd/MM/yyyy"))
82 82
83 Removed: ;; Pages
83 Added: ;; Ferti
84 84
85 85 (define (ferti-template body-xexpr)
86 86 (page-template "Ferti" `((h1 ((class "display-1 mb-3")) "Ferti") ,ferti-tabs ,@body-xexpr)))
@@ -186,9 +186,6 @@
186 186 "Ajouter un profil")
187 187 ,table)))
188 188
189 Removed: (define (new-measurement-page)
190 Removed: (page-template "Nouveau relevé"
191 Removed: `((h1 ((class "display-1 mb-3")) "Nouveau relevé")
192 189 ;; New
193 190
194 191 (define (form-page-template title action formlet)
@@ -197,20 +194,17 @@
197 194 (div ((class "mb-3") [style "max-width: 30em"])
198 195 (form ([action ,action] [method "POST"]) ,@(formlet-display formlet))))))
199 196
197 Added: (define (new-measurement-page)
198 Added: (form-page-template "Nouveau relevé" "/ferti/measurements/create" (measurements-formlet)))
200 199
201 200 (define (new-rotation-page #:date [date-string #f])
202 Removed: (page-template "Nouvel assolement"
203 Removed: `((h1 ((class "display-1 mb-3")) "Nouvel assolement")
204 Removed: (div ((class "mb-3") [style "max-width: 30em"])
205 Removed: (form ([action "/ferti/rotations/create"] [method "POST"])
206 Removed: ,@(formlet-display (rotation-formlet #:date date-string)))))))
201 Added: (form-page-template "Nouvel assolement"
202 Added: "/ferti/rotations/create"
203 Added: (rotation-formlet #:date date-string)))
207 204
208 205 (define (new-fertilizer-page)
209 Removed: (page-template "Nouvel intrant"
210 Removed: `((h1 ((class "display-1 mb-3")) "Nouvel intrant")
211 Removed: (div ((class "mb-3") [style "max-width: 30em"])
212 Removed: (form ([action "/ferti/fertilizers/create"] [method "POST"])
213 Removed: ,@(formlet-display (fertilizer-formlet)))))))
206 Added: (form-page-template "Nouvel intrant" "/ferti/fertilizers/create" (fertilizer-formlet)))
207 Added:
214 208 ;; Edit
215 209
216 210 (define (edit-fertilizer-page fp)