From dc793637aec9d53372ac497233b57c0e217e324e Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Sat, 9 Nov 2024 19:56:26 +0100
Subject: [PATCH] Larger modals.

---
 app/bulma.css  | 4 ++++
 src/Bulma.purs | 6 +++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/app/bulma.css b/app/bulma.css
index c8a013b..ec73883 100644
--- a/app/bulma.css
+++ b/app/bulma.css
@@ -7788,3 +7788,7 @@ a.has-text-danger-dark:hover, a.has-text-danger-dark:focus {
 .footer {
   background-color: #fafafa;
   padding: 3rem 1.5rem 6rem; }
+
+.modal-card.is-large {
+  width: 80%; /* or any size you prefer */
+}
diff --git a/src/Bulma.purs b/src/Bulma.purs
index 593baf0..c0815f9 100644
--- a/src/Bulma.purs
+++ b/src/Bulma.purs
@@ -470,8 +470,8 @@ modal_ :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
 modal_ = HH.div [HP.classes (C.modal <> C.is_active)]
 modal_background :: forall w i. HH.HTML w i
 modal_background = HH.div [HP.classes C.modal_background] []
-modal_card :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
-modal_card = HH.div [HP.classes C.modal_card]
+modal_card_large :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
+modal_card_large = HH.div [HP.classes $ C.modal_card <> C.is_large]
 modal_header :: forall w i. String -> HH.HTML w i
 modal_header title = HH.header [HP.classes C.modal_card_head]
   [ HH.p [HP.classes C.modal_card_title] [HH.text title]
@@ -565,7 +565,7 @@ modal :: forall w i. String -> Array (HH.HTML w i) -> Array (HH.HTML w i) -> HH.
 modal title body foot =
   modal_
     [ modal_background
-    , modal_card [modal_header title, modal_body body]
+    , modal_card_large [modal_header title, modal_body body]
     , modal_foot foot
     ]