mirror of
https://github.com/NoRedInk/noredink-ui.git
synced 2024-12-24 06:02:36 +03:00
bf8988f345
i think this exposes a weakness of the API -- the teacher premium level won't vary across the inputs, but we're still requiring the user to pass it in for every input
91 lines
3.0 KiB
Elm
91 lines
3.0 KiB
Elm
module CommonControls exposing (exampleHtml, httpError, premiumLevel, quickBrownFox, romeoAndJulietQuotation)
|
||
|
||
import Debug.Control as Control exposing (Control)
|
||
import Html.Styled as Html exposing (Html)
|
||
import Html.Styled.Attributes as Attributes
|
||
import Http
|
||
import Nri.Ui.Data.PremiumLevel exposing (PremiumLevel(..))
|
||
|
||
|
||
premiumLevel : Control ( String, PremiumLevel )
|
||
premiumLevel =
|
||
Control.choice
|
||
[ ( "Free", Control.value ( "Free", Free ) )
|
||
, ( "PremiumWithWriting", Control.value ( "PremiumWithWriting", PremiumWithWriting ) )
|
||
]
|
||
|
||
|
||
httpError : Control Http.Error
|
||
httpError =
|
||
Control.choice
|
||
[ ( "Bad Url", Control.value (Http.BadUrl "/request-url") )
|
||
, ( "Timeout", Control.value Http.Timeout )
|
||
, ( "Network Error", Control.value Http.NetworkError )
|
||
, ( "Bad Status: 401", Control.value (Http.BadStatus 401) )
|
||
, ( "Bad Status: 404", Control.value (Http.BadStatus 404) )
|
||
, ( "Bad Status: ???", Control.value (Http.BadStatus 500) )
|
||
, ( "Bad Body (often, a JSON decoding problem)"
|
||
, Control.value
|
||
(Http.BadBody
|
||
"""
|
||
The Json.Decode.oneOf at json.draft failed in the following 2 ways:
|
||
|
||
|
||
|
||
(1) Problem with the given value:
|
||
|
||
null
|
||
|
||
Expecting an OBJECT with a field named `content`
|
||
|
||
|
||
|
||
(2) Problem with the given value:
|
||
|
||
null
|
||
|
||
Expecting an OBJECT with a field named `code`
|
||
"""
|
||
)
|
||
)
|
||
]
|
||
|
||
|
||
quickBrownFox : String
|
||
quickBrownFox =
|
||
"The quick brown fox jumps over the lazy dog."
|
||
|
||
|
||
romeoAndJulietQuotation : String
|
||
romeoAndJulietQuotation =
|
||
"""
|
||
Two households, both alike in dignity,
|
||
In fair Verona, where we lay our scene,
|
||
From ancient grudge break to new mutiny,
|
||
Where civil blood makes civil hands unclean.
|
||
From forth the fatal loins of these two foes
|
||
A pair of star-cross’d lovers take their life;
|
||
Whose misadventured piteous overthrows
|
||
Do with their death bury their parents’ strife.
|
||
The fearful passage of their death-mark’d love,
|
||
And the continuance of their parents’ rage,
|
||
Which, but their children’s end, nought could remove,
|
||
Is now the two hours’ traffic of our stage;
|
||
The which if you with patient ears attend,
|
||
What here shall miss, our toil shall strive to mend.
|
||
"""
|
||
|
||
|
||
exampleHtml : List (Html msg)
|
||
exampleHtml =
|
||
[ Html.text "This is a "
|
||
, Html.strong [] [ Html.text "bolded phrase" ]
|
||
, Html.text ". "
|
||
, Html.a
|
||
[ Attributes.href "http://www.noredink.com"
|
||
, Attributes.target "_blank"
|
||
]
|
||
[ Html.text quickBrownFox ]
|
||
, 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."
|
||
]
|