elm-spa/dist/src/templates/pages.js

single page apps made easy

"use strict";
Object.defineProperty(exports, "__esModule", { value: true });
const utils_1 = require("./utils");
exports.default = (pages, options) => `
module Gen.Pages exposing (Model, Msg, init, subscriptions, update, view)

import Browser.Navigation exposing (Key)
import Effect exposing (Effect)
import ElmSpa.Page
${utils_1.paramsImports(pages)}
import Gen.Model as Model
import Gen.Msg as Msg
import Gen.Route as Route exposing (Route)
import Page exposing (Page)
${utils_1.pagesImports(pages)}
import Request exposing (Request)
import Shared
import Task
import Url exposing (Url)
import View exposing (View)


type alias Model =
    Model.Model


type alias Msg =
    Msg.Msg


init : Route -> Shared.Model -> Url -> Key -> ( Model, Effect Msg )
init route =
${utils_1.pagesInitBody(pages)}


update : Msg -> Model -> Shared.Model -> Url -> Key -> ( Model, Effect Msg )
update msg_ model_ =
${utils_1.pagesUpdateBody(pages.filter(page => !options.isStaticView(page)), options)}
${pages.length > 1 ? utils_1.pagesUpdateCatchAll : ''}


view : Model -> Shared.Model -> Url -> Key -> View Msg
view model_ =
${utils_1.pagesViewBody(pages, options)}


subscriptions : Model -> Shared.Model -> Url -> Key -> Sub Msg
subscriptions model_ =
${utils_1.pagesSubscriptionsBody(pages, options)}



-- INTERNALS


pages :
${utils_1.pagesBundleAnnotation(pages, options)}
pages =
${utils_1.pagesBundleDefinition(pages, options)}


type alias Bundle params model msg =
    ElmSpa.Page.Bundle params model msg Shared.Model (Effect Msg) Model Msg (View Msg)


bundle page toModel toMsg =
    ElmSpa.Page.bundle
        { redirecting =
            { model = Model.Redirecting_
            , view = View.none
            }
        , toRoute = Route.fromUrl
        , toUrl = Route.toHref
        , fromCmd = Effect.fromCmd
        , mapEffect = Effect.map toMsg
        , mapView = View.map toMsg
        , toModel = toModel
        , toMsg = toMsg
        , page = page
        }


type alias Static params =
    Bundle params () Never


static : View Never -> (params -> Model) -> Static params
static view_ toModel =
    { init = \\params _ _ _ -> ( toModel params, Effect.none )
    , update = \\params _ _ _ _ _ -> ( toModel params, Effect.none )
    , view = \\_ _ _ _ _ -> View.map never view_
    , subscriptions = \\_ _ _ _ _ -> Sub.none
    }
    
`.trimLeft();