none : Html msg
none =
    Html.text ""

divWrapper : List (Attribute msg) -> Html msg -> Html msg
divWrapper attrs content =
    Html.div attrs [ content ]

spanWrapper : List (Attribute msg) -> Html msg -> Html msg
spanWrapper attrs content =
    Html.span attrs [ content ]

pWrapper : List (Attribute msg) -> Html msg -> Html msg
pWrapper attrs content =
    Html.p attrs [ content ]

divText : List (Attribute msg) -> String -> Html msg
divText attrs string =
    Html.div attrs [ Html.text string ]

spanText : List (Attribute msg) -> String -> Html msg
spanText attrs string =
    Html.span attrs [ Html.text string ]

pText : List (Attribute msg) -> String -> Html msg pText attrs string = Html.p attrs [ Html.text string ]

image attrs args =
    Html.img
        ([ Html.Attributes.src args.src
         , Html.Attributes.alt args.description
         ]
            ++ attrs
        )
        []

linkTo attrs link content =
    Html.a
        (Html.Attributes.href link
            :: attrs
        )
        [ content ]

linkToNewTab attrs link content =
    Html.a
        ([ Html.Attributes.href link
         , Html.Attributes.target "_blank"
         ]
            ++ attrs
        )
        [ content ]

Turns anything into a button

asButton args =
    [ Html.Attributes.style "cursor" "pointer"
    , Html.Attributes.attribute "aria-label" args.label
    , Html.Attributes.attribute "role" "button"
    ]
        ++ (args.onPress
                |> Maybe.map (\msg -> [ Html.Events.onClick msg ])
                |> Maybe.withDefault []
           )