@curtissimo/elm-hot 1.1.7

package/test/fixtures/BrowserApplicationNavKeyMoved.elm

@@ -0,0 +1,159 @@
+module BrowserApplicationNavKeyMoved 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 and nest the navigation key in one variant so that we can handle cases where the "shape"
+of a page varies (see <https://github.com/klazuka/elm-hot/issues/35>)
+-}
+type Page
+    = NotFound Nav.Key
+    | Incrementer Nav.Key
+    | Decrementer { navKey : 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 { navKey } ->
+            navKey
+
+
+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 { navKey = 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/BrowserApplicationNavKeyMoved.html

@@ -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/BrowserApplicationNavKeyMoved.js"></script>
+</head>
+
+<body>
+  <script>
+    connect("BrowserApplicationNavKeyMoved");
+    Elm.BrowserApplicationNavKeyMoved.init({
+      flags: {
+        n: 0
+      }
+    });
+  </script>
+</body>
+
+</html>

package/test/fixtures/BrowserApplicationWithNull.elm

@@ -0,0 +1,142 @@
+module BrowserApplicationWithNull 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 Json.Encode
+import Url exposing (Url)
+
+
+main : Program Flags Model Msg
+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
+    , foo : Json.Encode.Value
+    , nav : { key : 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
+        , foo = Json.Encode.null
+        , nav = { key = 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.nav.key (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 = "BrowserApplicationCounter"
+    , body =
+        [ span [ id "code-version" ] [ text "code: v1" ]
+        , pageBody
+        ]
+    }

package/test/fixtures/BrowserApplicationWithNull.html

@@ -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/BrowserApplicationWithNull.js"></script>
+</head>
+
+<body>
+  <script>
+    connect("BrowserApplicationWithNull");
+    Elm.BrowserApplicationWithNull.init({
+      flags: {
+        n: 0
+      }
+    });
+  </script>
+</body>
+
+</html>

package/test/fixtures/BrowserDocumentCounter.elm

@@ -0,0 +1,57 @@
+module BrowserDocumentCounter exposing (..)
+
+import Browser
+import Html exposing (button, h1, p, span, text)
+import Html.Attributes exposing (id)
+import Html.Events exposing (onClick)
+
+
+main : Program Flags Model Msg
+main =
+    Browser.document
+        { init = init
+        , view = view
+        , update = update
+        , subscriptions = \_ -> Sub.none
+        }
+
+
+type alias Flags =
+    { n : Int }
+
+
+type alias Model =
+    { count : Int }
+
+
+init : Flags -> ( Model, Cmd Msg )
+init flags =
+    ( { count = flags.n }, Cmd.none )
+
+
+type Msg
+    = Increment
+
+
+update : Msg -> Model -> ( Model, Cmd Msg )
+update msg model =
+    case msg of
+        Increment ->
+            ( { model | count = model.count + 1 }
+            , Cmd.none
+            )
+
+
+view : Model -> Browser.Document Msg
+view model =
+    { title = "BrowserDocumentCounter"
+    , body =
+        [ h1 [] [ text "BrowserDocumentCounter" ]
+        , span [ id "code-version" ] [ text "code: v1" ]
+        , p []
+            [ text "Counter value is: "
+            , span [ id "counter-value" ] [ text (String.fromInt model.count) ]
+            ]
+        , button [ onClick Increment, id "counter-button" ] [ text "+" ]
+        ]
+    }

package/test/fixtures/BrowserDocumentCounter.html

@@ -0,0 +1,24 @@
+<!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/BrowserDocumentCounter.js"></script>
+</head>
+
+<body>
+  <div id="ignored"></div>
+  <script>
+    connect("BrowserDocumentCounter");
+    Elm.BrowserDocumentCounter.init({
+      node: "ignored", // this should be ignored by HMR: see https://github.com/klazuka/elm-hot/issues/14
+      flags: {
+        n: 0
+      }
+    });
+  </script>
+</body>
+
+</html>

package/test/fixtures/BrowserElementCounter.elm

@@ -0,0 +1,55 @@
+module BrowserElementCounter exposing (..)
+
+import Browser
+import Html exposing (Html, button, div, h1, p, span, text)
+import Html.Attributes exposing (id)
+import Html.Events exposing (onClick)
+
+
+main : Program Flags Model Msg
+main =
+    Browser.element
+        { init = init
+        , view = view
+        , update = update
+        , subscriptions = \_ -> Sub.none
+        }
+
+
+type alias Flags =
+    { n : Int }
+
+
+type alias Model =
+    { count : Int }
+
+
+init : Flags -> ( Model, Cmd Msg )
+init flags =
+    ( { count = flags.n }, Cmd.none )
+
+
+type Msg
+    = Increment
+
+
+update : Msg -> Model -> ( Model, Cmd Msg )
+update msg model =
+    case msg of
+        Increment ->
+            ( { model | count = model.count + 1 }
+            , Cmd.none
+            )
+
+
+view : Model -> Html Msg
+view model =
+    div []
+        [ h1 [] [ text "BrowserElementCounter" ]
+        , span [ id "code-version" ] [ text "code: v1" ]
+        , p []
+            [ text "Counter value is: "
+            , span [ id "counter-value" ] [ text (String.fromInt model.count) ]
+            ]
+        , button [ onClick Increment, id "counter-button" ] [ text "+" ]
+        ]

package/test/fixtures/BrowserElementCounter.html

@@ -0,0 +1,24 @@
+<!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/BrowserElementCounter.js"></script>
+</head>
+
+<body>
+  <div id="embed">to be filled out later</div>
+  <script>
+    connect("BrowserElementCounter");
+    Elm.BrowserElementCounter.init({
+      node: document.getElementById('embed'),
+      flags: {
+        n: 0
+      }
+    });
+  </script>
+</body>
+
+</html>

package/test/fixtures/BrowserSandboxCounter.elm

@@ -0,0 +1,48 @@
+module BrowserSandboxCounter exposing (..)
+
+import Browser
+import Html exposing (Html, button, div, h1, p, span, text)
+import Html.Attributes exposing (id)
+import Html.Events exposing (onClick)
+
+
+main : Program () Model Msg
+main =
+    Browser.sandbox
+        { init = init
+        , view = view
+        , update = update
+        }
+
+
+type alias Model =
+    { count : Int }
+
+
+init : Model
+init =
+    { count = 0 }
+
+
+type Msg
+    = Increment
+
+
+update : Msg -> Model -> Model
+update msg model =
+    case msg of
+        Increment ->
+            { model | count = model.count + 1 }
+
+
+view : Model -> Html Msg
+view model =
+    div []
+        [ h1 [] [ text "BrowserSandboxCounter" ]
+        , span [ id "code-version" ] [ text "code: v1" ]
+        , p []
+            [ text "Counter value is: "
+            , span [ id "counter-value" ] [ text (String.fromInt model.count) ]
+            ]
+        , button [ onClick Increment, id "counter-button" ] [ text "+" ]
+        ]

package/test/fixtures/BrowserSandboxCounter.html

@@ -0,0 +1,21 @@
+<!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/BrowserSandboxCounter.js"></script>
+</head>
+
+<body>
+  <div id="embed">to be filled out later</div>
+  <script>
+    connect("BrowserSandboxCounter");
+    Elm.BrowserSandboxCounter.init({
+      node: document.getElementById('embed')
+    });
+  </script>
+</body>
+
+</html>