mirror of
https://github.com/NoRedInk/noredink-ui.git
synced 2024-12-21 04:31:30 +03:00
140 lines
4.3 KiB
Elm
140 lines
4.3 KiB
Elm
module Examples.Page exposing (example, State, Msg)
|
|
|
|
{-|
|
|
|
|
@docs example, State, Msg
|
|
|
|
-}
|
|
|
|
import AtomicDesignType exposing (AtomicDesignType(..))
|
|
import Category exposing (Category(..))
|
|
import Css
|
|
import Css.Global exposing (Snippet, adjacentSiblings, children, class, descendants, each, everything, media, selector, withClass)
|
|
import Debug.Control as Control exposing (Control)
|
|
import Example exposing (Example)
|
|
import Html.Styled as Html exposing (Html)
|
|
import Http
|
|
import KeyboardSupport exposing (Direction(..), Key(..))
|
|
import Nri.Ui.Heading.V2 as Heading
|
|
import Nri.Ui.Page.V3 as Page exposing (RecoveryText(..))
|
|
|
|
|
|
{-| -}
|
|
type alias State =
|
|
{ httpError : Control Http.Error
|
|
, recoveryText : Control RecoveryText
|
|
}
|
|
|
|
|
|
{-| -}
|
|
type Msg
|
|
= ShowItWorked String
|
|
| SetHttpError (Control Http.Error)
|
|
| SetRecoveryText (Control RecoveryText)
|
|
|
|
|
|
update : Msg -> State -> ( State, Cmd Msg )
|
|
update msg model =
|
|
case msg of
|
|
ShowItWorked message ->
|
|
let
|
|
_ =
|
|
Debug.log "Clicked: " message
|
|
in
|
|
( model, Cmd.none )
|
|
|
|
SetHttpError controls ->
|
|
( { model | httpError = controls }, Cmd.none )
|
|
|
|
SetRecoveryText controls ->
|
|
( { model | recoveryText = controls }, Cmd.none )
|
|
|
|
|
|
{-| -}
|
|
example : Example State Msg
|
|
example =
|
|
{ name = "Page"
|
|
, version = 3
|
|
, categories = [ Pages ]
|
|
, atomicDesignType = Page
|
|
, keyboardSupport = []
|
|
, state = { httpError = initHttpError, recoveryText = initRecoveryText }
|
|
, update = update
|
|
, subscriptions = \_ -> Sub.none
|
|
, view =
|
|
\model ->
|
|
let
|
|
recoveryText =
|
|
Control.currentValue model.recoveryText
|
|
in
|
|
[ Html.fromUnstyled (Control.view SetRecoveryText model.recoveryText)
|
|
, Heading.h3 [] [ Html.text "Page.httpError" ]
|
|
, Html.fromUnstyled (Control.view SetHttpError model.httpError)
|
|
, Page.httpError
|
|
{ link = ShowItWorked "Page.httpError"
|
|
, recoveryText = recoveryText
|
|
}
|
|
(Control.currentValue model.httpError)
|
|
, viewExample "Page.broken" Page.broken recoveryText
|
|
, viewExample "Page.blockedV4" (Page.blockedV4 "Error message details") recoveryText
|
|
, viewExample "Page.notFound" Page.notFound recoveryText
|
|
, viewExample "Page.noPermission" Page.noPermission recoveryText
|
|
, viewExample "Page.loggedOut" Page.loggedOut recoveryText
|
|
, viewExample "Page.timeOut" Page.timeOut recoveryText
|
|
, viewExample "Page.networkError" Page.networkError recoveryText
|
|
]
|
|
}
|
|
|
|
|
|
viewExample : String -> (Page.DefaultPage Msg -> Html Msg) -> RecoveryText -> Html Msg
|
|
viewExample viewName view recoveryText =
|
|
Html.div []
|
|
[ Heading.h3 [] [ Html.text viewName ]
|
|
, view { link = ShowItWorked viewName, recoveryText = recoveryText }
|
|
]
|
|
|
|
|
|
initHttpError : Control Http.Error
|
|
initHttpError =
|
|
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 301) )
|
|
, ( "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`
|
|
"""
|
|
)
|
|
)
|
|
]
|
|
|
|
|
|
initRecoveryText : Control RecoveryText
|
|
initRecoveryText =
|
|
Control.choice
|
|
[ ( "Page.ReturnTo", Control.map Page.ReturnTo (Control.string "Home") )
|
|
, ( "Page.Reload", Control.value Page.Reload )
|
|
, ( "Page.Custom", Control.map Custom (Control.string "Hit the road, Jack") )
|
|
]
|