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

Update blog example scripts to use Html instead of Styled Html.

Browse Source
This commit is contained in:
Dillon Kearns 2023-02-04 08:22:31 -08:00
parent 48b92722e5
commit ae28135a6c
2 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
examples/blog-engine/script/src/AddForm.elm
View File

@ -19,8 +19,8 @@ import Gen.Form
import Gen.Form.Field
import Gen.Form.FieldView
import Gen.Form.Validation
import Gen.Html.Styled as Html
import Gen.Html.Styled.Attributes
import Gen.Html as Html
import Gen.Html.Attributes
import Gen.List
import Gen.Pages.Script
import Gen.Platform.Sub
@ -153,7 +153,7 @@ formWithFields fields =
)
++ [ Elm.ifThen (formState |> Elm.get "isTransitioning")
(Html.button
[ Gen.Html.Styled.Attributes.disabled True
[ Gen.Html.Attributes.disabled True
]
[ Html.text "Submitting..."
]
@ -172,7 +172,7 @@ formWithFields fields =
Html.div []
[ Html.label []
[ Html.call_.text (Elm.Op.append label (Elm.string " "))
, field |> Gen.Form.FieldView.inputStyled []
, field |> Gen.Form.FieldView.input []
, errorsView.call (Elm.get "errors" formState) field
]
]
@ -191,7 +191,7 @@ formWithFields fields =
, Elm.Annotation.named [] "ParsedForm"
, Elm.Annotation.unit
, Elm.Annotation.list
(Elm.Annotation.namedWith [ "Html", "Styled" ]
(Elm.Annotation.namedWith [ "Html" ]
"Html"
[ Elm.Annotation.namedWith
[ "Pages", "Msg" ]
@ -211,7 +211,6 @@ errorsView :
}
errorsView =
Elm.Declare.fn2 "errorsView"
--errorsView : Form.Errors String -> Validation.Field String parsed kind -> Html.Styled.Html (Pages.Msg.Msg Msg)
( "errors", Elm.Annotation.namedWith [ "Form" ] "Errors" [ Elm.Annotation.string ] |> Just )
( "field"
, Elm.Annotation.namedWith [ "Form", "Validation" ]
@ -233,7 +232,7 @@ errorsView =
(Elm.fn ( "error", Nothing )
(\error ->
Html.li
[ Gen.Html.Styled.Attributes.style "color" "red"
[ Gen.Html.Attributes.style "color" "red"
]
[ Html.call_.text error
]
@ -244,7 +243,7 @@ errorsView =
]
)
|> Elm.withType
(Elm.Annotation.namedWith [ "Html", "Styled" ]
(Elm.Annotation.namedWith [ "Html" ]
"Html"
[ Elm.Annotation.namedWith
[ "Pages", "Msg" ]
@ -388,7 +387,7 @@ createFile moduleName fields =
[ Html.h2 [] [ Html.text "Form" ]
, form.call []
|> Gen.Form.toDynamicTransition "form"
|> Gen.Form.renderStyledHtml [] (Elm.get "errors" >> Elm.just) app Elm.unit
|> Gen.Form.renderHtml [] (Elm.get "errors" >> Elm.just) app Elm.unit
]
}
, update =

4
examples/blog-engine/script/src/AddRoute.elm
View File

@ -10,7 +10,7 @@ import Elm.Annotation
import Elm.Case
import Gen.BackendTask
import Gen.Effect
import Gen.Html.Styled
import Gen.Html
import Gen.Platform.Sub
import Gen.Server.Request
import Gen.Server.Response
@ -89,7 +89,7 @@ buildFile moduleName =
\{ maybeUrl, sharedModel, model, app } ->
Gen.View.make_.view
{ title = moduleName |> String.join "." |> Elm.string
, body = Elm.list [ Gen.Html.Styled.text "Here is your generated page!!!" ]
, body = Elm.list [ Gen.Html.text "Here is your generated page!!!" ]
}
, update =
\{ pageUrl, sharedModel, app, msg, model } ->