ContexView.elm

module ContextView exposing (ContextItem, container, item)

import Html exposing (Html, Attribute)
import Html.Attributes as Attrs

type ContextItem = ContextItem

container : List (Attribute msg) -> (ContextItem -> List (Html msg)) -> Html msg
container attrs inner =
    Html.div (Attrs.class "some-required-context-thing" :: attrs) <|
        inner ContextItem


item : ContextItem -> List (Attribute msg) -> List (Html msg) -> Html msg
item ContextItem = Html.div