diff options
| -rw-r--r-- | views.rkt | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -110,17 +110,17 @@ ,@(for/list ([m measurements]) (define maybe-rotation (maybe-rotation-for-measurement m)) `(tr (td ,(nutrient-measurement-date m)) - (td (a ((class "btn btn-outline-secondary") + (td (a ((class "btn btn-outline-secondary btn-sm") (href ,(format "/ferti/measurement/~a" (nutrient-measurement-id m)))) "Modifier")) (td ,(if maybe-rotation - `(a ((class "btn btn-outline-secondary") + `(a ((class "btn btn-outline-secondary btn-sm") (href ,(format "/ferti/rotation/~a" (crop-rotation-id maybe-rotation)))) "Modifier") - `(a ((class "btn btn-outline-primary") (href "/ferti/rotation/new")) + `(a ((class "btn btn-outline-primary btn-sm") (href "/ferti/rotation/new")) "Ajouter"))) (td ,(if maybe-rotation - `(a ((class "btn btn-outline-secondary") + `(a ((class "btn btn-outline-secondary btn-sm") (href ,(format "/ferti/recipe/~a" (crop-rotation-date maybe-rotation)))) "Consulter") "—"))))))) |