elm-pages 3.0.0-beta.40 → 3.0.0-beta.41

package/generator/dead-code-review/elm-stuff/tests-0.19.1/js/node_runner.js

@@ -75,7 +75,7 @@ console.elmlog = (str) => logs.push(str + "\n");
 const { Elm } = require("./Runner.elm.js");
 
 // Start the Elm app
-const flags = { initialSeed: 2220181744, fuzzRuns: 100, filter: null };
+const flags = { initialSeed: 386019384, fuzzRuns: 100, filter: null };
 const app = Elm.Runner.init({ flags: flags });
 
 // Record the timing at which we received the last "runTest" message

package/generator/dead-code-review/elm-stuff/tests-0.19.1/js/node_supervisor.js

@@ -82,7 +82,7 @@ const verbosity = 0;
 // Create a long lived reporter worker
 const { Elm } = require("./Reporter.elm.js");
 const flags = {
-  initialSeed: 2220181744,
+  initialSeed: 386019384,
   fuzzRuns: 100,
   mode: "consoleColor",
   verbosity: verbosity,

package/generator/review/elm-stuff/tests-0.19.1/js/node_runner.js

@@ -75,7 +75,7 @@ console.elmlog = (str) => logs.push(str + "\n");
 const { Elm } = require("./Runner.elm.js");
 
 // Start the Elm app
-const flags = { initialSeed: 1451258136, fuzzRuns: 100, filter: null };
+const flags = { initialSeed: 4127127384, fuzzRuns: 100, filter: null };
 const app = Elm.Runner.init({ flags: flags });
 
 // Record the timing at which we received the last "runTest" message

package/generator/review/elm-stuff/tests-0.19.1/js/node_supervisor.js

@@ -82,7 +82,7 @@ const verbosity = 0;
 // Create a long lived reporter worker
 const { Elm } = require("./Reporter.elm.js");
 const flags = {
-  initialSeed: 1451258136,
+  initialSeed: 4127127384,
   fuzzRuns: 100,
   mode: "consoleColor",
   verbosity: verbosity,

package/generator/src/RouteBuilder.elm

@@ -94,13 +94,14 @@ import Form
 import Head
 import Http
 import Json.Decode
+import Pages.ConcurrentSubmission
 import Pages.Fetcher
 import Pages.Internal.NotFoundReason exposing (NotFoundReason)
 import Pages.Internal.RoutePattern exposing (RoutePattern)
 import Pages.PageUrl exposing (PageUrl)
-import Pages.Transition
+import Pages.Navigation
 import PagesMsg exposing (PagesMsg)
-import Path exposing (Path)
+import UrlPath exposing (UrlPath)
 import Server.Request
 import Server.Response
 import Shared
@@ -122,7 +123,7 @@ type alias StatefulRoute routeParams data action model msg =
         -> List Head.Tag
     , init : Shared.Model -> App data action routeParams -> ( model, Effect msg )
     , update : App data action routeParams -> msg -> model -> Shared.Model -> ( model, Effect msg, Maybe Shared.Msg )
-    , subscriptions : routeParams -> Path -> model -> Shared.Model -> Sub msg
+    , subscriptions : routeParams -> UrlPath -> model -> Shared.Model -> Sub msg
     , handleRoute : { moduleName : List String, routePattern : RoutePattern } -> (routeParams -> List ( String, String )) -> routeParams -> BackendTask FatalError (Maybe NotFoundReason)
     , kind : String
     , onAction : Maybe (action -> msg)
@@ -139,14 +140,14 @@ type alias App data action routeParams =
     { data : data
     , sharedData : Shared.Data
     , routeParams : routeParams
-    , path : Path
+    , path : UrlPath
     , url : Maybe PageUrl
     , action : Maybe action
     , submit :
         { fields : List ( String, String ), headers : List ( String, String ) }
         -> Pages.Fetcher.Fetcher (Result Http.Error action)
-    , transition : Maybe Pages.Transition.Transition
-    , fetchers : Dict String (Pages.Transition.FetcherState (Maybe action))
+    , navigation : Maybe Pages.Navigation.Navigation
+    , concurrentSubmissions : Dict String (Pages.ConcurrentSubmission.ConcurrentSubmission (Maybe action))
     , pageFormState : Form.Model
     }
 
@@ -213,7 +214,7 @@ buildWithLocalState :
         -> View (PagesMsg msg)
     , init : App data action routeParams -> Shared.Model -> ( model, Effect msg )
     , update : App data action routeParams -> Shared.Model -> msg -> model -> ( model, Effect msg )
-    , subscriptions : routeParams -> Path -> Shared.Model -> model -> Sub msg
+    , subscriptions : routeParams -> UrlPath -> Shared.Model -> model -> Sub msg
     }
     -> Builder routeParams data action
     -> StatefulRoute routeParams data action model msg
@@ -253,7 +254,7 @@ buildWithSharedState :
         -> View (PagesMsg msg)
     , init : App data action routeParams -> Shared.Model -> ( model, Effect msg )
     , update : App data action routeParams -> Shared.Model -> msg -> model -> ( model, Effect msg, Maybe Shared.Msg )
-    , subscriptions : routeParams -> Path -> Shared.Model -> model -> Sub msg
+    , subscriptions : routeParams -> UrlPath -> Shared.Model -> model -> Sub msg
     }
     -> Builder routeParams data action
     -> StatefulRoute routeParams data action model msg

