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

Migrate more view generation code.

Browse Source
This commit is contained in:
Dillon Kearns 2022-09-22 08:34:44 -07:00
parent f26986851a
commit 79a4782a2f
1 changed files with 43 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
codegen/GenerateMain.elm
View File

@ -257,7 +257,7 @@ otherFile routes phaseString =
[ pageFormState, fetchers, transition, page, maybePageUrl, globalData, pageData, actionData ] ->
Elm.Case.custom (Elm.tuple (page |> Elm.get "route") pageData)
Type.unit
[ Elm.Pattern.tuple Elm.Pattern.ignore (Elm.Pattern.variant1 "DataErrorPage____" (Elm.Pattern.var "data"))
([ Elm.Pattern.tuple Elm.Pattern.ignore (Elm.Pattern.variant1 "DataErrorPage____" (Elm.Pattern.var "data"))
|> Elm.Case.patternToBranch
(\( (), data ) ->
Elm.record
@ -265,8 +265,43 @@ otherFile routes phaseString =
, ( "head", Elm.list [] )
]
)
, Elm.Case.otherwise (\_ -> todo)
]
]
++ (routes
|> List.map
(\route ->
Elm.Pattern.tuple (Elm.Pattern.variant1 "Just" (routeToSyntaxPattern route))
(Elm.Pattern.variant1 (prefixedRouteType "Data" route) (Elm.Pattern.var "data"))
|> Elm.Case.patternToBranch
(\( maybeRouteParams, data ) ->
todo
)
)
)
++ [ Elm.Case.otherwise
(\_ ->
Elm.record
[ ( "view"
, Elm.fn ( "_", Nothing )
(\_ ->
Elm.record
[ ( "title", Elm.string "Page not found" )
, ( "body", Gen.Html.div [] [ Gen.Html.text "This page could not be found." ] )
]
)
)
, ( "head"
, case phase of
Browser ->
Elm.list []
Cli ->
todo
-- TODO check for browser/cli flag in JS code for other TODOs
)
]
)
]
)
|> Elm.withType
(Type.record
[ ( "view"
@ -2036,3 +2071,8 @@ decodeRouteType typeName route =
, importFrom = "Route" :: RoutePattern.toModuleName route
, name = "w3_decode_" ++ typeName
}
prefixedRouteType : String -> RoutePattern -> String
prefixedRouteType prefix route =
prefix ++ (RoutePattern.toModuleName route |> String.join "__")