Skip to content

Instantly share code, notes, and snippets.

@turboMaCk

turboMaCk/ContexView.elm

Last active April 28, 2020 15:31
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save turboMaCk/7198e7ec352eb708877c730aa5fbe29f to your computer and use it in GitHub Desktop.
Save turboMaCk/7198e7ec352eb708877c730aa5fbe29f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment