mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-12-29 14:56:36 +03:00
Remove obsolete code.
This commit is contained in:
Dillon Kearns
parent
10e4e7e191
commit
975eff210c
@ -55,964 +55,6 @@ async function generateTemplateModuleConnector(basePath, phase) {
|
|||||||
|
|
||||||
return {
|
return {
|
||||||
mainModule: newMain,
|
mainModule: newMain,
|
||||||
mainModuleOld: `port module Main exposing (..)
|
|
||||||
|
|
||||||
import Api
|
|
||||||
import Bytes exposing (Bytes)
|
|
||||||
import Bytes.Decode
|
|
||||||
import Bytes.Encode
|
|
||||||
import Dict
|
|
||||||
import Effect exposing (Effect)
|
|
||||||
import ErrorPage exposing (ErrorPage)
|
|
||||||
import HtmlPrinter
|
|
||||||
import Lamdera.Wire3
|
|
||||||
import Pages.FormState
|
|
||||||
import Pages.Internal.String
|
|
||||||
import Pages.Internal.Platform.ToJsPayload
|
|
||||||
import Pages.Internal.ResponseSketch exposing (ResponseSketch)
|
|
||||||
import Pages.Msg
|
|
||||||
import Server.Response
|
|
||||||
import ApiRoute
|
|
||||||
import Browser.Navigation
|
|
||||||
import Route exposing (Route)
|
|
||||||
import Http
|
|
||||||
import Json.Decode
|
|
||||||
import Json.Encode
|
|
||||||
import Pages.Flags
|
|
||||||
import Pages.Fetcher
|
|
||||||
import ${
|
|
||||||
phase === "browser"
|
|
||||||
? "Pages.Internal.Platform"
|
|
||||||
: "Pages.Internal.Platform.Cli"
|
|
||||||
}
|
|
||||||
import Shared
|
|
||||||
import Site
|
|
||||||
import Head
|
|
||||||
import Html exposing (Html)
|
|
||||||
import Pages.Internal.NotFoundReason
|
|
||||||
import Pages.Transition
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
|
||||||
import Path exposing (Path)
|
|
||||||
import Pages.Internal.RoutePattern
|
|
||||||
import Pages.ProgramConfig
|
|
||||||
import Url
|
|
||||||
import DataSource exposing (DataSource)
|
|
||||||
import QueryParams
|
|
||||||
import Task exposing (Task)
|
|
||||||
import Url exposing (Url)
|
|
||||||
import View
|
|
||||||
|
|
||||||
${templates.map((name) => `import Route.${name.join(".")}`).join("\n")}
|
|
||||||
|
|
||||||
|
|
||||||
type alias Model =
|
|
||||||
{ global : Shared.Model
|
|
||||||
, page : PageModel
|
|
||||||
, current :
|
|
||||||
Maybe
|
|
||||||
{ path :
|
|
||||||
{ path : Path
|
|
||||||
, query : Maybe String
|
|
||||||
, fragment : Maybe String
|
|
||||||
}
|
|
||||||
, metadata : Maybe Route
|
|
||||||
, pageUrl : Maybe PageUrl
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
type PageModel
|
|
||||||
= ${templates
|
|
||||||
.map(
|
|
||||||
(name) =>
|
|
||||||
`Model${pathNormalizedName(name)} Route.${moduleName(name)}.Model\n`
|
|
||||||
)
|
|
||||||
.join(" | ")}
|
|
||||||
| ModelErrorPage____ ErrorPage.Model
|
|
||||||
| NotFound
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
type Msg
|
|
||||||
= MsgGlobal Shared.Msg
|
|
||||||
| OnPageChange
|
|
||||||
{ protocol : Url.Protocol
|
|
||||||
, host : String
|
|
||||||
, port_ : Maybe Int
|
|
||||||
, path : Path
|
|
||||||
, query : Maybe String
|
|
||||||
, fragment : Maybe String
|
|
||||||
, metadata : Maybe Route
|
|
||||||
}
|
|
||||||
| MsgErrorPage____ ErrorPage.Msg
|
|
||||||
| ${templates
|
|
||||||
.map(
|
|
||||||
(name) =>
|
|
||||||
`Msg${pathNormalizedName(name)} Route.${moduleName(name)}.Msg\n`
|
|
||||||
)
|
|
||||||
.join(" | ")}
|
|
||||||
|
|
||||||
|
|
||||||
type PageData
|
|
||||||
= Data404NotFoundPage____
|
|
||||||
| DataErrorPage____ ErrorPage
|
|
||||||
| ${templates
|
|
||||||
.map(
|
|
||||||
(name) =>
|
|
||||||
`Data${pathNormalizedName(name)} Route.${moduleName(name)}.Data\n`
|
|
||||||
)
|
|
||||||
.join(" | ")}
|
|
||||||
|
|
||||||
|
|
||||||
type ActionData
|
|
||||||
=
|
|
||||||
${templates
|
|
||||||
.map(
|
|
||||||
(name) =>
|
|
||||||
`ActionData${pathNormalizedName(name)} Route.${moduleName(
|
|
||||||
name
|
|
||||||
)}.ActionData\n`
|
|
||||||
)
|
|
||||||
.join(" | ")}
|
|
||||||
|
|
||||||
|
|
||||||
view :
|
|
||||||
Pages.FormState.PageFormState
|
|
||||||
-> Dict.Dict String ( Pages.Transition.FetcherState ActionData )
|
|
||||||
-> Maybe Pages.Transition.Transition
|
|
||||||
-> { path : Path
|
|
||||||
, route : Maybe Route
|
|
||||||
}
|
|
||||||
-> Maybe PageUrl
|
|
||||||
-> Shared.Data
|
|
||||||
-> PageData
|
|
||||||
-> Maybe ActionData
|
|
||||||
->
|
|
||||||
{ view : Model -> { title : String, body : Html (Pages.Msg.Msg Msg) }
|
|
||||||
, head : List Head.Tag
|
|
||||||
}
|
|
||||||
view pageFormState fetchers transition page maybePageUrl globalData pageData actionData =
|
|
||||||
case ( page.route, pageData ) of
|
|
||||||
( _, DataErrorPage____ data ) ->
|
|
||||||
{ view =
|
|
||||||
\\model ->
|
|
||||||
case model.page of
|
|
||||||
ModelErrorPage____ subModel ->
|
|
||||||
ErrorPage.view data subModel
|
|
||||||
--maybePageUrl
|
|
||||||
--model.global
|
|
||||||
----subModel
|
|
||||||
--{ data = data
|
|
||||||
--, sharedData = globalData
|
|
||||||
--, routeParams = {}
|
|
||||||
--, path = page.path
|
|
||||||
--}
|
|
||||||
|> View.map (MsgErrorPage____ >> Pages.Msg.UserMsg)
|
|
||||||
|> Shared.template.view globalData page model.global (MsgGlobal >> Pages.Msg.UserMsg)
|
|
||||||
|
|
||||||
_ ->
|
|
||||||
{ title = "Model mismatch", body = Html.text <| "Model mismatch" }
|
|
||||||
, head = []
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
${templates
|
|
||||||
.map(
|
|
||||||
(name) =>
|
|
||||||
`( Just ${
|
|
||||||
emptyRouteParams(name)
|
|
||||||
? `Route.${routeHelpers.routeVariant(name)}`
|
|
||||||
: `(Route.${routeHelpers.routeVariant(name)} s)`
|
|
||||||
}, Data${routeHelpers.routeVariant(name)} data ) ->
|
|
||||||
let
|
|
||||||
actionDataOrNothing =
|
|
||||||
case actionData of
|
|
||||||
Just (ActionData${routeHelpers.routeVariant(
|
|
||||||
name
|
|
||||||
)} justActionData) -> Just justActionData
|
|
||||||
_ -> Nothing
|
|
||||||
in
|
|
||||||
{ view =
|
|
||||||
\\model ->
|
|
||||||
case model.page of
|
|
||||||
Model${pathNormalizedName(name)} subModel ->
|
|
||||||
Route.${moduleName(name)}.route.view
|
|
||||||
maybePageUrl
|
|
||||||
model.global
|
|
||||||
subModel
|
|
||||||
{ data = data
|
|
||||||
, sharedData = globalData
|
|
||||||
, routeParams = ${
|
|
||||||
emptyRouteParams(name) ? "{}" : "s"
|
|
||||||
}
|
|
||||||
, action = actionDataOrNothing
|
|
||||||
, path = page.path
|
|
||||||
, submit = Pages.Fetcher.submit Route.${moduleName(
|
|
||||||
name
|
|
||||||
)}.w3_decode_ActionData
|
|
||||||
, transition = transition
|
|
||||||
, fetchers =
|
|
||||||
fetchers
|
|
||||||
|> Dict.map
|
|
||||||
(\\_ fetcherState ->
|
|
||||||
Pages.Transition.map
|
|
||||||
(\\ad ->
|
|
||||||
case ad of
|
|
||||||
ActionData${routeHelpers.routeVariant(
|
|
||||||
name
|
|
||||||
)} justActionData -> Just justActionData
|
|
||||||
_ -> Nothing
|
|
||||||
)
|
|
||||||
fetcherState
|
|
||||||
)
|
|
||||||
, pageFormState = pageFormState
|
|
||||||
}
|
|
||||||
|> View.map (Pages.Msg.map Msg${pathNormalizedName(
|
|
||||||
name
|
|
||||||
)})
|
|
||||||
|> Shared.template.view globalData page model.global (MsgGlobal >> Pages.Msg.UserMsg)
|
|
||||||
|
|
||||||
_ ->
|
|
||||||
{ title = "Model mismatch", body = Html.text <| "Model mismatch" }
|
|
||||||
, head = ${
|
|
||||||
phase === "browser"
|
|
||||||
? "[]"
|
|
||||||
: `Route.${moduleName(name)}.route.head
|
|
||||||
{ data = data
|
|
||||||
, sharedData = globalData
|
|
||||||
, routeParams = ${emptyRouteParams(name) ? "{}" : "s"}
|
|
||||||
, action = Nothing
|
|
||||||
, path = page.path
|
|
||||||
, submit = Pages.Fetcher.submit Route.${moduleName(
|
|
||||||
name
|
|
||||||
)}.w3_decode_ActionData
|
|
||||||
, transition = Nothing -- TODO is this safe?
|
|
||||||
, fetchers = Dict.empty -- TODO is this safe?
|
|
||||||
, pageFormState = Dict.empty -- TODO is this safe?
|
|
||||||
}
|
|
||||||
`
|
|
||||||
}
|
|
||||||
}
|
|
||||||
`
|
|
||||||
)
|
|
||||||
.join("\n\n ")}
|
|
||||||
_ ->
|
|
||||||
{ head = []
|
|
||||||
, view =
|
|
||||||
\\_ ->
|
|
||||||
{ title = "Page not found"
|
|
||||||
, body =
|
|
||||||
Html.div []
|
|
||||||
[ Html.text "This page could not be found."
|
|
||||||
]
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
init :
|
|
||||||
Maybe Shared.Model
|
|
||||||
-> Pages.Flags.Flags
|
|
||||||
-> Shared.Data
|
|
||||||
-> PageData
|
|
||||||
-> Maybe ActionData
|
|
||||||
->
|
|
||||||
Maybe
|
|
||||||
{ path :
|
|
||||||
{ path : Path
|
|
||||||
, query : Maybe String
|
|
||||||
, fragment : Maybe String
|
|
||||||
}
|
|
||||||
, metadata : Maybe Route
|
|
||||||
, pageUrl : Maybe PageUrl
|
|
||||||
}
|
|
||||||
-> ( Model, Effect Msg )
|
|
||||||
init currentGlobalModel userFlags sharedData pageData actionData maybePagePath =
|
|
||||||
let
|
|
||||||
( sharedModel, globalCmd ) =
|
|
||||||
currentGlobalModel |> Maybe.map (\\m -> ( m, Effect.none )) |> Maybe.withDefault (Shared.template.init userFlags maybePagePath)
|
|
||||||
|
|
||||||
( templateModel, templateCmd ) =
|
|
||||||
case ( ( Maybe.map2 Tuple.pair (maybePagePath |> Maybe.andThen .metadata) (maybePagePath |> Maybe.map .path) ), pageData ) of
|
|
||||||
${templates
|
|
||||||
.map(
|
|
||||||
(name) => `( Just ( ${
|
|
||||||
emptyRouteParams(name)
|
|
||||||
? `Route.${routeHelpers.routeVariant(name)}`
|
|
||||||
: `(Route.${routeHelpers.routeVariant(
|
|
||||||
name
|
|
||||||
)} routeParams)`
|
|
||||||
}, justPath ), Data${pathNormalizedName(
|
|
||||||
name
|
|
||||||
)} thisPageData ) ->
|
|
||||||
let
|
|
||||||
actionDataOrNothing =
|
|
||||||
case actionData of
|
|
||||||
Just (ActionData${routeHelpers.routeVariant(
|
|
||||||
name
|
|
||||||
)} justActionData) -> Just justActionData
|
|
||||||
_ -> Nothing
|
|
||||||
in
|
|
||||||
Route.${moduleName(name)}.route.init
|
|
||||||
(Maybe.andThen .pageUrl maybePagePath)
|
|
||||||
sharedModel
|
|
||||||
{ data = thisPageData
|
|
||||||
, sharedData = sharedData
|
|
||||||
, action = actionDataOrNothing
|
|
||||||
, routeParams = ${
|
|
||||||
emptyRouteParams(name) ? "{}" : "routeParams"
|
|
||||||
}
|
|
||||||
, path = justPath.path
|
|
||||||
, submit = Pages.Fetcher.submit Route.${moduleName(
|
|
||||||
name
|
|
||||||
)}.w3_decode_ActionData
|
|
||||||
, transition = Nothing -- TODO is this safe, will this always be Nothing?
|
|
||||||
, fetchers = Dict.empty
|
|
||||||
, pageFormState = Dict.empty
|
|
||||||
}
|
|
||||||
|> Tuple.mapBoth Model${pathNormalizedName(
|
|
||||||
name
|
|
||||||
)} (Effect.map Msg${pathNormalizedName(name)})
|
|
||||||
`
|
|
||||||
)
|
|
||||||
.join("\n ")}
|
|
||||||
_ ->
|
|
||||||
(case pageData of
|
|
||||||
DataErrorPage____ errorPage ->
|
|
||||||
errorPage
|
|
||||||
|
|
||||||
_ ->
|
|
||||||
ErrorPage.notFound
|
|
||||||
)
|
|
||||||
|> ErrorPage.init
|
|
||||||
|> Tuple.mapBoth ModelErrorPage____ (Effect.map MsgErrorPage____)
|
|
||||||
in
|
|
||||||
( { global = sharedModel
|
|
||||||
, page = templateModel
|
|
||||||
, current = maybePagePath
|
|
||||||
}
|
|
||||||
, Effect.batch
|
|
||||||
[ templateCmd
|
|
||||||
, globalCmd |> Effect.map MsgGlobal
|
|
||||||
]
|
|
||||||
)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
update : Pages.FormState.PageFormState -> Dict.Dict String ( Pages.Transition.FetcherState ActionData ) -> Maybe Pages.Transition.Transition -> Shared.Data -> PageData -> Maybe Browser.Navigation.Key -> Msg -> Model -> ( Model, Effect Msg )
|
|
||||||
update pageFormState fetchers transition sharedData pageData navigationKey msg model =
|
|
||||||
case msg of
|
|
||||||
MsgErrorPage____ msg_ ->
|
|
||||||
let
|
|
||||||
( updatedPageModel, pageCmd ) =
|
|
||||||
case ( model.page, pageData ) of
|
|
||||||
( ModelErrorPage____ pageModel, DataErrorPage____ thisPageData ) ->
|
|
||||||
ErrorPage.update
|
|
||||||
-- TODO pass in url or no?
|
|
||||||
--{ data = thisPageData
|
|
||||||
--, sharedData = sharedData
|
|
||||||
--, routeParams = {}
|
|
||||||
--, path = justPage.path
|
|
||||||
--}
|
|
||||||
thisPageData
|
|
||||||
msg_
|
|
||||||
pageModel
|
|
||||||
--model.global -- TODO pass in Shared.Model
|
|
||||||
|> Tuple.mapBoth ModelErrorPage____ (Effect.map MsgErrorPage____)
|
|
||||||
|
|
||||||
_ ->
|
|
||||||
( model.page, Effect.none )
|
|
||||||
in
|
|
||||||
( { model | page = updatedPageModel }
|
|
||||||
, pageCmd
|
|
||||||
)
|
|
||||||
|
|
||||||
|
|
||||||
MsgGlobal msg_ ->
|
|
||||||
let
|
|
||||||
( sharedModel, globalCmd ) =
|
|
||||||
Shared.template.update msg_ model.global
|
|
||||||
in
|
|
||||||
( { model | global = sharedModel }
|
|
||||||
, globalCmd |> Effect.map MsgGlobal
|
|
||||||
)
|
|
||||||
|
|
||||||
OnPageChange record ->
|
|
||||||
(init (Just model.global) Pages.Flags.PreRenderFlags sharedData pageData Nothing navigationKey <|
|
|
||||||
Just
|
|
||||||
{ path =
|
|
||||||
{ path = record.path
|
|
||||||
, query = record.query
|
|
||||||
, fragment = record.fragment
|
|
||||||
}
|
|
||||||
, metadata = record.metadata
|
|
||||||
, pageUrl =
|
|
||||||
Just
|
|
||||||
{ protocol = record.protocol
|
|
||||||
, host = record.host
|
|
||||||
, port_ = record.port_
|
|
||||||
, path = record.path
|
|
||||||
, query = record.query |> Maybe.map QueryParams.fromString
|
|
||||||
, fragment = record.fragment
|
|
||||||
}
|
|
||||||
}
|
|
||||||
)
|
|
||||||
|> (\\( updatedModel, cmd ) ->
|
|
||||||
case Shared.template.onPageChange of
|
|
||||||
Nothing ->
|
|
||||||
( updatedModel, cmd )
|
|
||||||
|
|
||||||
Just thingy ->
|
|
||||||
let
|
|
||||||
( updatedGlobalModel, globalCmd ) =
|
|
||||||
Shared.template.update
|
|
||||||
(thingy
|
|
||||||
{ path = record.path
|
|
||||||
, query = record.query
|
|
||||||
, fragment = record.fragment
|
|
||||||
}
|
|
||||||
)
|
|
||||||
model.global
|
|
||||||
in
|
|
||||||
( { updatedModel
|
|
||||||
| global = updatedGlobalModel
|
|
||||||
}
|
|
||||||
, Effect.batch [ cmd, Effect.map MsgGlobal globalCmd ]
|
|
||||||
)
|
|
||||||
)
|
|
||||||
|
|
||||||
|
|
||||||
${templates
|
|
||||||
.map(
|
|
||||||
(name) => `
|
|
||||||
Msg${pathNormalizedName(name)} msg_ ->
|
|
||||||
let
|
|
||||||
( updatedPageModel, pageCmd, ( newGlobalModel, newGlobalCmd ) ) =
|
|
||||||
case ( model.page, pageData, Maybe.map3 (\\a b c -> ( a, b, c )) (model.current |> Maybe.andThen .metadata) (model.current |> Maybe.andThen .pageUrl) (model.current |> Maybe.map .path) ) of
|
|
||||||
( Model${pathNormalizedName(
|
|
||||||
name
|
|
||||||
)} pageModel, Data${pathNormalizedName(
|
|
||||||
name
|
|
||||||
)} thisPageData, Just ( ${routeHelpers.destructureRoute(
|
|
||||||
name,
|
|
||||||
"routeParams"
|
|
||||||
)}, pageUrl, justPage ) ) ->
|
|
||||||
Route.${moduleName(name)}.route.update
|
|
||||||
pageUrl
|
|
||||||
{ data = thisPageData
|
|
||||||
, sharedData = sharedData
|
|
||||||
, action = Nothing
|
|
||||||
, routeParams = ${routeHelpers.referenceRouteParams(
|
|
||||||
name,
|
|
||||||
"routeParams"
|
|
||||||
)}
|
|
||||||
, path = justPage.path
|
|
||||||
, submit = Pages.Fetcher.submit Route.${moduleName(
|
|
||||||
name
|
|
||||||
)}.w3_decode_ActionData
|
|
||||||
, transition = transition
|
|
||||||
, fetchers =
|
|
||||||
fetchers
|
|
||||||
|> Dict.map
|
|
||||||
(\\_ fetcherState ->
|
|
||||||
Pages.Transition.map
|
|
||||||
(\\ad ->
|
|
||||||
case ad of
|
|
||||||
ActionData${routeHelpers.routeVariant(
|
|
||||||
name
|
|
||||||
)} justActionData -> Just justActionData
|
|
||||||
_ -> Nothing
|
|
||||||
)
|
|
||||||
fetcherState
|
|
||||||
)
|
|
||||||
, pageFormState = pageFormState
|
|
||||||
}
|
|
||||||
msg_
|
|
||||||
pageModel
|
|
||||||
model.global
|
|
||||||
|> mapBoth Model${pathNormalizedName(
|
|
||||||
name
|
|
||||||
)} (Effect.map Msg${pathNormalizedName(name)})
|
|
||||||
|> (\\( a, b, c ) ->
|
|
||||||
case c of
|
|
||||||
Just sharedMsg ->
|
|
||||||
( a, b, Shared.template.update sharedMsg model.global )
|
|
||||||
|
|
||||||
Nothing ->
|
|
||||||
( a, b, ( model.global, Effect.none ) )
|
|
||||||
)
|
|
||||||
|
|
||||||
_ ->
|
|
||||||
( model.page, Effect.none, ( model.global, Effect.none ) )
|
|
||||||
in
|
|
||||||
( { model | page = updatedPageModel, global = newGlobalModel }
|
|
||||||
, Effect.batch [ pageCmd, newGlobalCmd |> Effect.map MsgGlobal ]
|
|
||||||
)
|
|
||||||
`
|
|
||||||
)
|
|
||||||
.join("\n ")}
|
|
||||||
|
|
||||||
|
|
||||||
templateSubscriptions : Maybe Route -> Path -> Model -> Sub Msg
|
|
||||||
templateSubscriptions route path model =
|
|
||||||
case ( model.page, route ) of
|
|
||||||
${templates
|
|
||||||
.map(
|
|
||||||
(name) => `
|
|
||||||
( Model${pathNormalizedName(
|
|
||||||
name
|
|
||||||
)} templateModel, Just ${routeHelpers.destructureRoute(
|
|
||||||
name,
|
|
||||||
"routeParams"
|
|
||||||
)} ) ->
|
|
||||||
Route.${moduleName(name)}.route.subscriptions
|
|
||||||
Nothing -- TODO wire through value
|
|
||||||
${routeHelpers.referenceRouteParams(name, "routeParams")}
|
|
||||||
path
|
|
||||||
templateModel
|
|
||||||
model.global
|
|
||||||
|> Sub.map Msg${pathNormalizedName(name)}
|
|
||||||
`
|
|
||||||
)
|
|
||||||
.join("\n ")}
|
|
||||||
|
|
||||||
|
|
||||||
_ ->
|
|
||||||
Sub.none
|
|
||||||
|
|
||||||
|
|
||||||
main : ${
|
|
||||||
phase === "browser"
|
|
||||||
? "Pages.Internal.Platform.Program Model Msg PageData ActionData Shared.Data ErrorPage"
|
|
||||||
: "Pages.Internal.Platform.Cli.Program (Maybe Route)"
|
|
||||||
}
|
|
||||||
main =
|
|
||||||
${
|
|
||||||
phase === "browser"
|
|
||||||
? "Pages.Internal.Platform.application"
|
|
||||||
: "Pages.Internal.Platform.Cli.cliApplication"
|
|
||||||
} config
|
|
||||||
|
|
||||||
config : Pages.ProgramConfig.ProgramConfig Msg Model (Maybe Route) PageData ActionData Shared.Data (Effect Msg) mappedMsg ErrorPage
|
|
||||||
config =
|
|
||||||
{ init = init Nothing
|
|
||||||
, urlToRoute = Route.urlToRoute
|
|
||||||
, routeToPath = \\route -> route |> Maybe.map Route.routeToPath |> Maybe.withDefault []
|
|
||||||
, site = ${phase === "browser" ? `Nothing` : `Just Site.config`}
|
|
||||||
, globalHeadTags = ${
|
|
||||||
phase === "browser" ? `Nothing` : `Just globalHeadTags`
|
|
||||||
}
|
|
||||||
, getStaticRoutes = ${
|
|
||||||
phase === "browser"
|
|
||||||
? `DataSource.succeed []`
|
|
||||||
: `getStaticRoutes |> DataSource.map (List.map Just)`
|
|
||||||
}
|
|
||||||
, handleRoute = handleRoute
|
|
||||||
, view = view
|
|
||||||
, update = update
|
|
||||||
, subscriptions =
|
|
||||||
\\route path model ->
|
|
||||||
Sub.batch
|
|
||||||
[ Shared.template.subscriptions path model.global |> Sub.map MsgGlobal
|
|
||||||
, templateSubscriptions route path model
|
|
||||||
]
|
|
||||||
, onPageChange = OnPageChange
|
|
||||||
, toJsPort = toJsPort
|
|
||||||
, fromJsPort = fromJsPort identity
|
|
||||||
, gotBatchSub = ${
|
|
||||||
phase === "browser" ? "Sub.none" : "gotBatchSub identity"
|
|
||||||
}
|
|
||||||
, data = dataForRoute
|
|
||||||
, action = action
|
|
||||||
, onActionData = onActionData
|
|
||||||
, sharedData = Shared.template.data
|
|
||||||
, apiRoutes = ${
|
|
||||||
phase === "browser"
|
|
||||||
? `\\_ -> []`
|
|
||||||
: `\\htmlToString -> pathsToGenerateHandler :: routePatterns :: apiPatterns :: Api.routes getStaticRoutes htmlToString`
|
|
||||||
}
|
|
||||||
, pathPatterns = routePatterns3
|
|
||||||
, basePath = [ ${basePath
|
|
||||||
.split("/")
|
|
||||||
.filter((segment) => segment !== "")
|
|
||||||
.map((segment) => `"${segment}"`)
|
|
||||||
.join(", ")} ]
|
|
||||||
, sendPageData = sendPageData
|
|
||||||
, byteEncodePageData = byteEncodePageData
|
|
||||||
, byteDecodePageData = byteDecodePageData
|
|
||||||
, hotReloadData = hotReloadData identity
|
|
||||||
, encodeResponse = encodeResponse
|
|
||||||
, decodeResponse = decodeResponse
|
|
||||||
, encodeAction = encodeActionData
|
|
||||||
, cmdToEffect = Effect.fromCmd
|
|
||||||
, perform = Effect.perform
|
|
||||||
, errorStatusCode = ErrorPage.statusCode
|
|
||||||
, notFoundPage = ErrorPage.notFound
|
|
||||||
, internalError = ErrorPage.internalError
|
|
||||||
, errorPageToData = DataErrorPage____
|
|
||||||
, notFoundRoute = Nothing
|
|
||||||
}
|
|
||||||
|
|
||||||
onActionData actionData =
|
|
||||||
case actionData of
|
|
||||||
${templates
|
|
||||||
.map(
|
|
||||||
(name) => ` ActionData${pathNormalizedName(name)} thisActionData ->
|
|
||||||
Route.${name.join(
|
|
||||||
"."
|
|
||||||
)}.route.onAction |> Maybe.map (\\onAction -> onAction thisActionData) |> Maybe.map Msg${pathNormalizedName(
|
|
||||||
name
|
|
||||||
)}
|
|
||||||
|
|
||||||
`
|
|
||||||
)
|
|
||||||
.join("\n")}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
globalHeadTags : DataSource (List Head.Tag)
|
|
||||||
globalHeadTags =
|
|
||||||
(Site.config.head
|
|
||||||
:: (Api.routes getStaticRoutes HtmlPrinter.htmlToString
|
|
||||||
|> List.filterMap ApiRoute.getGlobalHeadTagsDataSource
|
|
||||||
)
|
|
||||||
)
|
|
||||||
|> DataSource.combine
|
|
||||||
|> DataSource.map List.concat
|
|
||||||
|
|
||||||
|
|
||||||
encodeResponse : ResponseSketch PageData ActionData Shared.Data -> Bytes.Encode.Encoder
|
|
||||||
encodeResponse =
|
|
||||||
Pages.Internal.ResponseSketch.w3_encode_ResponseSketch w3_encode_PageData w3_encode_ActionData Shared.w3_encode_Data
|
|
||||||
|
|
||||||
|
|
||||||
decodeResponse : Bytes.Decode.Decoder (ResponseSketch PageData ActionData Shared.Data)
|
|
||||||
decodeResponse =
|
|
||||||
Pages.Internal.ResponseSketch.w3_decode_ResponseSketch w3_decode_PageData w3_decode_ActionData Shared.w3_decode_Data
|
|
||||||
|
|
||||||
|
|
||||||
port hotReloadData : (Bytes -> msg) -> Sub msg
|
|
||||||
|
|
||||||
|
|
||||||
byteEncodePageData : PageData -> Bytes.Encode.Encoder
|
|
||||||
byteEncodePageData pageData =
|
|
||||||
case pageData of
|
|
||||||
DataErrorPage____ thisPageData ->
|
|
||||||
ErrorPage.w3_encode_ErrorPage thisPageData
|
|
||||||
|
|
||||||
|
|
||||||
Data404NotFoundPage____ ->
|
|
||||||
Bytes.Encode.unsignedInt8 0
|
|
||||||
|
|
||||||
${templates
|
|
||||||
.map(
|
|
||||||
(name) => ` Data${pathNormalizedName(name)} thisPageData ->
|
|
||||||
Route.${name.join(".")}.w3_encode_Data thisPageData
|
|
||||||
`
|
|
||||||
)
|
|
||||||
.join("\n")}
|
|
||||||
|
|
||||||
encodeActionData : ActionData -> Bytes.Encode.Encoder
|
|
||||||
encodeActionData actionData =
|
|
||||||
case actionData of
|
|
||||||
${templates
|
|
||||||
.map(
|
|
||||||
(name) => ` ActionData${pathNormalizedName(name)} thisActionData ->
|
|
||||||
Route.${name.join(".")}.w3_encode_ActionData thisActionData
|
|
||||||
`
|
|
||||||
)
|
|
||||||
.join("\n")}
|
|
||||||
|
|
||||||
|
|
||||||
port sendPageData : Pages.Internal.Platform.ToJsPayload.NewThingForPort -> Cmd msg
|
|
||||||
|
|
||||||
|
|
||||||
byteDecodePageData : Maybe Route -> Bytes.Decode.Decoder PageData
|
|
||||||
byteDecodePageData route =
|
|
||||||
case route of
|
|
||||||
Nothing -> Bytes.Decode.fail
|
|
||||||
${templates
|
|
||||||
.map(
|
|
||||||
(name) =>
|
|
||||||
` (Just ${
|
|
||||||
emptyRouteParams(name)
|
|
||||||
? `Route.${routeHelpers.routeVariant(name)}`
|
|
||||||
: `(Route.${routeHelpers.routeVariant(name)} _)`
|
|
||||||
}) ->\n Route.${name.join(
|
|
||||||
"."
|
|
||||||
)}.w3_decode_Data |> Bytes.Decode.map Data${routeHelpers.routeVariant(
|
|
||||||
name
|
|
||||||
)}
|
|
||||||
`
|
|
||||||
)
|
|
||||||
.join("\n")}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
dataForRoute : Maybe Route -> DataSource (Server.Response.Response PageData ErrorPage)
|
|
||||||
dataForRoute route =
|
|
||||||
case route of
|
|
||||||
Nothing ->
|
|
||||||
DataSource.succeed (Server.Response.render Data404NotFoundPage____ |> Server.Response.withStatusCode 404 |> Server.Response.mapError never )
|
|
||||||
|
|
||||||
${templates
|
|
||||||
.map(
|
|
||||||
(name) =>
|
|
||||||
`Just ${
|
|
||||||
emptyRouteParams(name)
|
|
||||||
? `Route.${routeHelpers.routeVariant(name)}`
|
|
||||||
: `(Route.${routeHelpers.routeVariant(name)} routeParams)`
|
|
||||||
} ->\n Route.${name.join(
|
|
||||||
"."
|
|
||||||
)}.route.data ${routeHelpers.referenceRouteParams(
|
|
||||||
name,
|
|
||||||
"routeParams"
|
|
||||||
)}
|
|
||||||
|> DataSource.map (Server.Response.map Data${routeHelpers.routeVariant(
|
|
||||||
name
|
|
||||||
)})
|
|
||||||
`
|
|
||||||
)
|
|
||||||
.join("\n ")}
|
|
||||||
|
|
||||||
action : Maybe Route -> DataSource (Server.Response.Response ActionData ErrorPage)
|
|
||||||
action route =
|
|
||||||
case route of
|
|
||||||
Nothing ->
|
|
||||||
DataSource.succeed ( Server.Response.plainText "TODO" )
|
|
||||||
|
|
||||||
${templates
|
|
||||||
.map(
|
|
||||||
(name) =>
|
|
||||||
`Just ${
|
|
||||||
emptyRouteParams(name)
|
|
||||||
? `Route.${routeHelpers.routeVariant(name)}`
|
|
||||||
: `(Route.${routeHelpers.routeVariant(name)} routeParams)`
|
|
||||||
} ->\n Route.${name.join(
|
|
||||||
"."
|
|
||||||
)}.route.action ${routeHelpers.referenceRouteParams(
|
|
||||||
name,
|
|
||||||
"routeParams"
|
|
||||||
)}
|
|
||||||
|> DataSource.map (Server.Response.map ActionData${routeHelpers.routeVariant(
|
|
||||||
name
|
|
||||||
)})
|
|
||||||
`
|
|
||||||
)
|
|
||||||
.join("\n ")}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
handleRoute : Maybe Route -> DataSource (Maybe Pages.Internal.NotFoundReason.NotFoundReason)
|
|
||||||
handleRoute maybeRoute =
|
|
||||||
case maybeRoute of
|
|
||||||
Nothing ->
|
|
||||||
DataSource.succeed Nothing
|
|
||||||
|
|
||||||
${templates
|
|
||||||
.map(
|
|
||||||
(name) =>
|
|
||||||
`Just (Route.${routeHelpers.routeVariant(name)}${
|
|
||||||
routeHelpers.parseRouteParams(name).length === 0
|
|
||||||
? ""
|
|
||||||
: " routeParams"
|
|
||||||
}) ->\n Route.${name.join(
|
|
||||||
"."
|
|
||||||
)}.route.handleRoute { moduleName = [ ${name
|
|
||||||
.map((part) => `"${part}"`)
|
|
||||||
.join(", ")} ], routePattern = ${routeHelpers.toElmPathPattern(
|
|
||||||
name
|
|
||||||
)} } (\\param -> [ ${routeHelpers
|
|
||||||
.parseRouteParams(name)
|
|
||||||
.map(
|
|
||||||
(param) =>
|
|
||||||
`( "${param.name}", ${paramAsElmString(param)} param.${
|
|
||||||
param.name
|
|
||||||
} )`
|
|
||||||
)
|
|
||||||
.join(", ")} ]) ${routeHelpers.referenceRouteParams(
|
|
||||||
name,
|
|
||||||
"routeParams"
|
|
||||||
)}`
|
|
||||||
)
|
|
||||||
.join("\n ")}
|
|
||||||
|
|
||||||
|
|
||||||
stringToString : String -> String
|
|
||||||
stringToString string =
|
|
||||||
"\\"" ++ string ++ "\\""
|
|
||||||
|
|
||||||
|
|
||||||
nonEmptyToString : ( String, List String ) -> String
|
|
||||||
nonEmptyToString ( first, rest ) =
|
|
||||||
"( "
|
|
||||||
++ stringToString first
|
|
||||||
++ ", [ "
|
|
||||||
++ (rest
|
|
||||||
|> List.map stringToString
|
|
||||||
|> String.join ", "
|
|
||||||
)
|
|
||||||
++ " ] )"
|
|
||||||
|
|
||||||
|
|
||||||
listToString : List String -> String
|
|
||||||
listToString strings =
|
|
||||||
"[ "
|
|
||||||
++ (strings
|
|
||||||
|> List.map stringToString
|
|
||||||
|> String.join ", "
|
|
||||||
)
|
|
||||||
++ " ]"
|
|
||||||
|
|
||||||
|
|
||||||
maybeToString : Maybe String -> String
|
|
||||||
maybeToString maybeString =
|
|
||||||
case maybeString of
|
|
||||||
Just string ->
|
|
||||||
"Just " ++ stringToString string
|
|
||||||
|
|
||||||
Nothing ->
|
|
||||||
"Nothing"
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
routePatterns : ApiRoute.ApiRoute ApiRoute.Response
|
|
||||||
routePatterns =
|
|
||||||
ApiRoute.succeed
|
|
||||||
(Json.Encode.list
|
|
||||||
(\\{ kind, pathPattern } ->
|
|
||||||
Json.Encode.object
|
|
||||||
[ ( "kind", Json.Encode.string kind )
|
|
||||||
, ( "pathPattern", Json.Encode.string pathPattern )
|
|
||||||
]
|
|
||||||
)
|
|
||||||
[ ${sortTemplates(templates)
|
|
||||||
.flatMap((name) => {
|
|
||||||
let patterns = routeHelpers.toPathPatterns(name);
|
|
||||||
return patterns.map(
|
|
||||||
(pattern) =>
|
|
||||||
`{ kind = Route.${moduleName(
|
|
||||||
name
|
|
||||||
)}.route.kind, pathPattern = "${pattern}" }`
|
|
||||||
);
|
|
||||||
})
|
|
||||||
.join("\n , ")}
|
|
||||||
|
|
||||||
]
|
|
||||||
|> (\\json -> DataSource.succeed ( Json.Encode.encode 0 json ))
|
|
||||||
)
|
|
||||||
|> ApiRoute.literal "route-patterns.json"
|
|
||||||
|> ApiRoute.single
|
|
||||||
|
|
||||||
apiPatterns : ApiRoute.ApiRoute ApiRoute.Response
|
|
||||||
apiPatterns =
|
|
||||||
let
|
|
||||||
apiPatternsString =
|
|
||||||
Api.routes getStaticRoutes (\\_ -> "")
|
|
||||||
|> List.map ApiRoute.toJson
|
|
||||||
|
|
||||||
in
|
|
||||||
ApiRoute.succeed
|
|
||||||
(Json.Encode.list identity apiPatternsString
|
|
||||||
|> (\\json -> DataSource.succeed ( Json.Encode.encode 0 json ))
|
|
||||||
)
|
|
||||||
|> ApiRoute.literal "api-patterns.json"
|
|
||||||
|> ApiRoute.single
|
|
||||||
|
|
||||||
|
|
||||||
routePatterns2 : List String
|
|
||||||
routePatterns2 =
|
|
||||||
[ ${sortTemplates(templates)
|
|
||||||
.map((name) => {
|
|
||||||
return `"${routeHelpers.toPathPattern(name)}"`;
|
|
||||||
})
|
|
||||||
.join("\n , ")}
|
|
||||||
]
|
|
||||||
|
|
||||||
|
|
||||||
routePatterns3 : List Pages.Internal.RoutePattern.RoutePattern
|
|
||||||
routePatterns3 =
|
|
||||||
[ ${sortTemplates(templates)
|
|
||||||
.map((name) => {
|
|
||||||
return `${routeHelpers.toElmPathPattern(name)}`;
|
|
||||||
})
|
|
||||||
.join("\n , ")}
|
|
||||||
]
|
|
||||||
|
|
||||||
getStaticRoutes : DataSource (List Route)
|
|
||||||
getStaticRoutes =
|
|
||||||
DataSource.combine
|
|
||||||
[ ${templates
|
|
||||||
.map((name) => {
|
|
||||||
return `Route.${moduleName(
|
|
||||||
name
|
|
||||||
)}.route.staticRoutes |> DataSource.map (List.map ${
|
|
||||||
emptyRouteParams(name)
|
|
||||||
? `(\\_ -> Route.${pathNormalizedName(name)}))`
|
|
||||||
: `Route.${pathNormalizedName(name)})`
|
|
||||||
}`;
|
|
||||||
})
|
|
||||||
.join("\n , ")}
|
|
||||||
]
|
|
||||||
|> DataSource.map List.concat
|
|
||||||
|
|
||||||
|
|
||||||
pathsToGenerateHandler : ApiRoute.ApiRoute ApiRoute.Response
|
|
||||||
pathsToGenerateHandler =
|
|
||||||
ApiRoute.succeed
|
|
||||||
(DataSource.map2
|
|
||||||
(\\pageRoutes apiRoutes ->
|
|
||||||
(pageRoutes ++ (apiRoutes |> List.map (\\api -> "/" ++ api)))
|
|
||||||
|> Json.Encode.list Json.Encode.string
|
|
||||||
|> Json.Encode.encode 0
|
|
||||||
)
|
|
||||||
(DataSource.map
|
|
||||||
(List.map
|
|
||||||
(\\route ->
|
|
||||||
route
|
|
||||||
|> Route.toPath
|
|
||||||
|> Path.toAbsolute
|
|
||||||
)
|
|
||||||
)
|
|
||||||
getStaticRoutes
|
|
||||||
)
|
|
||||||
((routePatterns :: apiPatterns :: Api.routes getStaticRoutes (\\_ -> ""))
|
|
||||||
|> List.map ApiRoute.getBuildTimeRoutes
|
|
||||||
|> DataSource.combine
|
|
||||||
|> DataSource.map List.concat
|
|
||||||
)
|
|
||||||
)
|
|
||||||
|> ApiRoute.literal "all-paths.json"
|
|
||||||
|> ApiRoute.single
|
|
||||||
|
|
||||||
|
|
||||||
port toJsPort : Json.Encode.Value -> Cmd msg
|
|
||||||
|
|
||||||
port fromJsPort : (Json.Decode.Value -> msg) -> Sub msg
|
|
||||||
|
|
||||||
port gotBatchSub : (Json.Decode.Value -> msg) -> Sub msg
|
|
||||||
|
|
||||||
|
|
||||||
mapBoth : (a -> b) -> (c -> d) -> ( a, c, e ) -> ( b, d, e )
|
|
||||||
mapBoth fnA fnB ( a, b, c ) =
|
|
||||||
( fnA a, fnB b, c )
|
|
||||||
|
|
||||||
encodeBytes : (b -> Bytes.Encode.Encoder) -> b -> Bytes
|
|
||||||
encodeBytes bytesEncoder items =
|
|
||||||
Bytes.Encode.encode (bytesEncoder items)
|
|
||||||
|
|
||||||
|
|
||||||
decodeBytes : Bytes.Decode.Decoder a -> Bytes -> Result String a
|
|
||||||
decodeBytes bytesDecoder items =
|
|
||||||
Bytes.Decode.decode bytesDecoder items
|
|
||||||
-- Lamdera.Wire3.bytesDecodeStrict bytesDecoder items
|
|
||||||
|> Result.fromMaybe "Decoding error"
|
|
||||||
`,
|
|
||||||
routesModule,
|
routesModule,
|
||||||
fetcherModules: templates.map((name) => {
|
fetcherModules: templates.map((name) => {
|
||||||
return [name, fetcherModule(name)];
|
return [name, fetcherModule(name)];
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user