Accessibility.Modal

import Accessibility.Modal as Modal
import Html.Styled exposing (..)
import Html.Styled.Events exposing (onClick)


view : Html Modal.Msg
view =
    Modal.view identity
        "Example modal"
        [ Modal.onlyFocusableElementView
            (\onlyFocusableElementAttributes ->
                div []
                    [ text "Welcome to this modal! I'm so happy to have you here with me."
                    , button
                        (onClick Modal.close :: onlyFocusableElementAttributes)
                        [ text "Close Modal" ]
                    ]
            )
        ]
        modal

type Model

init : Model

subscriptions : Model -> Sub Msg

update :

{ dismissOnEscAndOverlayClick : Bool }

-> Msg

-> Model

-> ( Model, Cmd Msg )

type Msg

close : Msg

open : String -> Msg

Pass the id of the element that should receive focus when the modal closes.