npm - @curtissimo/elm-hot - Versions diffs - 1.1.7 - Mend

@curtissimo/elm-hot 1.1.7

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (52) hide show

package/CHANGELOG +40 -0
package/CODE_OF_CONDUCT.md +74 -0
package/CONTRIBUTING.md +51 -0
package/LICENSE.txt +33 -0
package/README.md +84 -0
package/package.json +37 -0
package/resources/hmr.js +519 -0
package/src/index.js +6 -0
package/src/inject.js +46 -0
package/test/client.js +63 -0
package/test/fixtures/BrowserApplicationCounter.elm +136 -0
package/test/fixtures/BrowserApplicationCounter.html +22 -0
package/test/fixtures/BrowserApplicationCounterDeepKey.elm +137 -0
package/test/fixtures/BrowserApplicationCounterDeepKey.html +18 -0
package/test/fixtures/BrowserApplicationCounterMultiKey.elm +158 -0
package/test/fixtures/BrowserApplicationCounterMultiKey.html +22 -0
package/test/fixtures/BrowserApplicationMissingNavKeyError.elm +62 -0
package/test/fixtures/BrowserApplicationMissingNavKeyError.html +22 -0
package/test/fixtures/BrowserApplicationNavKeyMoved.elm +159 -0
package/test/fixtures/BrowserApplicationNavKeyMoved.html +22 -0
package/test/fixtures/BrowserApplicationWithNull.elm +142 -0
package/test/fixtures/BrowserApplicationWithNull.html +22 -0
package/test/fixtures/BrowserDocumentCounter.elm +57 -0
package/test/fixtures/BrowserDocumentCounter.html +24 -0
package/test/fixtures/BrowserElementCounter.elm +55 -0
package/test/fixtures/BrowserElementCounter.html +24 -0
package/test/fixtures/BrowserSandboxCounter.elm +48 -0
package/test/fixtures/BrowserSandboxCounter.html +21 -0
package/test/fixtures/DebugBrowserApplication.elm +139 -0
package/test/fixtures/DebugBrowserApplication.html +22 -0
package/test/fixtures/DebugEmbed.elm +48 -0
package/test/fixtures/DebugEmbed.html +21 -0
package/test/fixtures/DebugFullscreen.elm +57 -0
package/test/fixtures/DebugFullscreen.html +22 -0
package/test/fixtures/FullScreenEmptyInit.elm +51 -0
package/test/fixtures/FullScreenEmptyInit.html +19 -0
package/test/fixtures/InitSideEffects.elm +65 -0
package/test/fixtures/InitSideEffects.html +27 -0
package/test/fixtures/MainWithTasks.elm +70 -0
package/test/fixtures/MainWithTasks.html +21 -0
package/test/fixtures/MultiMain.html +21 -0
package/test/fixtures/MultiMain1.elm +48 -0
package/test/fixtures/MultiMain2.elm +48 -0
package/test/fixtures/PortsEmbed.elm +64 -0
package/test/fixtures/PortsEmbed.html +27 -0
package/test/fixtures/PortsFullscreen.elm +70 -0
package/test/fixtures/PortsFullscreen.html +26 -0
package/test/fixtures/build.sh +29 -0
package/test/fixtures/elm.json +24 -0
package/test/server.js +73 -0
package/test/test.js +320 -0
package/test.sh +16 -0

package/test/fixtures/BrowserApplicationCounter.elm ADDED Viewed

