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

Generate onActionData.

Browse Source
This commit is contained in:
Dillon Kearns 2022-09-19 18:24:47 -07:00
parent fc1582e24b
commit abdd4e7d37
1 changed files with 41 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
codegen/GenerateMain.elm
View File

@ -71,7 +71,7 @@ otherFile routes phaseString =
|> Elm.get "data"
, data = Elm.val "dataForRoute"
, action = Elm.val "action"
, onActionData = todo
, onActionData = Elm.val "onActionData"
, view = todo
, handleRoute = Elm.val "handleRoute"
, getStaticRoutes =
@ -258,6 +258,45 @@ otherFile routes phaseString =
]
)
onActionData :
{ declaration : Elm.Declaration
, call : Elm.Expression -> Elm.Expression
, callFrom : List String -> Elm.Expression -> Elm.Expression
}
onActionData =
Elm.Declare.fn "onActionData"
( "actionData", Type.named [] "ActionData" |> Just )
(\actionData ->
Elm.Case.custom actionData
Type.unit
(routes
|> List.map
(\route ->
Elm.Case.branch1
("ActionData" ++ (RoutePattern.toModuleName route |> String.join "__"))
( "thisActionData", Type.unit )
(\thisActionData ->
(Elm.value
{ annotation = Nothing
, importFrom = "Route" :: RoutePattern.toModuleName route
, name = "route"
}
|> Elm.get "onAction"
)
|> Gen.Maybe.map
(\onAction ->
Elm.apply
(Elm.val
("Msg" ++ (RoutePattern.toModuleName route |> String.join "__"))
)
[ Elm.apply onAction [ thisActionData ] ]
)
)
)
)
|> Elm.withType (Type.maybe (Type.named [] "Msg"))
)
templateSubscriptions :
{ declaration : Elm.Declaration
, call : Elm.Expression -> Elm.Expression -> Elm.Expression -> Elm.Expression
@ -1228,6 +1267,7 @@ otherFile routes phaseString =
, dataForRoute.declaration
, action.declaration
, templateSubscriptions.declaration
, onActionData.declaration
, byteEncodePageData.declaration
, byteDecodePageData.declaration
, apiPatterns.declaration