dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-27 05:44:17 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add client-side errors to view.

Browse Source
This commit is contained in:
Dillon Kearns 2022-06-09 10:49:14 -07:00
parent 3c0bce5769
commit 071e0d6dd9
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
examples/smoothies/app/Route/Profile/Edit.elm
View File

@ -143,6 +143,23 @@ newDecoder =
}
)
(\fieldErrors username name ->
let
errors field =
fieldErrors
|> Dict.get field.name
|> Maybe.withDefault []
errorsView field =
(if field.status == Pages.Form.Blurred then
field
|> errors
|> List.map (\error -> Html.li [] [ Html.text error ])
else
[]
)
|> Html.ul [ Attr.style "color" "red" ]
in
Html.form
(Pages.Form.listeners "test"
++ [ Attr.method "POST"
@ -154,17 +171,12 @@ newDecoder =
)
[ Html.div
[]
[ Html.label
[]
[ Html.text <| "Username (" ++ Debug.toString username.status ++ ") "
, username |> FormParser.input []
]
[ Html.label [] [ Html.text "Username ", username |> FormParser.input [] ]
, errorsView username
]
, Html.div []
[ Html.label []
[ Html.text <| "Name (" ++ Debug.toString name.status ++ ") "
, name |> FormParser.input []
]
[ Html.label [] [ Html.text "Name", name |> FormParser.input [] ]
, errorsView name
]
]
)