Baguette
/
dnsmanager-webclient
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Larger modals.

caa
Philippe Pittoli 2024-11-09 19:56:26 +01:00
parent 1cc6d57728
commit dc793637ae
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/bulma.css vendored
View File

@ -7788,3 +7788,7 @@ a.has-text-danger-dark:hover, a.has-text-danger-dark:focus {
.footer { .footer {
background-color: #fafafa; background-color: #fafafa;
padding: 3rem 1.5rem 6rem; } padding: 3rem 1.5rem 6rem; }
.modal-card.is-large {
width: 80%; /* or any size you prefer */
}

6
src/Bulma.purs
View File

@ -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_ = HH.div [HP.classes (C.modal <> C.is_active)]
modal_background :: forall w i. HH.HTML w i modal_background :: forall w i. HH.HTML w i
modal_background = HH.div [HP.classes C.modal_background] [] 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_large :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
modal_card = HH.div [HP.classes C.modal_card] 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 :: forall w i. String -> HH.HTML w i
modal_header title = HH.header [HP.classes C.modal_card_head] modal_header title = HH.header [HP.classes C.modal_card_head]
[ HH.p [HP.classes C.modal_card_title] [HH.text title] [ 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 title body foot =
modal_ modal_
[ modal_background [ modal_background
, modal_card [modal_header title, modal_body body] , modal_card_large [modal_header title, modal_body body]
, modal_foot foot , modal_foot foot
] ]