elm-pages 2.1.11 → 3.0.0-beta.1

package/generator/src/codegen-template-module.js

@@ -1,183 +0,0 @@
-const fs = require("./dir-helpers.js");
-const path = require("path");
-const routeHelpers = require("./route-codegen-helpers");
-
-async function run({ moduleName }) {
-  if (!moduleName.match(/[A-Z][A-Za-z0-9]+(\.[A-Z][A-Za-z0-9])*/)) {
-    console.error("Invalid module name.");
-    process.exit(1);
-  }
-  const content = fileContent(moduleName);
-  const fullFilePath = path.join(
-    `src/Page/`,
-    moduleName.replace(/\./g, "/") + ".elm"
-  );
-  await fs.tryMkdir(path.dirname(fullFilePath));
-  fs.writeFile(fullFilePath, content);
-}
-
-/**
- * @param {string} pageModuleName
- */
-function fileContent(pageModuleName) {
-  return routeHelpers.routeParams(pageModuleName.split(".")).length > 0
-    ? fileContentWithParams(pageModuleName)
-    : fileContentWithoutParams(pageModuleName);
-}
-
-/**
- * @param {string} pageModuleName
- */
-function fileContentWithParams(pageModuleName) {
-  return `module Page.${pageModuleName} exposing (Model, Msg, Data, page)
-
-import DataSource exposing (DataSource)
-import Head
-import Head.Seo as Seo
-import Page exposing (Page, PageWithState, StaticPayload)
-import Pages.PageUrl exposing (PageUrl)
-import Pages.Url
-import Shared
-import View exposing (View)
-
-
-type alias Model =
-    ()
-
-
-type alias Msg =
-    Never
-
-type alias RouteParams =
-    ${routeHelpers.paramsRecord(pageModuleName.split("."))}
-
-page : Page RouteParams Data
-page =
-    Page.prerender
-        { head = head
-        , routes = routes
-        , data = data
-        }
-        |> Page.buildNoState { view = view }
-
-
-routes : DataSource (List RouteParams)
-routes =
-    DataSource.succeed []
-
-
-data : RouteParams -> DataSource Data
-data routeParams =
-    DataSource.succeed ()
-
-
-
-head :
-    StaticPayload Data RouteParams
-    -> List Head.Tag
-head static =
-    Seo.summary
-        { canonicalUrlOverride = Nothing
-        , siteName = "elm-pages"
-        , image =
-            { url = Pages.Url.external "TODO"
-            , alt = "elm-pages logo"
-            , dimensions = Nothing
-            , mimeType = Nothing
-            }
-        , description = "TODO"
-        , locale = Nothing
-        , title = "TODO title" -- metadata.title -- TODO
-        }
-        |> Seo.website
-
-
-type alias Data =
-    ()
-
-
-view :
-    Maybe PageUrl
-    -> Shared.Model
-    -> StaticPayload Data RouteParams
-    -> View Msg
-view maybeUrl sharedModel static =
-    View.placeholder "${pageModuleName}"
-`;
-}
-
-/**
- * @param {string} pageModuleName
- */
-function fileContentWithoutParams(pageModuleName) {
-  return `module Page.${pageModuleName} exposing (Model, Msg, Data, page)
-
-import DataSource exposing (DataSource)
-import Head
-import Head.Seo as Seo
-import Page exposing (Page, PageWithState, StaticPayload)
-import Pages.PageUrl exposing (PageUrl)
-import Pages.Url
-import Shared
-import View exposing (View)
-
-
-type alias Model =
-    ()
-
-
-type alias Msg =
-    Never
-
-type alias RouteParams =
-    {}
-
-page : Page RouteParams Data
-page =
-    Page.single
-        { head = head
-        , data = data
-        }
-        |> Page.buildNoState { view = view }
-
-
-type alias Data =
-    ()
-
-
-data : DataSource Data
-data =
-    DataSource.succeed ()
-
-
-head :
-    StaticPayload Data RouteParams
-    -> List Head.Tag
-head static =
-    Seo.summary
-        { canonicalUrlOverride = Nothing
-        , siteName = "elm-pages"
-        , image =
-            { url = Pages.Url.external "TODO"
-            , alt = "elm-pages logo"
-            , dimensions = Nothing
-            , mimeType = Nothing
-            }
-        , description = "TODO"
-        , locale = Nothing
-        , title = "TODO title" -- metadata.title -- TODO
-        }
-        |> Seo.website
-
-
-view :
-    Maybe PageUrl
-    -> Shared.Model
-    -> StaticPayload Data RouteParams
-    -> View Msg
-view maybeUrl sharedModel static =
-    View.placeholder "${pageModuleName}"
-`;
-}
-
-module.exports = { run };

