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

Larger modals.

Browse Source
This commit is contained in:
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 {
background-color: #fafafa;
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_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
]