@@ -0,0 +1,136 @@
+module BrowserApplicationCounter exposing (..)
+import Browser exposing (UrlRequest)
+import Browser.Navigation as Nav
+import Html exposing (a, button, div, h1, p, span, text)
+import Html.Attributes exposing (href, id)
+import Html.Events exposing (onClick)
+import Url exposing (Url)
+main =
+    Browser.application
+        { init = init
+        , view = view
+        , update = update
+        , subscriptions = \_ -> Sub.none
+        , onUrlRequest = LinkClicked
+        , onUrlChange = UrlChanged
+        }
+type alias Flags =
+    { n : Int }
+type alias Model =
+    { count : Int
+    , myNavKey : Nav.Key
+    , page : Page
+    }
+type Page
+    = NotFound
+    | Incrementer
+    | Decrementer
+init : Flags -> Url -> Nav.Key -> ( Model, Cmd Msg )
+init flags url key =
+    ( loadPage url
+        { count = flags.n
+        , myNavKey = key
+        , page = NotFound
+        }
+    , Cmd.none
+    )
+type Msg
+    = Increment
+    | Decrement
+    | LinkClicked UrlRequest
+    | UrlChanged Url
+update msg model =
+    case msg of
+        Increment ->
+            ( { model | count = model.count + 1 }
+            , Cmd.none
+            )
+        Decrement ->
+            ( { model | count = model.count - 1 }
+            , Cmd.none
+            )
+        LinkClicked req ->
+            case req of
+                Browser.Internal url ->
+                    ( model, Nav.pushUrl model.myNavKey (Url.toString url) )
+                Browser.External href ->
+                    ( model, Nav.load href )
+        UrlChanged url ->
+            ( loadPage url model
+            , Cmd.none
+            )
+loadPage : Url -> Model -> Model
+loadPage url model =
+    { model
+        | page =
+            case url.fragment of
+                Nothing ->
+                    Incrementer
+                Just "/incrementer" ->
+                    Incrementer
+                Just "/decrementer" ->
+                    Decrementer
+                _ ->
+                    NotFound
+    }
+view model =
+    let
+        pageBody =
+            case model.page of
+                Incrementer ->
+                    div [ id "incrementer" ]
+                        [ h1 [] [ text "Incrementer" ]
+                        , p []
+                            [ text "Counter value is: "
+                            , span [ id "counter-value" ] [ text (String.fromInt model.count) ]
+                            ]
+                        , button [ onClick Increment, id "counter-button" ] [ text "+" ]
+                        , p [] [ text "Switch to ", a [ id "nav-decrement", href "#/decrementer" ] [ text "decrementer" ] ]
+                        ]
+                Decrementer ->
+                    div [ id "decrementer" ]
+                        [ h1 [] [ text "Decrementer" ]
+                        , p []
+                            [ text "Counter value is: "
+                            , span [ id "counter-value" ] [ text (String.fromInt model.count) ]
+                            ]
+                        , button [ onClick Decrement, id "counter-button" ] [ text "-" ]
+                        , p [] [ text "Switch to ", a [ id "nav-increment", href "#/incrementer" ] [ text "incrementer" ] ]
+                        ]
+                NotFound ->
+                    text "Page not found"
+    in
+    { title = "BrowserApplicationCounter"
+    , body =
+        [ span [ id "code-version" ] [ text "code: v1" ]
+        , pageBody
+        ]
+    }

package/test/fixtures/BrowserApplicationCounter.html ADDED Viewed

@@ -0,0 +1,22 @@
+<!DOCTYPE HTML>
+<html>
+<head>
+  <meta charset="UTF-8">
+  <title>Main</title>
+  <script type="text/javascript" src="client.js"></script>
+  <script type="text/javascript" src="build/BrowserApplicationCounter.js"></script>
+</head>
+<body>
+  <script>
+    connect("BrowserApplicationCounter");
+    Elm.BrowserApplicationCounter.init({
+      flags: {
+        n: 0
+      }
+    });
+  </script>
+</body>
+</html>

package/test/fixtures/BrowserApplicationCounterDeepKey.elm ADDED Viewed