package/generator/src/elm-pages-js-minified.js

@@ -1 +0,0 @@
-module.exports = `let prefetchedPages=[window.location.pathname],initialLocationHash=document.location.hash.replace(/^#/,"");function loadContentAndInitializeApp(){let a=window.location.pathname.replace(/(\w)$/,"$1/");a.endsWith("/")||(a+="/");const b=Elm.TemplateModulesBeta.init({flags:{secrets:null,baseUrl:document.baseURI,isPrerendering:!1,isDevServer:!1,isElmDebugMode:!1,contentJson:JSON.parse(document.getElementById("__ELM_PAGES_DATA__").innerHTML),userFlags:userInit.flags()}});return b.ports.toJsPort.subscribe(()=>{loadNamedAnchor()}),b}function loadNamedAnchor(){if(""!==initialLocationHash){const a=document.querySelector(\`[name=\${initialLocationHash}]\`);a&&a.scrollIntoView()}}function prefetchIfNeeded(a){if(a.host===window.location.host&&!prefetchedPages.includes(a.pathname)){prefetchedPages.push(a.pathname),console.log("Preloading...",a.pathname);const b=document.createElement("link");b.setAttribute("as","fetch"),b.setAttribute("rel","prefetch"),b.setAttribute("href",origin+a.pathname+"/content.json"),document.head.appendChild(b)}}const appPromise=new Promise(function(a){document.addEventListener("DOMContentLoaded",()=>{a(loadContentAndInitializeApp())})});userInit.load(appPromise),"function"==typeof connect&&connect(function(a){appPromise.then(b=>{b.ports.fromJsPort.send({contentJson:a})})});const trigger_prefetch=b=>{const c=find_anchor(b.target);c&&c.href&&c.hasAttribute("elm-pages:prefetch")&&prefetchIfNeeded(c)};let mousemove_timeout;const handle_mousemove=a=>{clearTimeout(mousemove_timeout),mousemove_timeout=setTimeout(()=>{trigger_prefetch(a)},20)};addEventListener("touchstart",trigger_prefetch),addEventListener("mousemove",handle_mousemove);function find_anchor(a){for(;a&&"A"!==a.nodeName.toUpperCase();)a=a.parentNode;return a}`;

package/generator/template/src/Api.elm

@@ -1,14 +0,0 @@
-module Api exposing (routes)
-
-import ApiRoute
-import DataSource exposing (DataSource)
-import Html exposing (Html)
-import Route exposing (Route)
-
-
-routes :
-    DataSource (List Route)
-    -> (Html Never -> String)
-    -> List (ApiRoute.ApiRoute ApiRoute.Response)
-routes getStaticRoutes htmlToString =
-    []

package/generator/template/src/Page/Index.elm

@@ -1,69 +0,0 @@
-module Page.Index exposing (Data, Model, Msg, page)
-
-import DataSource exposing (DataSource)
-import Head
-import Head.Seo as Seo
-import Page exposing (Page, StaticPayload)
-import Pages.PageUrl exposing (PageUrl)
-import Pages.Url
-import Shared
-import View exposing (View)
-
-
-type alias Model =
-    ()
-
-
-type alias Msg =
-    Never
-
-
-type alias RouteParams =
-    {}
-
-
-page : Page RouteParams Data
-page =
-    Page.single
-        { head = head
-        , data = data
-        }
-        |> Page.buildNoState { view = view }
-
-
-data : DataSource Data
-data =
-    DataSource.succeed ()
-
-
-head :
-    StaticPayload Data RouteParams
-    -> List Head.Tag
-head static =
-    Seo.summary
-        { canonicalUrlOverride = Nothing
-        , siteName = "elm-pages"
-        , image =
-            { url = Pages.Url.external "TODO"
-            , alt = "elm-pages logo"
-            , dimensions = Nothing
-            , mimeType = Nothing
-            }
-        , description = "TODO"
-        , locale = Nothing
-        , title = "TODO title" -- metadata.title -- TODO
-        }
-        |> Seo.website
-
-
-type alias Data =
-    ()
-
-
-view :
-    Maybe PageUrl
-    -> Shared.Model
-    -> StaticPayload Data RouteParams
-    -> View Msg
-view maybeUrl sharedModel static =
-    View.placeholder "Index"

