dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-24 06:54:03 +03:00
Code Issues Packages Projects Releases Wiki Activity

Migrate another page.

Browse Source
This commit is contained in:
Dillon Kearns 2022-07-22 21:23:05 +02:00
parent 54276b82af
commit 8f2c1a04f5
1 changed files with 31 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
examples/smoothies/app/Route/PasswordConfirmation.elm
View File

@ -90,7 +90,7 @@ data routeParams =
action : RouteParams -> Request.Parser (DataSource (Response ActionData ErrorPage))
action routeParams =
Request.formDataWithoutServerValidation [ dependentParser ]
Request.formDataWithoutServerValidation2 [ dependentParser ]
|> Request.map
(\parsedForm ->
let
@ -120,7 +120,7 @@ view maybeUrl sharedModel model app =
, body =
[ Html.h2 [] [ Html.text "Example" ]
, dependentParser
|> Form.toDynamicTransition "form"
|> Form.toDynamicTransitionNew "form"
|> Form.renderHtml []
-- TODO pass in form response from ActionData
Nothing
@ -139,10 +139,11 @@ type alias Validated =
{ username : String, password : String }
dependentParser : Form.HtmlForm String { username : String, password : String } data Msg
dependentParser : Form.HtmlFormNew String { username : String, password : String } data Msg
dependentParser =
Form.init
Form.init2
(\username password passwordConfirmation ->
{ combine =
username
|> Validation.map Validated
|> Validation.andMap
@ -152,28 +153,29 @@ dependentParser =
Validation.succeed passwordValue
else
Validation.fail passwordConfirmation "Must match password"
Validation.fail2 passwordConfirmation "Must match password"
)
password
passwordConfirmation
|> Validation.andThen identity
)
)
(\formState username password passwordConfirmation ->
, view =
\formState ->
[ fieldView formState "Username" username
, fieldView formState "Password" password
, fieldView formState "Password Confirmation" passwordConfirmation
]
}
)
|> Form.field "username" (Field.text |> Field.required "Required")
|> Form.field "password" (Field.text |> Field.password |> Field.required "Required")
|> Form.field "password-confirmation" (Field.text |> Field.password |> Field.required "Required")
|> Form.field2 "username" (Field.text |> Field.required "Required")
|> Form.field2 "password" (Field.text |> Field.password |> Field.required "Required")
|> Form.field2 "password-confirmation" (Field.text |> Field.password |> Field.required "Required")
fieldView :
Form.Context String data
-> String
-> Form.ViewField String parsed Form.FieldView.Input
-> Validation String parsed Form.FieldView.Input
-> Html msg
fieldView formState label field =
let
@ -181,7 +183,7 @@ fieldView formState label field =
errorsView =
(if formState.submitAttempted || True then
formState.errors
|> Form.errorsForField field
|> Form.errorsForField2 field
|> List.map (\error -> Html.li [] [ Html.text error ])
else
@ -192,7 +194,7 @@ fieldView formState label field =
Html.div []
[ Html.label []
[ Html.text (label ++ " ")
, field |> Form.FieldView.input []
, field |> Form.FieldView.input2 []
]
, errorsView
]