diff --git a/src/Bulma.purs b/src/Bulma.purs index 07fe182..b2765be 100644 --- a/src/Bulma.purs +++ b/src/Bulma.purs @@ -18,14 +18,14 @@ import Halogen.HTML.Core (AttrName(..)) --import Web.UIEvent.MouseEvent (MouseEvent) columns :: forall (w :: Type) (i :: Type). - Array (HH.ClassName) -> Array (HH.HTML w i) -> HH.HTML w i + Array HH.ClassName -> Array (HH.HTML w i) -> HH.HTML w i columns classes = HH.div [ HP.classes (C.columns <> classes) ] columns_ :: forall (w :: Type) (i :: Type). Array (HH.HTML w i) -> HH.HTML w i columns_ = columns [] column :: forall (w :: Type) (i :: Type). - Array (HH.ClassName) -> Array (HH.HTML w i) -> HH.HTML w i + Array HH.ClassName -> Array (HH.HTML w i) -> HH.HTML w i column classes = HH.div [ HP.classes (C.column <> classes) ] column_ :: forall (w :: Type) (i :: Type). Array (HH.HTML w i) -> HH.HTML w i @@ -312,8 +312,10 @@ field_inner ispassword title placeholder action value validity cond box_input = field_inner false box_password = field_inner true +section_medium :: forall w i. Array (HH.HTML w i) -> HH.HTML w i section_medium = HH.section [ HP.classes (C.section <> C.medium) ] +field :: forall w i. Array HH.ClassName -> Array (HH.HTML w i) -> HH.HTML w i field classes = HH.div [ HP.classes (C.field <> classes) ] new_domain_field inputaction text selectaction accepted_domains @@ -341,26 +343,6 @@ new_domain_field inputaction text selectaction accepted_domains ] ] ---
- --box_button action value validity cond -- = HH.label [ ] -- [ HH.label [HP.classes C.label ] [ HH.text title ] @@ -394,17 +376,6 @@ hero title subtitle header :: forall w i. String -> String -> HH.HTML w i header = hero ------ Hero title ---
------ Hero subtitle ---
---Modal title
--- ---