package/generator/template/src/Site.elm

@@ -1,41 +0,0 @@
-module Site exposing (config)
-
-import DataSource
-import Head
-import Pages.Manifest as Manifest
-import Route
-import SiteConfig exposing (SiteConfig)
-
-
-type alias Data =
-    ()
-
-
-config : SiteConfig Data
-config =
-    { data = data
-    , canonicalUrl = "https://elm-pages.com"
-    , manifest = manifest
-    , head = head
-    }
-
-
-data : DataSource.DataSource Data
-data =
-    DataSource.succeed ()
-
-
-head : Data -> List Head.Tag
-head static =
-    [ Head.sitemapLink "/sitemap.xml"
-    ]
-
-
-manifest : Data -> Manifest.Config
-manifest static =
-    Manifest.init
-        { name = "Site Name"
-        , description = "Description"
-        , startUrl = Route.Index |> Route.toPath
-        , icons = []
-        }

package/src/DataSource/ServerRequest.elm

@@ -1,60 +0,0 @@
-module DataSource.ServerRequest exposing (ServerRequest, expectHeader, init, optionalHeader, staticData, toStaticHttp)
-
-{-|
-
-@docs ServerRequest, expectHeader, init, optionalHeader, staticData, toStaticHttp
-
--}
-
-import DataSource
-import DataSource.Http
-import OptimizedDecoder
-import Secrets
-
-
-{-| -}
-type ServerRequest decodesTo
-    = ServerRequest (OptimizedDecoder.Decoder decodesTo)
-
-
-{-| -}
-init : constructor -> ServerRequest constructor
-init constructor =
-    ServerRequest (OptimizedDecoder.succeed constructor)
-
-
-{-| -}
-staticData : DataSource.DataSource String
-staticData =
-    DataSource.Http.get (Secrets.succeed "$$elm-pages$$headers")
-        (OptimizedDecoder.field "headers"
-            (OptimizedDecoder.field "accept-language" OptimizedDecoder.string)
-        )
-
-
-{-| -}
-toStaticHttp : ServerRequest decodesTo -> DataSource.DataSource decodesTo
-toStaticHttp (ServerRequest decoder) =
-    DataSource.Http.get (Secrets.succeed "$$elm-pages$$headers") decoder
-
-
-{-| -}
-expectHeader : String -> ServerRequest (String -> value) -> ServerRequest value
-expectHeader headerName (ServerRequest decoder) =
-    decoder
-        |> OptimizedDecoder.andMap
-            (OptimizedDecoder.field headerName OptimizedDecoder.string
-                |> OptimizedDecoder.field "headers"
-            )
-        |> ServerRequest
-
-
-{-| -}
-optionalHeader : String -> ServerRequest (Maybe String -> value) -> ServerRequest value
-optionalHeader headerName (ServerRequest decoder) =
-    decoder
-        |> OptimizedDecoder.andMap
-            (OptimizedDecoder.optionalField headerName OptimizedDecoder.string
-                |> OptimizedDecoder.field "headers"
-            )
-        |> ServerRequest

package/src/Internal/OptimizedDecoder.elm

@@ -1,18 +0,0 @@
-module Internal.OptimizedDecoder exposing (OptimizedDecoder(..), jd, jde)
-
-import Json.Decode
-import Json.Decode.Exploration
-
-
-type OptimizedDecoder a
-    = OptimizedDecoder (Json.Decode.Decoder a) (Json.Decode.Exploration.Decoder a)
-
-
-jd : OptimizedDecoder a -> Json.Decode.Decoder a
-jd (OptimizedDecoder jd_ _) =
-    jd_
-
-
-jde : OptimizedDecoder a -> Json.Decode.Exploration.Decoder a
-jde (OptimizedDecoder _ jde_) =
-    jde_

package/src/KeepOrDiscard.elm

@@ -1,6 +0,0 @@
-module KeepOrDiscard exposing (KeepOrDiscard(..))
-
-
-type KeepOrDiscard
-    = Keep
-    | Discard