@@ -0,0 +1,137 @@
+module BrowserApplicationCounterDeepKey exposing (..)
+import Browser exposing (UrlRequest)
+import Browser.Navigation as Nav
+import Html exposing (a, button, div, h1, p, span, text)
+import Html.Attributes exposing (href, id)
+import Html.Events exposing (onClick)
+import Url exposing (Url)
+main : Program () Model Msg
+main =
+    Browser.application
+        { init = init
+        , view = view
+        , update = update
+        , subscriptions = \_ -> Sub.none
+        , onUrlRequest = LinkClicked
+        , onUrlChange = UrlChanged
+        }
+type alias Model =
+    { count : Int
+    -- IMPORTANT: store the Nav.Key in a nested record to make sure that we an recover it during HMR
+    , keyHolder : { navKey : Nav.Key }
+    , page : Page
+    }
+type Page
+    = NotFound
+    | Incrementer
+    | Decrementer
+init : () -> Url -> Nav.Key -> ( Model, Cmd Msg )
+init _ url key =
+    ( loadPage url
+        { count = 0
+        , keyHolder = { navKey = key }
+        , page = NotFound
+        }
+    , Cmd.none
+    )
+type Msg
+    = Increment
+    | Decrement
+    | LinkClicked UrlRequest
+    | UrlChanged Url
+update : Msg -> Model -> ( Model, Cmd msg )
+update msg model =
+    case msg of
+        Increment ->
+            ( { model | count = model.count + 1 }
+            , Cmd.none
+            )
+        Decrement ->
+            ( { model | count = model.count - 1 }
+            , Cmd.none
+            )
+        LinkClicked req ->
+            case req of
+                Browser.Internal url ->
+                    ( model, Nav.pushUrl model.keyHolder.navKey (Url.toString url) )
+                Browser.External href ->
+                    ( model, Nav.load href )
+        UrlChanged url ->
+            ( loadPage url model
+            , Cmd.none
+            )
+loadPage : Url -> Model -> Model
+loadPage url model =
+    { model
+        | page =
+            case url.fragment of
+                Nothing ->
+                    Incrementer
+                Just "/incrementer" ->
+                    Incrementer
+                Just "/decrementer" ->
+                    Decrementer
+                _ ->
+                    NotFound
+    }
+view : Model -> Browser.Document Msg
+view model =
+    let
+        pageBody =
+            case model.page of
+                Incrementer ->
+                    div [ id "incrementer" ]
+                        [ h1 [] [ text "Incrementer" ]
+                        , p []
+                            [ text "Counter value is: "
+                            , span [ id "counter-value" ] [ text (String.fromInt model.count) ]
+                            ]
+                        , button [ onClick Increment, id "counter-button" ] [ text "+" ]
+                        , p [] [ text "Switch to ", a [ id "nav-decrement", href "#/decrementer" ] [ text "decrementer" ] ]
+                        ]
+                Decrementer ->
+                    div [ id "decrementer" ]
+                        [ h1 [] [ text "Decrementer" ]
+                        , p []
+                            [ text "Counter value is: "
+                            , span [ id "counter-value" ] [ text (String.fromInt model.count) ]
+                            ]
+                        , button [ onClick Decrement, id "counter-button" ] [ text "-" ]
+                        , p [] [ text "Switch to ", a [ id "nav-increment", href "#/incrementer" ] [ text "incrementer" ] ]
+                        ]
+                NotFound ->
+                    text "Page not found"
+    in
+    { title = "BrowserApplicationCounterDeepKey"
+    , body =
+        [ span [ id "code-version" ] [ text "code: v1" ]
+        , pageBody
+        ]
+    }

package/test/fixtures/BrowserApplicationCounterDeepKey.html ADDED Viewed

@@ -0,0 +1,18 @@
+<!DOCTYPE HTML>
+<html>
+<head>
+  <meta charset="UTF-8">
+  <title>Main</title>
+  <script type="text/javascript" src="client.js"></script>
+  <script type="text/javascript" src="build/BrowserApplicationCounterDeepKey.js"></script>
+</head>
+<body>
+  <script>
+    connect("BrowserApplicationCounterDeepKey");
+    Elm.BrowserApplicationCounterDeepKey.init({});
+  </script>
+</body>
+</html>

package/test/fixtures/BrowserApplicationCounterMultiKey.elm ADDED Viewed

@@ -0,0 +1,158 @@
+module BrowserApplicationCounterMultiKey exposing
+    ( Model
+    , Msg(..)
+    , Page(..)
+    , getKey
+    , init
+    , loadPage
+    , main
+    , update
+    , view
+    )
+import Browser exposing (UrlRequest)
+import Browser.Navigation as Nav
+import Html exposing (a, button, div, h1, p, span, text)
+import Html.Attributes exposing (href, id)
+import Html.Events exposing (onClick)
+import Url exposing (Url)
+main : Program () Model Msg
+main =
+    Browser.application
+        { init = init
+        , view = view
+        , update = update
+        , subscriptions = \_ -> Sub.none
+        , onUrlRequest = LinkClicked
+        , onUrlChange = UrlChanged
+        }
+type alias Model =
+    { count : Int
+    , page : Page
+    }
+{-| IMPORTANT: store the Nav.Key in the variants of a union type to make sure that we can restore it during HMR
+-}
+type Page
+    = NotFound Nav.Key
+    | Incrementer Nav.Key
+    | Decrementer Nav.Key
+init : () -> Url -> Nav.Key -> ( Model, Cmd Msg )
+init _ url key =
+    ( loadPage url
+        { count = 0
+        , page = NotFound key
+        }
+    , Cmd.none
+    )
+type Msg
+    = Increment
+    | Decrement
+    | LinkClicked UrlRequest
+    | UrlChanged Url
+update : Msg -> Model -> ( Model, Cmd Msg )
+update msg model =
+    case msg of
+        Increment ->
+            ( { model | count = model.count + 1 }
+            , Cmd.none
+            )
+        Decrement ->
+            ( { model | count = model.count - 1 }
+            , Cmd.none
+            )
+        LinkClicked req ->
+            case req of
+                Browser.Internal url ->
+                    ( model, Nav.pushUrl (getKey model.page) (Url.toString url) )
+                Browser.External href ->
+                    ( model, Nav.load href )
+        UrlChanged url ->
+            ( loadPage url model
+            , Cmd.none
+            )
+getKey : Page -> Nav.Key
+getKey page =
+    case page of
+        NotFound key ->
+            key
+        Incrementer key ->
+            key
+        Decrementer key ->
+            key
+loadPage : Url -> Model -> Model
+loadPage url model =
+    { model
+        | page =
+            case url.fragment of
+                Nothing ->
+                    Incrementer (getKey model.page)
+                Just "/incrementer" ->
+                    Incrementer (getKey model.page)
+                Just "/decrementer" ->
+                    Decrementer (getKey model.page)
+                _ ->
+                    NotFound (getKey model.page)
+    }
+view : Model -> Browser.Document Msg
+view model =
+    let
+        pageBody =
+            case model.page of
+                Incrementer _ ->
+                    div [ id "incrementer" ]
+                        [ h1 [] [ text "Incrementer" ]
+                        , p []
+                            [ text "Counter value is: "
+                            , span [ id "counter-value" ] [ text (String.fromInt model.count) ]
+                            ]
+                        , button [ onClick Increment, id "counter-button" ] [ text "+" ]
+                        , p [] [ text "Switch to ", a [ id "nav-decrement", href "#/decrementer" ] [ text "decrementer" ] ]
+                        ]
+                Decrementer _ ->
+                    div [ id "decrementer" ]
+                        [ h1 [] [ text "Decrementer" ]
+                        , p []
+                            [ text "Counter value is: "
+                            , span [ id "counter-value" ] [ text (String.fromInt model.count) ]
+                            ]
+                        , button [ onClick Decrement, id "counter-button" ] [ text "-" ]
+                        , p [] [ text "Switch to ", a [ id "nav-increment", href "#/incrementer" ] [ text "incrementer" ] ]
+                        ]
+                NotFound _ ->
+                    text "Page not found"
+    in
+    { title = "BrowserApplicationCounterMultiKey"
+    , body =
+        [ span [ id "code-version" ] [ text "code: v1" ]
+        , pageBody
+        ]
+    }

