ElmUIExplorerExample.elm

module Explorer.Utils exposing (story, storyList, storyWithModel)

import Element exposing (layout, spacing, wrappedRow)


story ( title, content, note ) =
    ( title
    , \_ -> layout [] content
    , note
    )


storyList ( title, content, note ) =
    ( title
    , \_ ->
        layout [] <|
            wrappedRow [ spacing 15 ] content
    , note
    )


storyWithModel ( title, content, note ) =
    ( title
    , \m -> layout [] <| content m
    , note
    )

-- Example

defaultButtonStory =
    story
        ( "Default"
        , yourElementView
        , { note = "My note" }
        )