package/generator/src/SharedTemplate.elm

@@ -6,7 +6,7 @@ import FatalError exposing (FatalError)
 import Html exposing (Html)
 import Pages.Flags exposing (Flags)
 import Pages.PageUrl exposing (PageUrl)
-import Path exposing (Path)
+import UrlPath exposing (UrlPath)
 import Route exposing (Route)
 import View exposing (View)
 
@@ -17,7 +17,7 @@ type alias SharedTemplate msg sharedModel sharedData mappedMsg =
         ->
             Maybe
                 { path :
-                    { path : Path
+                    { path : UrlPath
                     , query : Maybe String
                     , fragment : Maybe String
                     }
@@ -29,7 +29,7 @@ type alias SharedTemplate msg sharedModel sharedData mappedMsg =
     , view :
         sharedData
         ->
-            { path : Path
+            { path : UrlPath
             , route : Maybe Route
             }
         -> sharedModel
@@ -37,10 +37,10 @@ type alias SharedTemplate msg sharedModel sharedData mappedMsg =
         -> View mappedMsg
         -> { body : List (Html mappedMsg), title : String }
     , data : BackendTask.BackendTask FatalError sharedData
-    , subscriptions : Path -> sharedModel -> Sub msg
+    , subscriptions : UrlPath -> sharedModel -> Sub msg
     , onPageChange :
         Maybe
-            ({ path : Path
+            ({ path : UrlPath
              , query : Maybe String
              , fragment : Maybe String
              }

package/generator/src/compatibility-key.js

@@ -1,3 +1,3 @@
-export const compatibilityKey = 17;
+export const compatibilityKey = 18;
 
-export const packageVersion = "3.0.0-beta.40";
+export const packageVersion = "3.0.0-beta.41";

package/package.json

@@ -1,7 +1,7 @@
 {
   "name": "elm-pages",
   "type": "module",
-  "version": "3.0.0-beta.40",
+  "version": "3.0.0-beta.41",
   "homepage": "https://elm-pages.com",
   "moduleResolution": "node",
   "description": "Type-safe static sites, written in pure elm with your own custom elm-markup syntax.",

package/src/BackendTask.elm

@@ -98,28 +98,19 @@ type alias BackendTask error value =
     RawRequest error value
 
 
-{-| Transform a request into an arbitrary value. The same underlying HTTP requests will be performed during the build
-step, but mapping allows you to change the resulting values by applying functions to the results.
-
-A common use for this is to map your data into your elm-pages view:
+{-| Transform a request into an arbitrary value. The same underlying task will be performed,
+but mapping allows you to change the resulting values by applying functions to the results.
 
     import BackendTask
+    import BackendTask.Http
     import Json.Decode as Decode exposing (Decoder)
 
-    view =
-        BackendTask.Http.get
-            (Secrets.succeed "https://api.github.com/repos/dillonkearns/elm-pages")
+    starsMessage =
+        BackendTask.Http.getJson
+            "https://api.github.com/repos/dillonkearns/elm-pages"
             (Decode.field "stargazers_count" Decode.int)
             |> BackendTask.map
-                (\stars ->
-                    { view =
-                        \model viewForPage ->
-                            { title = "Current stars: " ++ String.fromInt stars
-                            , body = Html.text <| "⭐️ " ++ String.fromInt stars
-                            , head = []
-                            }
-                    }
-                )
+                (\stars -> "⭐️ " ++ String.fromInt stars)
 
 -}
 map : (a -> b) -> BackendTask error a -> BackendTask error b
@@ -146,7 +137,7 @@ resolve =
     andThen combine
 
 
-{-| Turn a list of `StaticHttp.Request`s into a single one.
+{-| Turn a list of `BackendTask`s into a single one.
 
     import BackendTask
     import Json.Decode as Decode exposing (Decoder)
@@ -156,10 +147,10 @@ resolve =
         , sprite : String
         }
 
-    pokemonDetailRequest : StaticHttp.Request (List Pokemon)
+    pokemonDetailRequest : BackendTask (List Pokemon)
     pokemonDetailRequest =
-        StaticHttp.get
-            (Secrets.succeed "https://pokeapi.co/api/v2/pokemon/?limit=3")
+        BackendTask.Http.getJson
+            "https://pokeapi.co/api/v2/pokemon/?limit=3"
             (Decode.field "results"
                 (Decode.list
                     (Decode.map2 Tuple.pair
@@ -167,7 +158,7 @@ resolve =
                         (Decode.field "url" Decode.string)
                         |> Decode.map
                             (\( name, url ) ->
-                                StaticHttp.get (Secrets.succeed url)
+                                BackendTask.Http.getJson url
                                     (Decode.at
                                         [ "sprites", "front_default" ]
                                         Decode.string
@@ -177,7 +168,7 @@ resolve =
                     )
                 )
             )
-            |> StaticHttp.andThen StaticHttp.combine
+            |> BackendTask.andThen BackendTask.combine
 
 -}
 combine : List (BackendTask error value) -> BackendTask error (List value)
@@ -353,7 +344,7 @@ fail error =
     ApiRoute (Err error)
 
 
-{-| Turn an Err into a BackendTask failure.
+{-| Turn `Ok` into `BackendTask.succeed` and `Err` into `BackendTask.fail`.
 -}
 fromResult : Result error value -> BackendTask error value
 fromResult result =
@@ -523,7 +514,10 @@ map9 combineFn request1 request2 request3 request4 request5 request6 request7 re
         |> map2 (|>) request9
 
 
-{-| -}
+{-| Ignore any recoverable error data and propagate the `FatalError`. Similar to a `Cmd` in The Elm Architecture,
+a `FatalError` will not do anything except if it is returned at the top-level of your application. Read more
+in the [`FatalError` docs](FatalError).
+-}
 allowFatal : BackendTask { error | fatal : FatalError } data -> BackendTask FatalError data
 allowFatal backendTask =
     mapError .fatal backendTask

package/src/Head/Seo.elm

@@ -1,13 +1,13 @@
 module Head.Seo exposing (Common, Image, article, audioPlayer, book, profile, song, summary, summaryLarge, videoPlayer, website)
 
-{-| <https://ogp.me/#>
-<https://developers.facebook.com/docs/sharing/opengraph>
+{-| <https://developers.facebook.com/docs/sharing/opengraph>
 
 This module encapsulates some of the best practices for SEO for your site.
 
-`elm-pages` will pre-render each of the static pages (in your `content` directory) so that
+`elm-pages` pre-renders the HTML for your pages (either at build-time or server-render time) so that
 web crawlers can efficiently and accurately process it. The functions in this module are for use
-with the `head` function that you pass to your Pages config (`Pages.application`).
+with the `head` function in your `Route` modules to help you build up a set of `<meta>` tags that
+includes common meta tags used for rich link previews, namely [OpenGraph tags](https://ogp.me/) and [Twitter card tags](https://developer.twitter.com/en/docs/twitter-for-websites/cards/overview/abouts-cards).
 
     import Date
     import Head

package/src/Pages/ConcurrentSubmission.elm

@@ -0,0 +1,127 @@
+module Pages.ConcurrentSubmission exposing
+    ( ConcurrentSubmission, Status(..)
+    , map
+    )
+
+{-| When you render a `Form` with the [`Pages.Form.withConcurrent`](Pages-Form#withConcurrent) `Option`, the state of in-flight and completed submissions will be available
+from your `Route` module through `app.concurrentSubmissions` as a `Dict String (ConcurrentSubmission (Maybe Action))`.
+
+You can use this state to declaratively derive Pending UI or Optimistic UI from your pending submissions (without managing the state in your `Model`, since `elm-pages`
+manages form submission state for you).
+
+You can [see the full-stack TodoMVC example](https://github.com/dillonkearns/elm-pages-v3-beta/blob/master/examples/todos/app/Route/Visibility__.elm) for a complete example of deriving Pending UI state from `app.concurrentSubmissions`.
+
+For example, this how the TodoMVC example derives the list of new items that are being created (but are still pending).
+
+    view :
+        App Data ActionData RouteParams
+        -> Shared.Model
+        -> Model
+        -> View (PagesMsg Msg)
+    view app shared model =
+        let
+            pendingActions : List Action
+            pendingActions =
+                app.concurrentSubmissions
+                    |> Dict.values
+                    |> List.filterMap
+                        (\{ status, payload } ->
+                            case status of
+                                Pages.ConcurrentSubmission.Complete _ ->
+                                    Nothing
+
+                                _ ->
+                                    allForms
+                                        |> Form.Handler.run payload.fields
+                                        |> Form.toResult
+                                        |> Result.toMaybe
+                        )
+
+            newPendingItems : List Entry
+            newPendingItems =
+                pendingActions
+                    |> List.filterMap
+                        (\submission ->
+                            case submission of
+                                Add description ->
+                                    Just
+                                        { description = description
+                                        , completed = False
+                                        , id = ""
+                                        , isPending = True
+                                        }
+
+                                _ ->
+                                -- `newPendingItems` only cares about pending Add actions. Other values will use
+                                -- pending submissions for other types of Actions.
+                                    Nothing
+                        )
+        in
+        itemsView app newPendingItems
+
+        allForms : Form.Handler.Handler String Action
+        allForms =
+                |> Form.Handler.init Add addItemForm
+                -- |> Form.Handler.with ...
+
+
+        type Action
+            = UpdateEntry ( String, String )
+            | Add String
+            | Delete String
+            | DeleteComplete
+            | Check ( Bool, String )
+            | CheckAll Bool
+
+@docs ConcurrentSubmission, Status
+
+@docs map
+
+-}
+
+import Pages.FormData exposing (FormData)
+import Time
+
+
+{-| -}
+type alias ConcurrentSubmission actionData =
+    { status : Status actionData
+    , payload : FormData
+    , initiatedAt : Time.Posix
+    }
+
+
+{-| The status of a `ConcurrentSubmission`.
+
+  - `Submitting` - The submission is in-flight.
+  - `Reloading` - The submission has completed, and the page is now reloading the `Route`'s `data` to reflect the new state. The `actionData` holds any data returned from the `Route`'s `action`.
+  - `Complete` - The submission has completed, and the `Route`'s `data` has since reloaded so the state reflects the refreshed state after completing this specific form submission. The `actionData` holds any data returned from the `Route`'s `action`.
+
+-}
+type Status actionData
+    = Submitting
+    | Reloading actionData
+    | Complete actionData
+
+
+{-| `map` a `ConcurrentSubmission`. Not needed for most high-level cases since this state is managed by the `elm-pages` framework for you.
+-}
+map : (a -> b) -> ConcurrentSubmission a -> ConcurrentSubmission b
+map mapFn fetcherState =
+    { status = mapStatus mapFn fetcherState.status
+    , payload = fetcherState.payload
+    , initiatedAt = fetcherState.initiatedAt
+    }
+
+
+mapStatus : (a -> b) -> Status a -> Status b
+mapStatus mapFn fetcherSubmitStatus =
+    case fetcherSubmitStatus of
+        Submitting ->
+            Submitting
+
+        Reloading value ->
+            Reloading (mapFn value)
+
+        Complete value ->
+            Complete (mapFn value)