module Bulma exposing (..)
import Html exposing (Html)
import Html.Attributes as Attr
modal : List (Html msg) -> Html msg
modal body =
Html.div [ Attr.class "modal is-active" ]
[ Html.div [ Attr.class "modal-background" ] []
, Html.div [ Attr.class "modal-content" ] body
, Html.button [ Attr.class "modal-close" ] []
]
tag : String -> Html msg
tag text =
Html.span [ Attr.class "tag" ] [ Html.text text ]
tabs : List (Html.Attribute msg) -> List (Html msg) -> Html msg
tabs attrs =
Html.div (Attr.class "tabs" :: attrs)
columns : List (Html.Attribute msg) -> List (Html msg) -> Html msg
columns attrs =
Html.div (Attr.class "columns" :: attrs)
column : List (Html.Attribute msg) -> List (Html msg) -> Html msg
column attrs =
Html.div (Attr.class "column" :: attrs)
card : List (Html.Attribute msg) -> List (Html msg) -> Html msg
card attrs =
Html.div (Attr.class "card" :: attrs)
cardContent : List (Html.Attribute msg) -> List (Html msg) -> Html msg
cardContent attrs =
Html.div (Attr.class "card-content" :: attrs)
cardFooter : List (Html.Attribute msg) -> List (Html msg) -> Html msg
cardFooter attrs =
Html.footer (Attr.class "card-footer" :: attrs)
cardFooterItem : List (Html.Attribute msg) -> String -> Html msg
cardFooterItem attrs name =
Html.a (Attr.class "card-footer-item" :: attrs) [ Html.text name ]
content : List (Html.Attribute msg) -> List (Html msg) -> Html msg
content attrs =
Html.div (Attr.class "content" :: attrs)
box : List (Html.Attribute msg) -> List (Html msg) -> Html msg
box attrs =
Html.div (Attr.class "box" :: attrs)
button : List (Html.Attribute msg) -> List (Html msg) -> Html msg
button attrs body =
Html.p [ Attr.class "control" ]
[ Html.button (Attr.class "button" :: attrs) body
]
label : String -> Html msg
label name =
Html.label [ Attr.class "label" ] [ Html.text name ]
input : List (Html.Attribute msg) -> Html msg
input attrs =
Html.p [ Attr.class "control" ]
[ Html.input ([ Attr.class "input", Attr.type_ "text" ] ++ attrs) []
]
expandedInput : List (Html.Attribute msg) -> Html msg
expandedInput attrs =
Html.p [ Attr.class "control is-expanded" ]
[ Html.input ([ Attr.class "input", Attr.type_ "text" ] ++ attrs) []
]
delete : List (Html.Attribute msg) -> Html msg
delete attrs =
Html.button (Attr.class "delete" :: attrs) []
discard : List (Html.Attribute msg) -> Html msg
discard attrs =
Html.a (Attr.class "discard" :: attrs)
[ Html.span [ Attr.class "icon is-small" ]
[ Html.i [ Attr.class "fa fa-undo" ] []
]
]
container : List (Html msg) -> Html msg
container =
Html.div [ Attr.class "container" ]
title : String -> Html msg
title text =
Html.h1 [ Attr.class "title" ] [ Html.text text ]
subtitle : String -> Html msg
subtitle text =
Html.h2 [ Attr.class "subtitle" ] [ Html.text text ]
section : List (Html.Attribute msg) -> List (Html msg) -> Html msg
section attrs =
Html.section (Attr.class "section" :: attrs)
level : List (Html msg) -> Html msg
level =
Html.div [ Attr.class "level" ]
levelLeft : List (List (Html msg)) -> Html msg
levelLeft =
Html.div [ Attr.class "level-left" ] << List.map (Html.div [ Attr.class "level-item" ])
levelRight : List (List (Html msg)) -> Html msg
levelRight =
Html.div [ Attr.class "level-right" ] << List.map (Html.div [ Attr.class "level-item" ])