From d8c78e4370abeec2cb106fba4b86b18e7f486a2b Mon Sep 17 00:00:00 2001 From: Philippe PITTOLI Date: Wed, 24 Apr 2024 23:14:46 +0200 Subject: [PATCH] Bulma: simple quotes. --- src/Bulma.purs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/Bulma.purs b/src/Bulma.purs index 345236b..d715b68 100644 --- a/src/Bulma.purs +++ b/src/Bulma.purs @@ -544,6 +544,11 @@ div_content content = HH.div [HP.classes (C.content)] content explanation :: forall w i. Array (HH.HTML w i) -> HH.HTML w i explanation content = HH.blockquote [HP.classes [HH.ClassName "justified"]] content +quote :: forall w i. Array (HH.HTML w i) -> HH.HTML w i +quote content = div_content [ explanation content ] + +simple_quote :: forall w i. String -> HH.HTML w i +simple_quote content = quote [ p content ] tabs :: forall w i. Array HH.ClassName -> Array (HH.HTML w i) -> HH.HTML w i tabs classes tab_list = HH.div [HP.classes $ C.tabs <> classes] [HH.ul_ tab_list]