Basic Usage

import Accordion


type alias Model =
    Bool


type Msg
    = HeadClicked


view model =
    Accordion.accordion model
        (Accordion.head
            [ onClick HeadClicked ]
            headChildren
        )
        (Accordion.body
            []
            bodyChildren
        )


uodate msg model =
    case msg of
        HeadClicked ->
            ( not model
            , Cmd.none
            )

Accodion

Accordion head

Accordion body

List of Accordions