Adds helpers for example html and example ug html

This commit is contained in:
Tessa Kelly 2020-02-18 10:50:51 -08:00
parent 7e261af7aa
commit efd8132517

View File

@ -20,37 +20,33 @@ example =
, category = Text
, content =
let
longerBody =
[ " "
, "Be on the lookout for a new and improved assignment"
, "creation form! Soon, you'll be able to easily see a summary"
, "of the content you're assigning, as well as an estimate for"
, "how long the assignment will take."
, " "
]
|> String.join " "
link =
Html.a
exampleHtml kind =
[ Html.text "This is a "
, Html.strong [] [ Html.text kind ]
, Html.text ". "
, Html.a
[ Attributes.href "http://www.noredink.com"
, Attributes.target "_blank"
]
[ Html.text "The quick brown fox jumps over the lazy dog." ]
, Html.text " Be on the lookout for a new and improved assignment creation form! Soon, you'll be able to easily see a summary of the content you're assigning, as well as an estimate for how long the assignment will take."
]
exampleUGHtml kind =
[ Html.text "This is a "
, Html.strong [] [ Html.text kind ]
, Html.text ". The quick brown fox jumps over the lazy dog."
, Html.text " When I stepped out, into the bright sunlight from the darkness of the movie house, I had only two things on my mind: Paul Newman, and a ride home."
]
in
[ Text.caption [ Html.text "NOTE: When using these styles, please read the documentation in the Elm module about \"Understanding spacing\"" ]
, Heading.h2 [ Heading.style Heading.Top ] [ Html.text "Paragraph styles" ]
, Text.mediumBody
[ Html.text "This is a "
, Html.strong [] [ Html.text "mediumBody" ]
, Html.text ". "
, link
, Html.text longerBody
]
, Text.smallBody [ Html.text <| "This is a smallBody. " ++ longerBody ]
, Text.smallBodyGray [ Html.text <| "This is a smallBodyGray. " ++ longerBody ]
, Text.caption [ Html.text <| "This is a caption. " ++ longerBody ]
, Text.mediumBody (exampleHtml "mediumBody")
, Text.smallBody (exampleHtml "smallBody")
, Text.smallBodyGray (exampleHtml "smallBodyGray")
, Text.caption (exampleHtml "caption")
, Heading.h2 [ Heading.style Heading.Top ] [ Html.text "Paragraph styles for user-authored content" ]
, Text.ugMediumBody [ Html.text <| "This is an ugMediumBody. " ++ longerBody ]
, Text.ugSmallBody [ Html.text <| "This is an ugSmallBody. " ++ longerBody ]
, Text.ugMediumBody (exampleUGHtml "ugMediumBody")
, Text.ugSmallBody (exampleUGHtml "ugSmallBody")
]
}