diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-12-13 17:57:53 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-12-13 18:53:40 +0100 |
| commit | 510729b256403691c112d8920ee67575b8c125ef (patch) | |
| tree | e4b171943604c5ea2d066b003ce6ef8b1981cf73 | |
| parent | 11ff437e30206bcb2c73c6412eaadab56f9be8f5 (diff) | |
Align handler routes to Rails conventions.
| -rw-r--r-- | handlers.rkt | 4 | ||||
| -rw-r--r-- | views.rkt | 17 |
2 files changed, 12 insertions, 9 deletions
diff --git a/handlers.rkt b/handlers.rkt index 759dbfe..f1825b9 100644 --- a/handlers.rkt +++ b/handlers.rkt @@ -32,13 +32,13 @@ [("ferti" "measurements" "new") #:method "get" new-measurement] [("ferti" "measurements" "create") #:method "post" create-measurement] [("ferti" "measurements" (integer-arg)) #:method "get" show-measurement] - [("ferti" "measurements" "destroy" (integer-arg)) #:method "get" destroy-measurement] + [("ferti" "measurements" (integer-arg) "destroy") #:method "get" destroy-measurement] ;; Crop rotations [("ferti" "rotations" "new") #:method "get" new-rotation] [("ferti" "rotations" "new" (string-arg)) #:method "get" new-rotation-for-date] [("ferti" "rotations" "create") #:method "post" create-rotation] [("ferti" "rotations" (integer-arg)) #:method "get" show-rotation] - [("ferti" "rotations" "destroy" (integer-arg)) #:method "get" destroy-rotation] + [("ferti" "rotations" (integer-arg) "destroy") #:method "get" destroy-rotation] ;; Fertilizer products [("ferti" "fertilizers" "new") #:method "get" new-fertilizer] [("ferti" "fertilizers" "create") #:method "post" create-fertilizer] @@ -226,12 +226,15 @@ (define nutrient-value (hash-ref (nutrient-measurement-values nm) n 0)) `(tr (td ,(nutrient-french-name n)) (td ((class "text-end font-monospace")) ,(round 2 nutrient-value))))))) - (page-template title - `((h1 ((class "display-1 mb-3")) ,title) - (a ((class "btn btn-danger") - [href ,(format "/ferti/measurements/destroy/~a" (nutrient-measurement-id nm))]) - "Supprimer relevé") - ,table))) + (define button-group + `(div ((class "btn-group")) + (a ((class "btn btn-primary") + [href ,(format "/ferti/measurements/~a/edit" (nutrient-measurement-id nm))]) + "Modifier relevé") + (a ((class "btn btn-danger") + [href ,(format "/ferti/measurements/~a/destroy" (nutrient-measurement-id nm))]) + "Supprimer relevé"))) + (page-template title `((h1 ((class "display-1 mb-3")) ,title) ,button-group ,table))) (define (show-rotation-page cr) (define title (format "Assolement du ~a" (normal-date (crop-rotation-date cr)))) @@ -247,7 +250,7 @@ (page-template title `((h1 ((class "display-1 mb-3")) ,title) (a ((class "btn btn-danger") - [href ,(format "/ferti/rotations/destroy/~a" (crop-rotation-id cr))]) + [href ,(format "/ferti/rotations/~a/destroy" (crop-rotation-id cr))]) "Supprimer assolement") ,table))) |