wrapper element + elm ui

[koenusz]

Hi I would like to thank you for an amazing library.

I would like to suggest two additional features. Or maybe it is exposing a little bit more of your internals to the user. First one is an additional element function that allows you to pass childelements. Something like:

el : List ( Html.Attribute msg ) -> List ( Html.Element msg )-> ( Msg -> msg ) -> Html msg
el customAttrs children msgWrapper =
    let
--      attrs : List (Html.Attribute msg)
        attrs =
            Internal.attrs
                |> List.map ( Attr.map (Msg >> msgWrapper) )
    in
    Html.div
        ( customAttrs ++ attrs )
        children 

The other feature I would like to suggest is to expose your attribute function. Something like :

atrrs: ( Msg -> msg ) -> List ( Html.Attribute msg )
attrs  msgWrapper =
            Internal.attrs
                |> List.map ( Attr.map (Msg >> msgWrapper) )

This would be especially useful for people using elm-ui that want to enable touch events to their elm-ui elements.

Thanks again for an amazing lib.

[dullbananas]

I think it will only be necessary to expose attrs. I will also add an option to stop propagation.