mirror of
https://github.com/NoRedInk/noredink-ui.git
synced 2024-12-26 07:04:33 +03:00
51e79158a8
The CSS reset removed default browser styles for h1, h2, h3, etc elements, resulting in a pretty weird looking styleguide. This adds modules for headings, one version for use with plain Html, the other for use with Html.Styled.
39 lines
771 B
Elm
39 lines
771 B
Elm
module Headings exposing (h1, h2, h3, h4, h5)
|
|
|
|
import HeadingsStyled
|
|
import Html
|
|
import Html.Styled
|
|
|
|
|
|
h1 : List (Html.Html msg) -> Html.Html msg
|
|
h1 =
|
|
toRootHtml HeadingsStyled.h1
|
|
|
|
|
|
h2 : List (Html.Html msg) -> Html.Html msg
|
|
h2 =
|
|
toRootHtml HeadingsStyled.h2
|
|
|
|
|
|
h3 : List (Html.Html msg) -> Html.Html msg
|
|
h3 =
|
|
toRootHtml HeadingsStyled.h3
|
|
|
|
|
|
h4 : List (Html.Html msg) -> Html.Html msg
|
|
h4 =
|
|
toRootHtml HeadingsStyled.h4
|
|
|
|
|
|
h5 : List (Html.Html msg) -> Html.Html msg
|
|
h5 =
|
|
toRootHtml HeadingsStyled.h5
|
|
|
|
|
|
toRootHtml : (List (Html.Styled.Html msg) -> Html.Styled.Html msg) -> (List (Html.Html msg) -> Html.Html msg)
|
|
toRootHtml node =
|
|
\children ->
|
|
List.map Html.Styled.fromUnstyled children
|
|
|> node
|
|
|> Html.Styled.toUnstyled
|