[Racket] Ferti hydroponic nutrient solver, redux.
Align handler routes to Rails conventions.
Changed files
handlers.rkt
@@ -32,13 +32,13 @@
32
32
[("ferti" "measurements" "new") #:method "get" new-measurement]
33
33
[("ferti" "measurements" "create") #:method "post" create-measurement]
34
34
[("ferti" "measurements" (integer-arg)) #:method "get" show-measurement]
35
Removed:
[("ferti" "measurements" "destroy" (integer-arg)) #:method "get" destroy-measurement]
35
Added:
[("ferti" "measurements" (integer-arg) "destroy") #:method "get" destroy-measurement]
36
36
;; Crop rotations
37
37
[("ferti" "rotations" "new") #:method "get" new-rotation]
38
38
[("ferti" "rotations" "new" (string-arg)) #:method "get" new-rotation-for-date]
39
39
[("ferti" "rotations" "create") #:method "post" create-rotation]
40
40
[("ferti" "rotations" (integer-arg)) #:method "get" show-rotation]
41
Removed:
[("ferti" "rotations" "destroy" (integer-arg)) #:method "get" destroy-rotation]
41
Added:
[("ferti" "rotations" (integer-arg) "destroy") #:method "get" destroy-rotation]
42
42
;; Fertilizer products
43
43
[("ferti" "fertilizers" "new") #:method "get" new-fertilizer]
44
44
[("ferti" "fertilizers" "create") #:method "post" create-fertilizer]
views.rkt
@@ -226,12 +226,15 @@
226
226
(define nutrient-value (hash-ref (nutrient-measurement-values nm) n 0))
227
227
`(tr (td ,(nutrient-french-name n))
228
228
(td ((class "text-end font-monospace")) ,(round 2 nutrient-value)))))))
229
Removed:
(page-template title
230
Removed:
`((h1 ((class "display-1 mb-3")) ,title)
231
Removed:
(a ((class "btn btn-danger")
232
Removed:
[href ,(format "/ferti/measurements/destroy/~a" (nutrient-measurement-id nm))])
233
Removed:
"Supprimer relevé")
234
Removed:
,table)))
229
Added:
(define button-group
230
Added:
`(div ((class "btn-group"))
231
Added:
(a ((class "btn btn-primary")
232
Added:
[href ,(format "/ferti/measurements/~a/edit" (nutrient-measurement-id nm))])
233
Added:
"Modifier relevé")
234
Added:
(a ((class "btn btn-danger")
235
Added:
[href ,(format "/ferti/measurements/~a/destroy" (nutrient-measurement-id nm))])
236
Added:
"Supprimer relevé")))
237
Added:
(page-template title `((h1 ((class "display-1 mb-3")) ,title) ,button-group ,table)))
235
238
236
239
(define (show-rotation-page cr)
237
240
(define title (format "Assolement du ~a" (normal-date (crop-rotation-date cr))))
@@ -247,7 +250,7 @@
247
250
(page-template title
248
251
`((h1 ((class "display-1 mb-3")) ,title)
249
252
(a ((class "btn btn-danger")
250
Removed:
[href ,(format "/ferti/rotations/destroy/~a" (crop-rotation-id cr))])
253
Added:
[href ,(format "/ferti/rotations/~a/destroy" (crop-rotation-id cr))])
251
254
"Supprimer assolement")
252
255
,table)))
253
256