From d1c79c9948fc76138a9b431c729ce92c5baedded Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sun, 30 Nov 2025 15:10:40 +0100 Subject: Reduce button size in table. --- views.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'views.rkt') diff --git a/views.rkt b/views.rkt index a7e9f1f..e187e1d 100644 --- a/views.rkt +++ b/views.rkt @@ -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") "—"))))))) -- cgit v1.2.3