[Racket] Ferti hydroponic nutrient solver, redux.
Split index and Ferti pages.
Changed files
handlers.rkt
@@ -14,6 +14,8 @@
14
14
15
15
(define-values (app-dispatch _)
16
16
(dispatch-rules
17
Added:
;; Ferti dashboard
18
Added:
[("ferti") #:method "get" ferti]
17
19
;; Nutrient measurements
18
20
[("measurement" "new") #:method "get" new-measurement]
19
21
[("measurement" "create") #:method "post" create-measurement]
@@ -25,12 +27,17 @@
25
27
[("") #:method "get" index]
26
28
[else fallback]))
27
29
28
Removed:
(define (index _)
30
Added:
(define (ferti _)
29
31
(define measurements (get-nutrient-measurements))
30
32
(define ferti-recipe (find-ferti-recipe))
31
33
(response/xexpr
32
34
#:preamble #"<!DOCTYPE html>"
33
Removed:
(index-page measurements ferti-recipe)))
35
Added:
(ferti-page measurements ferti-recipe)))
36
Added:
37
Added:
(define (index _)
38
Added:
(response/xexpr
39
Added:
#:preamble #"<!DOCTYPE html>"
40
Added:
(index-page)))
34
41
35
42
36
43
;; Nutrient measurements
views.rkt
@@ -1,6 +1,7 @@
1
1
#lang racket
2
2
3
3
(provide index-page
4
Added:
ferti-page
4
5
new-measurement-page
5
6
new-target-page
6
7
fallback-page)
@@ -102,7 +103,7 @@
102
103
103
104
;; Pages
104
105
105
Removed:
(define (index-page measurements ferti-recipe)
106
Added:
(define (ferti-page measurements ferti-recipe)
106
107
(page-template
107
108
"Ferti"
108
109
`((h1 ([class "display-1 mb-3"]) "Ferti")
@@ -200,6 +201,12 @@
200
201
([action "/target/create"]
201
202
[method "POST"])
202
203
,@(formlet-display (targets-formlet)))))))
204
Added:
205
Added:
(define (index-page)
206
Added:
(page-template
207
Added:
"Bienvenue à la FAPG"
208
Added:
`((a ([class "btn btn-primary mb-3"] [href "/ferti"]) "Accéder à Ferti"))))
209
Added:
203
210
204
211
(define (fallback-page request-code)
205
212
(page-template