Web.Page.Bootstrap

some bootstrap assets

Documentation

bootstrapPage :: Page

A page containing all the bootstrap needs for a web page.

cardify :: (Html (), [Attribute]) -> Maybe Text -> (Html (), [Attribute]) -> Html ()

wrap some Html with the bootstrap card class

divClass_ :: Text -> Html () -> Html ()

wrap some html with a classed div

accordion

Arguments

:: MonadState Int m

=> Text

-> Maybe Text

name prefix. This is needed because an Int doesn't seem to be a valid name.

-> [(Text, Html ())]

card title

-> m (Html ())

title, html tuple for each item in the accordion.

create a bootstrapped accordian class

accordionChecked :: MonadState Int m => Text -> [(Text, Html (), Html ())] -> m (Html ())

create a bootstrapped accordian class

accordionCardChecked :: Bool -> Text -> Text -> Text -> Text -> Html () -> Html () -> Html ()

accordion_ :: Text -> Maybe Text -> [(Text, Html ())] -> Html ()

This version of accordion runs a local state for naming, and will cause name clashes if the prefix is not unique.