import Accordion
type alias Model =
Bool
type Msg
= HeadClicked
view model =
Accordion.accordion
(Accordion.head
[ onClick HeadClicked ]
headChildren
)
(Accordion.body
[]
bodyChildren
)
model
uodate msg model =
case msg of
HeadClicked ->
( not model
, Cmd.none
)
accordion : List (Html.Attribute msg) -> Head msg -> Body msg -> Basics.Bool -> Html msg
Accordion view function
attributes
List of attributeshead
An accordion head elementbody
An accordion body elementopen
Specify whether a dailog is openInternal.Head msg
Accordion head type
head : List (Html.Attribute msg) -> List (Html msg) -> Head msg
Accordion head constructor
attributes
List of attributeschildren
List of child elementsInternal.Body msg
Accordion body type
body : List (Html.Attribute msg) -> List (Html msg) -> Body msg
Accordion body constructor
attributes
List of attributeschildren
List of child elements