package/test/fixtures/BrowserApplicationCounterMultiKey.html ADDED Viewed

@@ -0,0 +1,22 @@
+<!DOCTYPE HTML>
+<html>
+<head>
+  <meta charset="UTF-8">
+  <title>Main</title>
+  <script type="text/javascript" src="client.js"></script>
+  <script type="text/javascript" src="build/BrowserApplicationCounterMultiKey.js"></script>
+</head>
+<body>
+  <script>
+    connect("BrowserApplicationCounterMultiKey");
+    Elm.BrowserApplicationCounterMultiKey.init({
+      flags: {
+        n: 0
+      }
+    });
+  </script>
+</body>
+</html>

package/test/fixtures/BrowserApplicationMissingNavKeyError.elm ADDED Viewed

@@ -0,0 +1,62 @@
+module BrowserApplicationMissingNavKeyError exposing
+    ( Model
+    , Msg(..)
+    , init
+    , main
+    , update
+    , view
+    )
+import Browser
+import Browser.Navigation
+import Html exposing (text)
+import Url
+{-
+   This example is only intended to verify that we gracefully handle
+   the case where the `Browser.Navigation.Key` cannot be found in the model.
+   See https://github.com/klazuka/elm-hot/issues/15 for more details.
+-}
+main : Program () Model Msg
+main =
+    Browser.application
+        { view = view
+        , init = init
+        , update = update
+        , subscriptions = always Sub.none
+        , onUrlChange = always NoOp
+        , onUrlRequest = always NoOp
+        }
+type Model
+    = FooBar
+init : () -> Url.Url -> Browser.Navigation.Key -> ( Model, Cmd Msg )
+init _ _ _ =
+    -- IMPORTANT: do not store the nav key in the model
+    ( FooBar, Cmd.none )
+type Msg
+    = NoOp
+update : Msg -> Model -> ( Model, Cmd Msg )
+update _ model =
+    ( model, Cmd.none )
+view : Model -> Browser.Document Msg
+view _ =
+    { title = ""
+    , body = [ text "hi" ]
+    }

package/test/fixtures/BrowserApplicationMissingNavKeyError.html ADDED Viewed

@@ -0,0 +1,22 @@
+<!DOCTYPE HTML>
+<html>
+<head>
+  <meta charset="UTF-8">
+  <title>Main</title>
+  <script type="text/javascript" src="client.js"></script>
+  <script type="text/javascript" src="build/BrowserApplicationMissingNavKeyError.js"></script>
+</head>
+<body>
+  <script>
+    connect("BrowserApplicationMissingNavKeyError");
+    Elm.BrowserApplicationMissingNavKeyError.init({
+      flags: {
+        n: 0
+      }
+    });
+  </script>
+</body>
+</html>