mirror of
https://github.com/dillonkearns/elm-pages.git
synced 2024-10-26 10:27:36 +03:00
Move Pages.Msg -> PagesMsg and Pages.Msg.Msg -> PagesMsg.PagesMsg.
This commit is contained in:
parent
c418b536c0
commit
c53c09aa31
@ -17,21 +17,18 @@ import Gen.Bytes.Encode
|
|||||||
import Gen.Dict
|
import Gen.Dict
|
||||||
import Gen.Head
|
import Gen.Head
|
||||||
import Gen.Html
|
import Gen.Html
|
||||||
import Gen.HtmlPrinter
|
|
||||||
import Gen.Json.Decode
|
import Gen.Json.Decode
|
||||||
import Gen.Json.Encode
|
import Gen.Json.Encode
|
||||||
import Gen.List
|
import Gen.List
|
||||||
import Gen.Maybe
|
import Gen.Maybe
|
||||||
import Gen.Pages.Fetcher
|
import Gen.Pages.Fetcher
|
||||||
import Gen.Pages.Flags
|
|
||||||
import Gen.Pages.FormState
|
import Gen.Pages.FormState
|
||||||
import Gen.Pages.Internal.NotFoundReason
|
import Gen.Pages.Internal.NotFoundReason
|
||||||
import Gen.Pages.Internal.Platform
|
import Gen.Pages.Internal.Platform
|
||||||
import Gen.Pages.Internal.Platform.Cli
|
import Gen.Pages.Internal.Platform.Cli
|
||||||
import Gen.Pages.Internal.RoutePattern
|
import Gen.Pages.Internal.RoutePattern
|
||||||
import Gen.Pages.Msg
|
|
||||||
import Gen.Pages.ProgramConfig
|
|
||||||
import Gen.Pages.Transition
|
import Gen.Pages.Transition
|
||||||
|
import Gen.PagesMsg
|
||||||
import Gen.Path
|
import Gen.Path
|
||||||
import Gen.Platform.Sub
|
import Gen.Platform.Sub
|
||||||
import Gen.QueryParams
|
import Gen.QueryParams
|
||||||
@ -291,14 +288,14 @@ otherFile routes phaseString =
|
|||||||
, model |> Elm.get "global"
|
, model |> Elm.get "global"
|
||||||
, Elm.fn ( "myMsg", Nothing )
|
, Elm.fn ( "myMsg", Nothing )
|
||||||
(\myMsg ->
|
(\myMsg ->
|
||||||
Gen.Pages.Msg.fromMsg
|
Gen.PagesMsg.fromMsg
|
||||||
(Elm.apply (Elm.val "MsgGlobal") [ myMsg ])
|
(Elm.apply (Elm.val "MsgGlobal") [ myMsg ])
|
||||||
)
|
)
|
||||||
, Elm.apply
|
, Elm.apply
|
||||||
(Elm.value { importFrom = [ "View" ], name = "map", annotation = Nothing })
|
(Elm.value { importFrom = [ "View" ], name = "map", annotation = Nothing })
|
||||||
[ Elm.functionReduced "myMsg"
|
[ Elm.functionReduced "myMsg"
|
||||||
(\myMsg ->
|
(\myMsg ->
|
||||||
Gen.Pages.Msg.fromMsg
|
Gen.PagesMsg.fromMsg
|
||||||
(Elm.apply (Elm.val "MsgErrorPage____") [ myMsg ])
|
(Elm.apply (Elm.val "MsgErrorPage____") [ myMsg ])
|
||||||
)
|
)
|
||||||
, Elm.apply
|
, Elm.apply
|
||||||
@ -357,14 +354,14 @@ otherFile routes phaseString =
|
|||||||
, model |> Elm.get "global"
|
, model |> Elm.get "global"
|
||||||
, Elm.fn ( "myMsg", Nothing )
|
, Elm.fn ( "myMsg", Nothing )
|
||||||
(\myMsg ->
|
(\myMsg ->
|
||||||
Gen.Pages.Msg.fromMsg
|
Gen.PagesMsg.fromMsg
|
||||||
(Elm.apply (Elm.val "MsgGlobal") [ myMsg ])
|
(Elm.apply (Elm.val "MsgGlobal") [ myMsg ])
|
||||||
)
|
)
|
||||||
, Elm.apply
|
, Elm.apply
|
||||||
(Elm.value { importFrom = [ "View" ], name = "map", annotation = Nothing })
|
(Elm.value { importFrom = [ "View" ], name = "map", annotation = Nothing })
|
||||||
[ Elm.functionReduced
|
[ Elm.functionReduced
|
||||||
"innerPageMsg"
|
"innerPageMsg"
|
||||||
(Gen.Pages.Msg.call_.map (route |> routeVariantExpression Msg))
|
(Gen.PagesMsg.call_.map (route |> routeVariantExpression Msg))
|
||||||
, Elm.apply (route |> routeTemplateFunction "view")
|
, Elm.apply (route |> routeTemplateFunction "view")
|
||||||
[ maybePageUrl
|
[ maybePageUrl
|
||||||
, model |> Elm.get "global"
|
, model |> Elm.get "global"
|
||||||
@ -479,7 +476,7 @@ otherFile routes phaseString =
|
|||||||
[ ( "title", Type.string )
|
[ ( "title", Type.string )
|
||||||
, ( "body"
|
, ( "body"
|
||||||
, Gen.Html.annotation_.html
|
, Gen.Html.annotation_.html
|
||||||
(Gen.Pages.Msg.annotation_.msg (Type.named [] "Msg"))
|
(Gen.PagesMsg.annotation_.pagesMsg (Type.named [] "Msg"))
|
||||||
|> Type.list
|
|> Type.list
|
||||||
)
|
)
|
||||||
]
|
]
|
||||||
|
2
elm.json
2
elm.json
@ -25,7 +25,7 @@
|
|||||||
"Server.Session",
|
"Server.Session",
|
||||||
"Server.SetCookie",
|
"Server.SetCookie",
|
||||||
"Server.Response",
|
"Server.Response",
|
||||||
"Pages.Msg",
|
"PagesMsg",
|
||||||
"Pages.Manifest",
|
"Pages.Manifest",
|
||||||
"Pages.Manifest.Category",
|
"Pages.Manifest.Category",
|
||||||
"Pages.Flags",
|
"Pages.Flags",
|
||||||
|
@ -6,7 +6,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html.Styled as Html exposing (text)
|
import Html.Styled as Html exposing (text)
|
||||||
import Html.Styled.Attributes as Attr
|
import Html.Styled.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path
|
import Path
|
||||||
@ -74,7 +74,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Index page"
|
{ title = "Index page"
|
||||||
, body =
|
, body =
|
||||||
|
@ -8,7 +8,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html.Styled as Html exposing (..)
|
import Html.Styled as Html exposing (..)
|
||||||
import Html.Styled.Attributes as Attr
|
import Html.Styled.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path
|
import Path
|
||||||
@ -75,7 +75,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = ""
|
{ title = ""
|
||||||
, body =
|
, body =
|
||||||
|
@ -22,8 +22,8 @@ import Html exposing (Html)
|
|||||||
import Html.Attributes
|
import Html.Attributes
|
||||||
import Json.Decode as Decode exposing (Decoder)
|
import Json.Decode as Decode exposing (Decoder)
|
||||||
import Json.Encode as Encode
|
import Json.Encode as Encode
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl
|
import Pages.PageUrl
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Path
|
import Path
|
||||||
import Platform.Sub
|
import Platform.Sub
|
||||||
import Post exposing (Post)
|
import Post exposing (Post)
|
||||||
@ -145,7 +145,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
||||||
-> View.View (Pages.Msg.Msg Msg)
|
-> View.View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
{ title =
|
{ title =
|
||||||
if app.routeParams.slug == "new" then
|
if app.routeParams.slug == "new" then
|
||||||
@ -335,7 +335,7 @@ buttonWithTransition attributes initialText transitioningText formState =
|
|||||||
errorsView :
|
errorsView :
|
||||||
Form.Errors String
|
Form.Errors String
|
||||||
-> Form.Validation.Field String parsed kind
|
-> Form.Validation.Field String parsed kind
|
||||||
-> Html.Html (Pages.Msg.Msg Msg)
|
-> Html.Html (PagesMsg Msg)
|
||||||
errorsView errors field =
|
errorsView errors field =
|
||||||
if List.isEmpty (Form.errorsForField field errors) then
|
if List.isEmpty (Form.errorsForField field errors) then
|
||||||
Html.div [] []
|
Html.div [] []
|
||||||
|
@ -8,9 +8,9 @@ import Head.Seo as Seo
|
|||||||
import Html
|
import Html
|
||||||
import Json.Decode as Decode
|
import Json.Decode as Decode
|
||||||
import Json.Encode as Encode
|
import Json.Encode as Encode
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Post exposing (Post)
|
import Post exposing (Post)
|
||||||
import Route
|
import Route
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
@ -83,7 +83,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel app =
|
view maybeUrl sharedModel app =
|
||||||
{ title = "Index page"
|
{ title = "Index page"
|
||||||
, body =
|
, body =
|
||||||
|
@ -18,8 +18,8 @@ import Json.Encode as Encode
|
|||||||
import Markdown.Block exposing (Block)
|
import Markdown.Block exposing (Block)
|
||||||
import Markdown.Parser
|
import Markdown.Parser
|
||||||
import Markdown.Renderer
|
import Markdown.Renderer
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl
|
import Pages.PageUrl
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Path
|
import Path
|
||||||
import Platform.Sub
|
import Platform.Sub
|
||||||
import Post
|
import Post
|
||||||
@ -143,7 +143,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
||||||
-> View.View (Pages.Msg.Msg Msg)
|
-> View.View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
{ title = "Posts.Slug_"
|
{ title = "Posts.Slug_"
|
||||||
, body =
|
, body =
|
||||||
|
@ -664,7 +664,7 @@
|
|||||||
"input",
|
"input",
|
||||||
"msg"
|
"msg"
|
||||||
],
|
],
|
||||||
"type": "Form.Form error { combine : Form.Validation.Combined error parsed, view : Form.Context error input -> List.List (Html.Html (Pages.Msg.Msg msg)) } input"
|
"type": "Form.Form error { combine : Form.Validation.Combined error parsed, view : Form.Context error input -> List.List (Html.Html (PagesMsg msg)) } input"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
"name": "StyledHtmlForm",
|
"name": "StyledHtmlForm",
|
||||||
@ -675,7 +675,7 @@
|
|||||||
"data",
|
"data",
|
||||||
"msg"
|
"msg"
|
||||||
],
|
],
|
||||||
"type": "Form.Form error { combine : Form.Validation.Combined error parsed, view : Form.Context error data -> List.List (Html.Styled.Html (Pages.Msg.Msg msg)) } data"
|
"type": "Form.Form error { combine : Form.Validation.Combined error parsed, view : Form.Context error data -> List.List (Html.Styled.Html (PagesMsg msg)) } data"
|
||||||
}
|
}
|
||||||
],
|
],
|
||||||
"values": [
|
"values": [
|
||||||
@ -737,12 +737,12 @@
|
|||||||
{
|
{
|
||||||
"name": "renderHtml",
|
"name": "renderHtml",
|
||||||
"comment": " ",
|
"comment": " ",
|
||||||
"type": "List.List (Html.Attribute (Pages.Msg.Msg msg)) -> Maybe.Maybe { fields : List.List ( String.String, String.String ), errors : Dict.Dict String.String (List.List error) } -> Form.AppContext app actionData -> data -> Form.FinalForm error (Pages.Internal.Form.Validation error parsed named constraints) data (Form.Context error data -> List.List (Html.Html (Pages.Msg.Msg msg))) msg -> Html.Html (Pages.Msg.Msg msg)"
|
"type": "List.List (Html.Attribute (PagesMsg msg)) -> Maybe.Maybe { fields : List.List ( String.String, String.String ), errors : Dict.Dict String.String (List.List error) } -> Form.AppContext app actionData -> data -> Form.FinalForm error (Pages.Internal.Form.Validation error parsed named constraints) data (Form.Context error data -> List.List (Html.Html (PagesMsg msg))) msg -> Html.Html (PagesMsg msg)"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
"name": "renderStyledHtml",
|
"name": "renderStyledHtml",
|
||||||
"comment": " ",
|
"comment": " ",
|
||||||
"type": "List.List (Html.Styled.Attribute (Pages.Msg.Msg msg)) -> Maybe.Maybe { fields : List.List ( String.String, String.String ), errors : Dict.Dict String.String (List.List error) } -> Form.AppContext app actionData -> data -> Form.FinalForm error (Pages.Internal.Form.Validation error parsed named constraints) data (Form.Context error data -> List.List (Html.Styled.Html (Pages.Msg.Msg msg))) msg -> Html.Styled.Html (Pages.Msg.Msg msg)"
|
"type": "List.List (Html.Styled.Attribute (PagesMsg msg)) -> Maybe.Maybe { fields : List.List ( String.String, String.String ), errors : Dict.Dict String.String (List.List error) } -> Form.AppContext app actionData -> data -> Form.FinalForm error (Pages.Internal.Form.Validation error parsed named constraints) data (Form.Context error data -> List.List (Html.Styled.Html (PagesMsg msg))) msg -> Html.Styled.Html (PagesMsg msg)"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
"name": "runOneOfServerSide",
|
"name": "runOneOfServerSide",
|
||||||
@ -1716,7 +1716,7 @@
|
|||||||
{
|
{
|
||||||
"name": "listeners",
|
"name": "listeners",
|
||||||
"comment": " ",
|
"comment": " ",
|
||||||
"type": "String.String -> List.List (Html.Attribute (Pages.Msg.Msg userMsg))"
|
"type": "String.String -> List.List (Html.Attribute (PagesMsg userMsg))"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
"name": "setField",
|
"name": "setField",
|
||||||
@ -1962,7 +1962,7 @@
|
|||||||
[
|
[
|
||||||
"UserMsg",
|
"UserMsg",
|
||||||
[
|
[
|
||||||
"Pages.Msg.Msg userMsg"
|
"PagesMsg userMsg"
|
||||||
]
|
]
|
||||||
],
|
],
|
||||||
[
|
[
|
||||||
@ -2791,22 +2791,22 @@
|
|||||||
{
|
{
|
||||||
"name": "fetcherOnSubmit",
|
"name": "fetcherOnSubmit",
|
||||||
"comment": " ",
|
"comment": " ",
|
||||||
"type": "Maybe.Maybe ({ fields : List.List ( String.String, String.String ) } -> userMsg) -> String.String -> (List.List ( String.String, String.String ) -> Basics.Bool) -> Html.Attribute (Pages.Msg.Msg userMsg)"
|
"type": "Maybe.Maybe ({ fields : List.List ( String.String, String.String ) } -> userMsg) -> String.String -> (List.List ( String.String, String.String ) -> Basics.Bool) -> Html.Attribute (PagesMsg userMsg)"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
"name": "map",
|
"name": "map",
|
||||||
"comment": " ",
|
"comment": " ",
|
||||||
"type": "(a -> b) -> Pages.Msg.Msg a -> Pages.Msg.Msg b"
|
"type": "(a -> b) -> PagesMsg a -> PagesMsg b"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
"name": "onSubmit",
|
"name": "onSubmit",
|
||||||
"comment": " ",
|
"comment": " ",
|
||||||
"type": "Html.Attribute (Pages.Msg.Msg userMsg)"
|
"type": "Html.Attribute (PagesMsg userMsg)"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
"name": "submitIfValid",
|
"name": "submitIfValid",
|
||||||
"comment": " ",
|
"comment": " ",
|
||||||
"type": "String.String -> (List.List ( String.String, String.String ) -> Basics.Bool) -> Html.Attribute (Pages.Msg.Msg userMsg)"
|
"type": "String.String -> (List.List ( String.String, String.String ) -> Basics.Bool) -> Html.Attribute (PagesMsg userMsg)"
|
||||||
}
|
}
|
||||||
],
|
],
|
||||||
"binops": []
|
"binops": []
|
||||||
|
@ -17,7 +17,7 @@ import Json.Decode.Extra
|
|||||||
import Markdown.Block
|
import Markdown.Block
|
||||||
import Markdown.Renderer
|
import Markdown.Renderer
|
||||||
import MarkdownCodec
|
import MarkdownCodec
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path
|
import Path
|
||||||
@ -68,7 +68,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = static.data.metadata.title
|
{ title = static.data.metadata.title
|
||||||
, body =
|
, body =
|
||||||
|
@ -18,7 +18,7 @@ import Markdown.Parser
|
|||||||
import Markdown.Renderer
|
import Markdown.Renderer
|
||||||
import MarkdownCodec
|
import MarkdownCodec
|
||||||
import NextPrevious
|
import NextPrevious
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||||
@ -203,7 +203,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = static.data.titles.title ++ " - elm-pages docs"
|
{ title = static.data.titles.title ++ " - elm-pages docs"
|
||||||
, body =
|
, body =
|
||||||
|
@ -8,7 +8,7 @@ import Head.Seo as Seo
|
|||||||
import Html.Styled as Html exposing (..)
|
import Html.Styled as Html exposing (..)
|
||||||
import Html.Styled.Attributes as Attr exposing (css)
|
import Html.Styled.Attributes as Attr exposing (css)
|
||||||
import Link
|
import Link
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path
|
import Path
|
||||||
@ -77,7 +77,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "elm-pages - a statically typed site generator"
|
{ title = "elm-pages - a statically typed site generator"
|
||||||
, body =
|
, body =
|
||||||
|
@ -7,7 +7,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html.Styled exposing (..)
|
import Html.Styled exposing (..)
|
||||||
import Html.Styled.Attributes as Attr exposing (css, href)
|
import Html.Styled.Attributes as Attr exposing (css, href)
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path
|
import Path
|
||||||
@ -57,7 +57,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData {}
|
-> StaticPayload Data ActionData {}
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "elm-pages blog"
|
{ title = "elm-pages blog"
|
||||||
, body =
|
, body =
|
||||||
|
@ -4,9 +4,9 @@ import BackendTask exposing (BackendTask)
|
|||||||
import FatalError exposing (FatalError)
|
import FatalError exposing (FatalError)
|
||||||
import Head
|
import Head
|
||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Shared
|
import Shared
|
||||||
import View exposing (View)
|
import View exposing (View)
|
||||||
@ -76,6 +76,6 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
View.placeholder "Blog.Slug_"
|
View.placeholder "Blog.Slug_"
|
||||||
|
@ -5,8 +5,8 @@ import ErrorPage exposing (ErrorPage)
|
|||||||
import FatalError exposing (FatalError)
|
import FatalError exposing (FatalError)
|
||||||
import Head
|
import Head
|
||||||
import Html.Styled exposing (text)
|
import Html.Styled exposing (text)
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Server.Request as Request exposing (Parser)
|
import Server.Request as Request exposing (Parser)
|
||||||
import Server.Response as Response exposing (Response)
|
import Server.Response as Response exposing (Response)
|
||||||
@ -68,7 +68,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Cookie test"
|
{ title = "Cookie test"
|
||||||
, body =
|
, body =
|
||||||
|
@ -7,9 +7,9 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html.Styled as Html
|
import Html.Styled as Html
|
||||||
import Http
|
import Http
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Shared
|
import Shared
|
||||||
@ -115,7 +115,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = "Counter"
|
{ title = "Counter"
|
||||||
, body =
|
, body =
|
||||||
|
@ -14,8 +14,8 @@ import Form.Value as Value
|
|||||||
import Head
|
import Head
|
||||||
import Html.Styled as Html
|
import Html.Styled as Html
|
||||||
import Html.Styled.Attributes exposing (css)
|
import Html.Styled.Attributes exposing (css)
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl
|
import Pages.PageUrl
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Platform.Sub
|
import Platform.Sub
|
||||||
import RouteBuilder
|
import RouteBuilder
|
||||||
import Server.Request
|
import Server.Request
|
||||||
@ -201,7 +201,7 @@ view :
|
|||||||
-> sharedModel
|
-> sharedModel
|
||||||
-> Model
|
-> Model
|
||||||
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
||||||
-> View.View (Pages.Msg.Msg Msg)
|
-> View.View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
{ title = "DarkMode"
|
{ title = "DarkMode"
|
||||||
, body =
|
, body =
|
||||||
|
@ -16,9 +16,9 @@ import Html.Styled as Html
|
|||||||
import Html.Styled.Attributes as Attr
|
import Html.Styled.Attributes as Attr
|
||||||
import Json.Decode as Decode
|
import Json.Decode as Decode
|
||||||
import Json.Encode as Encode
|
import Json.Encode as Encode
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl
|
import Pages.PageUrl
|
||||||
import Pages.Transition exposing (FetcherSubmitStatus(..))
|
import Pages.Transition exposing (FetcherSubmitStatus(..))
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Platform.Sub
|
import Platform.Sub
|
||||||
import RouteBuilder
|
import RouteBuilder
|
||||||
import Server.Request
|
import Server.Request
|
||||||
@ -196,7 +196,7 @@ view :
|
|||||||
-> sharedModel
|
-> sharedModel
|
||||||
-> Model
|
-> Model
|
||||||
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
||||||
-> View.View (Pages.Msg.Msg Msg)
|
-> View.View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
let
|
let
|
||||||
inFlight : List Action
|
inFlight : List Action
|
||||||
|
@ -8,9 +8,9 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html.Styled exposing (text)
|
import Html.Styled exposing (text)
|
||||||
import Json.Decode as Decode
|
import Json.Decode as Decode
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Shared
|
import Shared
|
||||||
import View exposing (View)
|
import View exposing (View)
|
||||||
@ -78,7 +78,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Index page"
|
{ title = "Index page"
|
||||||
, body =
|
, body =
|
||||||
|
@ -14,9 +14,9 @@ import Head.Seo as Seo
|
|||||||
import Html exposing (Html)
|
import Html exposing (Html)
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Html.Styled
|
import Html.Styled
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||||
import Server.Request as Request exposing (Parser)
|
import Server.Request as Request exposing (Parser)
|
||||||
import Server.Response
|
import Server.Response
|
||||||
@ -222,7 +222,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
let
|
let
|
||||||
user : User
|
user : User
|
||||||
|
@ -11,8 +11,8 @@ import Head
|
|||||||
import Html exposing (Html)
|
import Html exposing (Html)
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Html.Styled
|
import Html.Styled
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||||
import Server.Request as Request exposing (Parser)
|
import Server.Request as Request exposing (Parser)
|
||||||
import Server.Response
|
import Server.Response
|
||||||
@ -120,7 +120,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel app =
|
view maybeUrl sharedModel app =
|
||||||
{ title = "GET Form Example"
|
{ title = "GET Form Example"
|
||||||
, body =
|
, body =
|
||||||
|
@ -9,9 +9,9 @@ import Head.Seo as Seo
|
|||||||
import Html.Styled as Html exposing (Html)
|
import Html.Styled as Html exposing (Html)
|
||||||
import Html.Styled.Attributes as Attr
|
import Html.Styled.Attributes as Attr
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Server.Request as Request
|
import Server.Request as Request
|
||||||
import Server.Response as Response exposing (Response)
|
import Server.Response as Response exposing (Response)
|
||||||
@ -151,7 +151,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = "Hello!"
|
{ title = "Hello!"
|
||||||
, body =
|
, body =
|
||||||
|
@ -5,9 +5,9 @@ import ErrorPage exposing (ErrorPage)
|
|||||||
import FatalError exposing (FatalError)
|
import FatalError exposing (FatalError)
|
||||||
import Head
|
import Head
|
||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Server.Request as Request
|
import Server.Request as Request
|
||||||
import Server.Response as Response exposing (Response)
|
import Server.Response as Response exposing (Response)
|
||||||
@ -74,6 +74,6 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
View.placeholder "Hello"
|
View.placeholder "Hello"
|
||||||
|
@ -13,9 +13,9 @@ import Html.Styled exposing (a, div, text)
|
|||||||
import Html.Styled.Attributes as Attr
|
import Html.Styled.Attributes as Attr
|
||||||
import Json.Decode as Decode
|
import Json.Decode as Decode
|
||||||
import Json.Encode as Encode
|
import Json.Encode as Encode
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Random
|
import Random
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Shared
|
import Shared
|
||||||
@ -94,7 +94,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel app =
|
view maybeUrl sharedModel app =
|
||||||
{ title = "Index page"
|
{ title = "Index page"
|
||||||
, body =
|
, body =
|
||||||
|
@ -6,9 +6,9 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html.Styled as Html exposing (text)
|
import Html.Styled as Html exposing (text)
|
||||||
import Html.Styled.Attributes as Attr
|
import Html.Styled.Attributes as Attr
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Shared
|
import Shared
|
||||||
import View exposing (View)
|
import View exposing (View)
|
||||||
@ -72,7 +72,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Links"
|
{ title = "Links"
|
||||||
, body =
|
, body =
|
||||||
|
@ -11,8 +11,8 @@ import Head
|
|||||||
import Html.Styled as Html exposing (Html)
|
import Html.Styled as Html exposing (Html)
|
||||||
import Html.Styled.Attributes as Attr
|
import Html.Styled.Attributes as Attr
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Route
|
import Route
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Server.Request as Request
|
import Server.Request as Request
|
||||||
@ -83,7 +83,7 @@ type alias Data =
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
form : Form.DoneForm String (BackendTask error (Combined String String)) data (List (Html (Pages.Msg.Msg Msg)))
|
form : Form.DoneForm String (BackendTask error (Combined String String)) data (List (Html (PagesMsg Msg)))
|
||||||
form =
|
form =
|
||||||
Form.init
|
Form.init
|
||||||
(\username ->
|
(\username ->
|
||||||
@ -202,7 +202,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Login"
|
{ title = "Login"
|
||||||
, body =
|
, body =
|
||||||
|
@ -6,9 +6,9 @@ import FatalError exposing (FatalError)
|
|||||||
import Head
|
import Head
|
||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Route
|
import Route
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Server.Request as Request
|
import Server.Request as Request
|
||||||
@ -90,6 +90,6 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
View.placeholder "Logout"
|
View.placeholder "Logout"
|
||||||
|
@ -7,9 +7,9 @@ import FatalError exposing (FatalError)
|
|||||||
import Form.FormData exposing (Method(..))
|
import Form.FormData exposing (Method(..))
|
||||||
import Head
|
import Head
|
||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
import Route
|
import Route
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
@ -126,6 +126,6 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> templateModel
|
-> templateModel
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
View.placeholder "Redirect"
|
View.placeholder "Redirect"
|
||||||
|
@ -6,8 +6,8 @@ import ErrorPage exposing (ErrorPage)
|
|||||||
import FatalError exposing (FatalError)
|
import FatalError exposing (FatalError)
|
||||||
import Head
|
import Head
|
||||||
import Html.Styled exposing (div, text)
|
import Html.Styled exposing (div, text)
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Server.Request as Request exposing (Parser)
|
import Server.Request as Request exposing (Parser)
|
||||||
import Server.Response as Response exposing (Response)
|
import Server.Response as Response exposing (Response)
|
||||||
@ -70,7 +70,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Basic Auth Test"
|
{ title = "Basic Auth Test"
|
||||||
, body =
|
, body =
|
||||||
|
@ -7,8 +7,8 @@ import ErrorPage exposing (ErrorPage)
|
|||||||
import FatalError exposing (FatalError)
|
import FatalError exposing (FatalError)
|
||||||
import Head
|
import Head
|
||||||
import Html.Styled exposing (div, text)
|
import Html.Styled exposing (div, text)
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Server.Request as Request exposing (Parser)
|
import Server.Request as Request exposing (Parser)
|
||||||
import Server.Response as Response exposing (Response)
|
import Server.Response as Response exposing (Response)
|
||||||
@ -106,7 +106,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Response Headers Test"
|
{ title = "Response Headers Test"
|
||||||
, body =
|
, body =
|
||||||
|
@ -203,7 +203,7 @@ errorsView :
|
|||||||
}
|
}
|
||||||
errorsView =
|
errorsView =
|
||||||
Elm.Declare.fn2 "errorsView"
|
Elm.Declare.fn2 "errorsView"
|
||||||
--errorsView : Form.Errors String -> Validation.Field String parsed kind -> Html.Styled.Html (Pages.Msg.Msg Msg)
|
--errorsView : Form.Errors String -> Validation.Field String parsed kind -> Html.Styled.Html (PagesMsg Msg)
|
||||||
( "errors", Elm.Annotation.namedWith [ "Form" ] "Errors" [ Elm.Annotation.string ] |> Just )
|
( "errors", Elm.Annotation.namedWith [ "Form" ] "Errors" [ Elm.Annotation.string ] |> Just )
|
||||||
( "field"
|
( "field"
|
||||||
, Elm.Annotation.namedWith [ "Form", "Validation" ]
|
, Elm.Annotation.namedWith [ "Form", "Validation" ]
|
||||||
|
@ -11,7 +11,7 @@ import Html.Styled as Html exposing (..)
|
|||||||
import Html.Styled.Attributes as Attr
|
import Html.Styled.Attributes as Attr
|
||||||
import Html.Styled.Keyed as HtmlKeyed
|
import Html.Styled.Keyed as HtmlKeyed
|
||||||
import Html.Styled.Lazy as HtmlLazy
|
import Html.Styled.Lazy as HtmlLazy
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
@ -78,7 +78,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = ""
|
{ title = ""
|
||||||
, body =
|
, body =
|
||||||
|
@ -6,7 +6,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html.Styled as Html exposing (text)
|
import Html.Styled as Html exposing (text)
|
||||||
import Html.Styled.Attributes as Attr
|
import Html.Styled.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
@ -72,7 +72,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Index page"
|
{ title = "Index page"
|
||||||
, body =
|
, body =
|
||||||
|
@ -11,7 +11,7 @@ import Html exposing (Html)
|
|||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Json.Decode exposing (Decoder)
|
import Json.Decode exposing (Decoder)
|
||||||
import Json.Encode as Encode
|
import Json.Encode as Encode
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -182,7 +182,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = title static.routeParams
|
{ title = title static.routeParams
|
||||||
, body =
|
, body =
|
||||||
|
@ -11,7 +11,7 @@ import Html.Attributes as Attr
|
|||||||
import Html.Keyed
|
import Html.Keyed
|
||||||
import Json.Decode as Decode
|
import Json.Decode as Decode
|
||||||
import Json.Encode as Encode
|
import Json.Encode as Encode
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -132,7 +132,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = static.data.story |> Tuple.first |> (\(Item common _) -> common.title)
|
{ title = static.data.story |> Tuple.first |> (\(Item common _) -> common.title)
|
||||||
, body =
|
, body =
|
||||||
|
@ -6,7 +6,7 @@ import ErrorPage exposing (ErrorPage)
|
|||||||
import FatalError exposing (FatalError)
|
import FatalError exposing (FatalError)
|
||||||
import Head
|
import Head
|
||||||
import Html exposing (div, text)
|
import Html exposing (div, text)
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||||
import Server.Request as Request exposing (Parser)
|
import Server.Request as Request exposing (Parser)
|
||||||
@ -70,7 +70,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Basic Auth Test"
|
{ title = "Basic Auth Test"
|
||||||
, body =
|
, body =
|
||||||
|
@ -7,7 +7,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html
|
import Html
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||||
@ -87,7 +87,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "File Upload"
|
{ title = "File Upload"
|
||||||
, body =
|
, body =
|
||||||
|
@ -14,7 +14,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html exposing (Html)
|
import Html exposing (Html)
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||||
@ -232,7 +232,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel app =
|
view maybeUrl sharedModel app =
|
||||||
let
|
let
|
||||||
user : User
|
user : User
|
||||||
|
@ -9,7 +9,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html exposing (Html)
|
import Html exposing (Html)
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -117,7 +117,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = "Placeholder"
|
{ title = "Placeholder"
|
||||||
, body =
|
, body =
|
||||||
@ -136,7 +136,7 @@ view maybeUrl sharedModel model static =
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
exampleForm : Html (Pages.Msg.Msg Msg)
|
exampleForm : Html (PagesMsg Msg)
|
||||||
exampleForm =
|
exampleForm =
|
||||||
Html.form
|
Html.form
|
||||||
[ FormDecoder.formDataOnSubmit
|
[ FormDecoder.formDataOnSubmit
|
||||||
|
@ -9,7 +9,7 @@ import Head.Seo as Seo
|
|||||||
import Html exposing (Html)
|
import Html exposing (Html)
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||||
@ -123,7 +123,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Hello!"
|
{ title = "Hello!"
|
||||||
, body =
|
, body =
|
||||||
|
@ -9,7 +9,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html
|
import Html
|
||||||
import Http
|
import Http
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -134,7 +134,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = "Hello!"
|
{ title = "Hello!"
|
||||||
, body = [ Html.text "Hello" ]
|
, body = [ Html.text "Hello" ]
|
||||||
|
@ -8,7 +8,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html
|
import Html
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -127,7 +127,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = "Placeholder"
|
{ title = "Placeholder"
|
||||||
, body =
|
, body =
|
||||||
|
@ -9,7 +9,7 @@ import Head.Seo as Seo
|
|||||||
import Html exposing (..)
|
import Html exposing (..)
|
||||||
import Json.Decode as Decode exposing (Decoder)
|
import Json.Decode as Decode exposing (Decoder)
|
||||||
import Json.Encode
|
import Json.Encode
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Route
|
import Route
|
||||||
@ -84,7 +84,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Pokedex"
|
{ title = "Pokedex"
|
||||||
, body =
|
, body =
|
||||||
|
@ -11,7 +11,7 @@ import Head.Seo as Seo
|
|||||||
import Html as Html exposing (Html)
|
import Html as Html exposing (Html)
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Route
|
import Route
|
||||||
@ -145,7 +145,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Login"
|
{ title = "Login"
|
||||||
, body =
|
, body =
|
||||||
|
@ -9,7 +9,7 @@ import Head.Seo as Seo
|
|||||||
import Html exposing (..)
|
import Html exposing (..)
|
||||||
import Html.Attributes exposing (src)
|
import Html.Attributes exposing (src)
|
||||||
import Json.Decode as Decode
|
import Json.Decode as Decode
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
@ -133,7 +133,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = static.data.pokemon.name
|
{ title = static.data.pokemon.name
|
||||||
, body =
|
, body =
|
||||||
|
@ -8,7 +8,7 @@ import Head.Seo as Seo
|
|||||||
import Html
|
import Html
|
||||||
import Json.Decode as Decode
|
import Json.Decode as Decode
|
||||||
import Json.Encode as Encode
|
import Json.Encode as Encode
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
@ -63,7 +63,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Placeholder"
|
{ title = "Placeholder"
|
||||||
, body = [ Html.text static.data.portGreeting ]
|
, body = [ Html.text static.data.portGreeting ]
|
||||||
|
@ -5,7 +5,7 @@ import FatalError exposing (FatalError)
|
|||||||
import Head
|
import Head
|
||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html
|
import Html
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Route
|
import Route
|
||||||
@ -72,7 +72,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Placeholder"
|
{ title = "Placeholder"
|
||||||
, body =
|
, body =
|
||||||
|
@ -12,7 +12,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html exposing (Html)
|
import Html exposing (Html)
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -199,7 +199,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = "Search"
|
{ title = "Search"
|
||||||
, body =
|
, body =
|
||||||
|
@ -8,7 +8,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html
|
import Html
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Route
|
import Route
|
||||||
@ -106,7 +106,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
case static.data of
|
case static.data of
|
||||||
LoggedIn loggedInInfo ->
|
LoggedIn loggedInInfo ->
|
||||||
|
@ -16,7 +16,7 @@ import Html exposing (Html)
|
|||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Http
|
import Http
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -249,7 +249,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = "Signup"
|
{ title = "Signup"
|
||||||
, body =
|
, body =
|
||||||
|
@ -19,7 +19,7 @@ import Head.Seo as Seo
|
|||||||
import Html.Styled as Html exposing (Html)
|
import Html.Styled as Html exposing (Html)
|
||||||
import Html.Styled.Attributes as Attr exposing (css)
|
import Html.Styled.Attributes as Attr exposing (css)
|
||||||
import Icon
|
import Icon
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
@ -210,7 +210,7 @@ validateCapitalized string =
|
|||||||
( Nothing, [ "Needs to be capitalized" ] )
|
( Nothing, [ "Needs to be capitalized" ] )
|
||||||
|
|
||||||
|
|
||||||
form : Form.DoneForm String (BackendTask FatalError (Combined String User)) data (List (Html (Pages.Msg.Msg Msg)))
|
form : Form.DoneForm String (BackendTask FatalError (Combined String User)) data (List (Html (PagesMsg Msg)))
|
||||||
form =
|
form =
|
||||||
Form.init
|
Form.init
|
||||||
(\first last username email dob checkin checkout rating password passwordConfirmation comments candidates offers pushNotifications acceptTerms ->
|
(\first last username email dob checkin checkout rating password passwordConfirmation comments candidates offers pushNotifications acceptTerms ->
|
||||||
@ -679,7 +679,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
let
|
let
|
||||||
user : User
|
user : User
|
||||||
|
@ -7,7 +7,7 @@ import FatalError exposing (FatalError)
|
|||||||
import Head
|
import Head
|
||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html
|
import Html
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
@ -139,7 +139,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Time"
|
{ title = "Time"
|
||||||
, body =
|
, body =
|
||||||
|
@ -15,7 +15,7 @@ import Head
|
|||||||
import Html
|
import Html
|
||||||
import Json.Decode as Decode
|
import Json.Decode as Decode
|
||||||
import Json.Encode as Encode
|
import Json.Encode as Encode
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl
|
import Pages.PageUrl
|
||||||
import Path
|
import Path
|
||||||
import Platform.Sub
|
import Platform.Sub
|
||||||
@ -119,7 +119,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
-> RouteBuilder.StaticPayload Data ActionData RouteParams
|
||||||
-> View.View (Pages.Msg.Msg Msg)
|
-> View.View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
{ title = "Users"
|
{ title = "Users"
|
||||||
, body =
|
, body =
|
||||||
|
@ -5,7 +5,7 @@ import FatalError exposing (FatalError)
|
|||||||
import Head
|
import Head
|
||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html.Styled exposing (text)
|
import Html.Styled exposing (text)
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
@ -82,7 +82,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ body =
|
{ body =
|
||||||
[ text (static.routeParams.name |> Maybe.withDefault "NOTHING")
|
[ text (static.routeParams.name |> Maybe.withDefault "NOTHING")
|
||||||
|
@ -4,7 +4,7 @@ import BackendTask exposing (BackendTask)
|
|||||||
import FatalError exposing (FatalError)
|
import FatalError exposing (FatalError)
|
||||||
import Head
|
import Head
|
||||||
import Html.Styled exposing (text)
|
import Html.Styled exposing (text)
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Shared
|
import Shared
|
||||||
@ -69,7 +69,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ body =
|
{ body =
|
||||||
[ Debug.toString static.routeParams |> text
|
[ Debug.toString static.routeParams |> text
|
||||||
|
@ -4,7 +4,7 @@ import BackendTask exposing (BackendTask)
|
|||||||
import FatalError exposing (FatalError)
|
import FatalError exposing (FatalError)
|
||||||
import Head
|
import Head
|
||||||
import Html.Styled exposing (text)
|
import Html.Styled exposing (text)
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
import Shared
|
import Shared
|
||||||
@ -59,7 +59,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ body =
|
{ body =
|
||||||
[ Debug.toString static.routeParams |> text
|
[ Debug.toString static.routeParams |> text
|
||||||
|
@ -4,7 +4,7 @@ import BackendTask
|
|||||||
import FatalError
|
import FatalError
|
||||||
import Head
|
import Head
|
||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
@ -65,7 +65,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "TODO title"
|
{ title = "TODO title"
|
||||||
, body = []
|
, body = []
|
||||||
|
@ -11,7 +11,7 @@ import Head.Seo as Seo
|
|||||||
import Html.Styled as Html
|
import Html.Styled as Html
|
||||||
import Html.Styled.Attributes exposing (css)
|
import Html.Styled.Attributes exposing (css)
|
||||||
import Json.Decode as Decode
|
import Json.Decode as Decode
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import RouteBuilder exposing (StatefulRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StaticPayload)
|
||||||
@ -131,7 +131,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = "TODO title"
|
{ title = "TODO title"
|
||||||
, body =
|
, body =
|
||||||
|
@ -12,7 +12,7 @@ import GroupName exposing (GroupName)
|
|||||||
import Head
|
import Head
|
||||||
import Html exposing (Html)
|
import Html exposing (Html)
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
@ -121,7 +121,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
{ title = "Create Group"
|
{ title = "Create Group"
|
||||||
, body =
|
, body =
|
||||||
|
@ -10,7 +10,7 @@ import Form.Validation as Validation exposing (Combined, Field)
|
|||||||
import Head
|
import Head
|
||||||
import Html exposing (Html)
|
import Html exposing (Html)
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
@ -123,7 +123,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
{ title = "Dependent Form Example"
|
{ title = "Dependent Form Example"
|
||||||
, body =
|
, body =
|
||||||
|
@ -18,7 +18,7 @@ import Html exposing (Html)
|
|||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Icon
|
import Icon
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
import Request.Hasura
|
import Request.Hasura
|
||||||
@ -224,7 +224,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
{ title = "Ctrl-R Smoothies"
|
{ title = "Ctrl-R Smoothies"
|
||||||
, body =
|
, body =
|
||||||
@ -307,7 +307,7 @@ type QuantityChange
|
|||||||
| Decrement
|
| Decrement
|
||||||
|
|
||||||
|
|
||||||
productView : StaticPayload Data ActionData RouteParams -> Dict String Cart.CartEntry -> Smoothie -> Html (Pages.Msg.Msg Msg)
|
productView : StaticPayload Data ActionData RouteParams -> Dict String Cart.CartEntry -> Smoothie -> Html (PagesMsg Msg)
|
||||||
productView app cart item =
|
productView app cart item =
|
||||||
let
|
let
|
||||||
quantityInCart : Int
|
quantityInCart : Int
|
||||||
|
@ -17,7 +17,7 @@ import Html.Attributes as Attr
|
|||||||
import Json.Decode
|
import Json.Decode
|
||||||
import Json.Encode
|
import Json.Encode
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Request.Hasura
|
import Request.Hasura
|
||||||
@ -58,7 +58,7 @@ type alias Login =
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
form : Form.DoneForm String (BackendTask (Combined String String)) data (List (Html (Pages.Msg.Msg Msg)))
|
form : Form.DoneForm String (BackendTask (Combined String String)) data (List (Html (PagesMsg Msg)))
|
||||||
form =
|
form =
|
||||||
Form.init
|
Form.init
|
||||||
(\username password ->
|
(\username password ->
|
||||||
@ -249,7 +249,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel app =
|
view maybeUrl sharedModel app =
|
||||||
{ title = "Login"
|
{ title = "Login"
|
||||||
, body =
|
, body =
|
||||||
|
@ -16,7 +16,7 @@ import Html exposing (Html)
|
|||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.FormState
|
import Pages.FormState
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
import Request.Hasura
|
import Request.Hasura
|
||||||
@ -197,7 +197,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
let
|
let
|
||||||
pendingCreation : Result (Dict String (List String)) NewItem
|
pendingCreation : Result (Dict String (List String)) NewItem
|
||||||
@ -263,7 +263,7 @@ parseIgnoreErrors ( maybeParsed, fieldErrors ) =
|
|||||||
Err fieldErrors
|
Err fieldErrors
|
||||||
|
|
||||||
|
|
||||||
pendingView : NewItem -> Html (Pages.Msg.Msg Msg)
|
pendingView : NewItem -> Html (PagesMsg Msg)
|
||||||
pendingView item =
|
pendingView item =
|
||||||
Html.div [ Attr.class "item" ]
|
Html.div [ Attr.class "item" ]
|
||||||
[ Html.h2 [] [ Html.text "Preview" ]
|
[ Html.h2 [] [ Html.text "Preview" ]
|
||||||
|
@ -11,7 +11,7 @@ import Form.Validation as Validation exposing (Combined, Field)
|
|||||||
import Head
|
import Head
|
||||||
import Html exposing (Html)
|
import Html exposing (Html)
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
|
||||||
@ -114,7 +114,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
{ title = "Dependent Form Example"
|
{ title = "Dependent Form Example"
|
||||||
, body =
|
, body =
|
||||||
|
@ -11,7 +11,7 @@ import Html exposing (Html)
|
|||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.FormState
|
import Pages.FormState
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Transition
|
import Pages.Transition
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
@ -148,7 +148,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
{ title = "Ctrl-R Smoothies"
|
{ title = "Ctrl-R Smoothies"
|
||||||
, body =
|
, body =
|
||||||
@ -175,7 +175,7 @@ view maybeUrl sharedModel model app =
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
nameFormView : User -> Maybe Pages.Transition.Transition -> Html (Pages.Msg.Msg userMsg)
|
nameFormView : User -> Maybe Pages.Transition.Transition -> Html (PagesMsg userMsg)
|
||||||
nameFormView user maybeTransition =
|
nameFormView user maybeTransition =
|
||||||
Html.form
|
Html.form
|
||||||
(Pages.FormState.listeners "test"
|
(Pages.FormState.listeners "test"
|
||||||
|
@ -17,7 +17,7 @@ import Html exposing (Html)
|
|||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.FormState
|
import Pages.FormState
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -119,7 +119,7 @@ type alias Action =
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
formParser : Form.DoneForm String (BackendTask (Validation.Combined String Action)) Data (List (Html (Pages.Msg.Msg msg)))
|
formParser : Form.DoneForm String (BackendTask (Validation.Combined String Action)) Data (List (Html (PagesMsg msg)))
|
||||||
formParser =
|
formParser =
|
||||||
Form.init
|
Form.init
|
||||||
(\username name ->
|
(\username name ->
|
||||||
@ -261,7 +261,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
{ title = "Ctrl-R Smoothies"
|
{ title = "Ctrl-R Smoothies"
|
||||||
, body =
|
, body =
|
||||||
|
@ -10,7 +10,7 @@ import Html exposing (Html)
|
|||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Http
|
import Http
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -180,7 +180,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = "Signup"
|
{ title = "Signup"
|
||||||
, body =
|
, body =
|
||||||
|
@ -15,7 +15,7 @@ import Head
|
|||||||
import Html exposing (Html)
|
import Html exposing (Html)
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Transition exposing (Transition(..))
|
import Pages.Transition exposing (Transition(..))
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -312,7 +312,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
let
|
let
|
||||||
pendingCreation : Maybe NewItem
|
pendingCreation : Maybe NewItem
|
||||||
@ -364,7 +364,7 @@ view maybeUrl sharedModel model app =
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
pendingView : NewItem -> Html (Pages.Msg.Msg Msg)
|
pendingView : NewItem -> Html (PagesMsg Msg)
|
||||||
pendingView item =
|
pendingView item =
|
||||||
Html.div [ Attr.class "item" ]
|
Html.div [ Attr.class "item" ]
|
||||||
[ Html.div []
|
[ Html.div []
|
||||||
|
@ -20,10 +20,10 @@ import Json.Decode as Decode
|
|||||||
import Json.Encode as Encode
|
import Json.Encode as Encode
|
||||||
import List.Nonempty
|
import List.Nonempty
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Script as Script
|
import Pages.Script as Script
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Route
|
import Route
|
||||||
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
import RouteBuilder exposing (StatelessRoute, StaticPayload)
|
||||||
import SendGrid
|
import SendGrid
|
||||||
@ -87,7 +87,7 @@ type alias EnvVariables =
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
form : Form.DoneForm String (BackendTask FatalError (Combined String EmailAddress)) data (List (Html (Pages.Msg.Msg Msg)))
|
form : Form.DoneForm String (BackendTask FatalError (Combined String EmailAddress)) data (List (Html (PagesMsg Msg)))
|
||||||
form =
|
form =
|
||||||
Form.init
|
Form.init
|
||||||
(\fieldEmail ->
|
(\fieldEmail ->
|
||||||
@ -133,7 +133,7 @@ form =
|
|||||||
|> Form.hiddenKind ( "kind", "login" ) "Expected kind"
|
|> Form.hiddenKind ( "kind", "login" ) "Expected kind"
|
||||||
|
|
||||||
|
|
||||||
logoutForm : Form.DoneForm String () data (List (Html (Pages.Msg.Msg Msg)))
|
logoutForm : Form.DoneForm String () data (List (Html (PagesMsg Msg)))
|
||||||
logoutForm =
|
logoutForm =
|
||||||
Form.init
|
Form.init
|
||||||
{ combine =
|
{ combine =
|
||||||
@ -382,7 +382,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view _ sharedModel app =
|
view _ sharedModel app =
|
||||||
{ title = "Login"
|
{ title = "Login"
|
||||||
, body =
|
, body =
|
||||||
|
@ -20,9 +20,9 @@ import Json.Decode as Decode
|
|||||||
import Json.Encode as Encode
|
import Json.Encode as Encode
|
||||||
import LoadingSpinner
|
import LoadingSpinner
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Transition exposing (FetcherSubmitStatus(..))
|
import Pages.Transition exposing (FetcherSubmitStatus(..))
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Path
|
import Path
|
||||||
import Route
|
import Route
|
||||||
import RouteBuilder exposing (StatefulRoute, StaticPayload)
|
import RouteBuilder exposing (StatefulRoute, StaticPayload)
|
||||||
@ -328,7 +328,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
let
|
let
|
||||||
pendingFetchers : List Action
|
pendingFetchers : List Action
|
||||||
@ -710,7 +710,7 @@ clearCompletedForm =
|
|||||||
-- VIEW ALL ENTRIES
|
-- VIEW ALL ENTRIES
|
||||||
|
|
||||||
|
|
||||||
viewEntries : StaticPayload Data ActionData RouteParams -> Visibility -> List Entry -> Html (Pages.Msg.Msg Msg)
|
viewEntries : StaticPayload Data ActionData RouteParams -> Visibility -> List Entry -> Html (PagesMsg Msg)
|
||||||
viewEntries app visibility entries =
|
viewEntries app visibility entries =
|
||||||
let
|
let
|
||||||
isVisible todo =
|
isVisible todo =
|
||||||
@ -750,12 +750,12 @@ viewEntries app visibility entries =
|
|||||||
-- VIEW INDIVIDUAL ENTRIES
|
-- VIEW INDIVIDUAL ENTRIES
|
||||||
|
|
||||||
|
|
||||||
viewKeyedEntry : StaticPayload Data ActionData RouteParams -> Entry -> ( String, Html (Pages.Msg.Msg Msg) )
|
viewKeyedEntry : StaticPayload Data ActionData RouteParams -> Entry -> ( String, Html (PagesMsg Msg) )
|
||||||
viewKeyedEntry app todo =
|
viewKeyedEntry app todo =
|
||||||
( todo.id, lazy2 viewEntry app todo )
|
( todo.id, lazy2 viewEntry app todo )
|
||||||
|
|
||||||
|
|
||||||
viewEntry : StaticPayload Data ActionData RouteParams -> Entry -> Html (Pages.Msg.Msg Msg)
|
viewEntry : StaticPayload Data ActionData RouteParams -> Entry -> Html (PagesMsg Msg)
|
||||||
viewEntry app todo =
|
viewEntry app todo =
|
||||||
li
|
li
|
||||||
[ classList
|
[ classList
|
||||||
@ -785,7 +785,7 @@ viewEntry app todo =
|
|||||||
-- VIEW CONTROLS AND FOOTER
|
-- VIEW CONTROLS AND FOOTER
|
||||||
|
|
||||||
|
|
||||||
viewControls : StaticPayload Data ActionData RouteParams -> Visibility -> List Entry -> Html (Pages.Msg.Msg Msg)
|
viewControls : StaticPayload Data ActionData RouteParams -> Visibility -> List Entry -> Html (PagesMsg Msg)
|
||||||
viewControls app visibility entries =
|
viewControls app visibility entries =
|
||||||
let
|
let
|
||||||
entriesCompleted =
|
entriesCompleted =
|
||||||
@ -804,7 +804,7 @@ viewControls app visibility entries =
|
|||||||
]
|
]
|
||||||
|
|
||||||
|
|
||||||
viewControlsCount : Int -> Html (Pages.Msg.Msg Msg)
|
viewControlsCount : Int -> Html (PagesMsg Msg)
|
||||||
viewControlsCount entriesLeft =
|
viewControlsCount entriesLeft =
|
||||||
let
|
let
|
||||||
item_ =
|
item_ =
|
||||||
@ -827,7 +827,7 @@ type Visibility
|
|||||||
| Completed
|
| Completed
|
||||||
|
|
||||||
|
|
||||||
viewControlsFilters : Visibility -> Html (Pages.Msg.Msg Msg)
|
viewControlsFilters : Visibility -> Html (PagesMsg Msg)
|
||||||
viewControlsFilters visibility =
|
viewControlsFilters visibility =
|
||||||
ul
|
ul
|
||||||
[ class "filters" ]
|
[ class "filters" ]
|
||||||
@ -852,7 +852,7 @@ visibilityToString visibility =
|
|||||||
"Completed"
|
"Completed"
|
||||||
|
|
||||||
|
|
||||||
visibilitySwap : Maybe String -> Visibility -> Visibility -> Html (Pages.Msg.Msg Msg)
|
visibilitySwap : Maybe String -> Visibility -> Visibility -> Html (PagesMsg Msg)
|
||||||
visibilitySwap visibilityParam visibility actualVisibility =
|
visibilitySwap visibilityParam visibility actualVisibility =
|
||||||
li
|
li
|
||||||
[]
|
[]
|
||||||
@ -863,7 +863,7 @@ visibilitySwap visibilityParam visibility actualVisibility =
|
|||||||
]
|
]
|
||||||
|
|
||||||
|
|
||||||
viewControlsClear : StaticPayload Data ActionData RouteParams -> Int -> Html (Pages.Msg.Msg Msg)
|
viewControlsClear : StaticPayload Data ActionData RouteParams -> Int -> Html (PagesMsg Msg)
|
||||||
viewControlsClear app entriesCompleted =
|
viewControlsClear app entriesCompleted =
|
||||||
clearCompletedForm
|
clearCompletedForm
|
||||||
|> Form.toDynamicFetcher "clear-completed"
|
|> Form.toDynamicFetcher "clear-completed"
|
||||||
|
@ -8,7 +8,7 @@ import Head.Seo as Seo
|
|||||||
import Html exposing (..)
|
import Html exposing (..)
|
||||||
import Json.Decode as Decode exposing (Decoder)
|
import Json.Decode as Decode exposing (Decoder)
|
||||||
import Json.Encode
|
import Json.Encode
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Route
|
import Route
|
||||||
@ -75,7 +75,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams ActionData
|
-> StaticPayload Data ActionData RouteParams ActionData
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Pokedex"
|
{ title = "Pokedex"
|
||||||
, body =
|
, body =
|
||||||
|
@ -8,7 +8,7 @@ import Head.Seo as Seo
|
|||||||
import Html
|
import Html
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Route
|
import Route
|
||||||
@ -118,7 +118,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "Login"
|
{ title = "Login"
|
||||||
, body =
|
, body =
|
||||||
|
@ -15,7 +15,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html exposing (Html)
|
import Html exposing (Html)
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -234,7 +234,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = "Profile"
|
{ title = "Profile"
|
||||||
, body =
|
, body =
|
||||||
|
@ -14,7 +14,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html exposing (Html)
|
import Html exposing (Html)
|
||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -166,7 +166,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = "Search"
|
{ title = "Search"
|
||||||
, body =
|
, body =
|
||||||
|
@ -10,7 +10,7 @@ import Html exposing (Html)
|
|||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Http
|
import Http
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -179,7 +179,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = "Signup"
|
{ title = "Signup"
|
||||||
, body =
|
, body =
|
||||||
|
@ -17,7 +17,7 @@ import Html exposing (Html)
|
|||||||
import Html.Attributes as Attr
|
import Html.Attributes as Attr
|
||||||
import Html.Events
|
import Html.Events
|
||||||
import MySession
|
import MySession
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -228,7 +228,7 @@ view :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model static =
|
view maybeUrl sharedModel model static =
|
||||||
{ title = "Todo List"
|
{ title = "Todo List"
|
||||||
, body =
|
, body =
|
||||||
@ -353,7 +353,7 @@ type alias Todo =
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
todoItemView : Todo -> Html (Pages.Msg.Msg Msg)
|
todoItemView : Todo -> Html (PagesMsg Msg)
|
||||||
todoItemView todo =
|
todoItemView todo =
|
||||||
Html.li []
|
Html.li []
|
||||||
[ Html.div
|
[ Html.div
|
||||||
|
@ -97,7 +97,7 @@ import Pages.Fetcher
|
|||||||
import Pages.FormState
|
import Pages.FormState
|
||||||
import Pages.Internal.NotFoundReason exposing (NotFoundReason)
|
import Pages.Internal.NotFoundReason exposing (NotFoundReason)
|
||||||
import Pages.Internal.RoutePattern exposing (RoutePattern)
|
import Pages.Internal.RoutePattern exposing (RoutePattern)
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Transition
|
import Pages.Transition
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
@ -117,7 +117,7 @@ type alias StatefulRoute routeParams data action model msg =
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> model
|
-> model
|
||||||
-> StaticPayload data action routeParams
|
-> StaticPayload data action routeParams
|
||||||
-> View (Pages.Msg.Msg msg)
|
-> View (PagesMsg msg)
|
||||||
, head :
|
, head :
|
||||||
StaticPayload data action routeParams
|
StaticPayload data action routeParams
|
||||||
-> List Head.Tag
|
-> List Head.Tag
|
||||||
@ -176,7 +176,7 @@ buildNoState :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload data action routeParams
|
-> StaticPayload data action routeParams
|
||||||
-> View (Pages.Msg.Msg ())
|
-> View (PagesMsg ())
|
||||||
}
|
}
|
||||||
-> Builder routeParams data action
|
-> Builder routeParams data action
|
||||||
-> StatefulRoute routeParams data action {} ()
|
-> StatefulRoute routeParams data action {} ()
|
||||||
@ -212,7 +212,7 @@ buildWithLocalState :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> model
|
-> model
|
||||||
-> StaticPayload data action routeParams
|
-> StaticPayload data action routeParams
|
||||||
-> View (Pages.Msg.Msg msg)
|
-> View (PagesMsg msg)
|
||||||
, init : Maybe PageUrl -> Shared.Model -> StaticPayload data action routeParams -> ( model, Effect msg )
|
, init : Maybe PageUrl -> Shared.Model -> StaticPayload data action routeParams -> ( model, Effect msg )
|
||||||
, update : PageUrl -> Shared.Model -> StaticPayload data action routeParams -> msg -> model -> ( model, Effect msg )
|
, update : PageUrl -> Shared.Model -> StaticPayload data action routeParams -> msg -> model -> ( model, Effect msg )
|
||||||
, subscriptions : Maybe PageUrl -> routeParams -> Path -> Shared.Model -> model -> Sub msg
|
, subscriptions : Maybe PageUrl -> routeParams -> Path -> Shared.Model -> model -> Sub msg
|
||||||
@ -258,7 +258,7 @@ buildWithSharedState :
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> model
|
-> model
|
||||||
-> StaticPayload data action routeParams
|
-> StaticPayload data action routeParams
|
||||||
-> View (Pages.Msg.Msg msg)
|
-> View (PagesMsg msg)
|
||||||
, init : Maybe PageUrl -> Shared.Model -> StaticPayload data action routeParams -> ( model, Effect msg )
|
, init : Maybe PageUrl -> Shared.Model -> StaticPayload data action routeParams -> ( model, Effect msg )
|
||||||
, update : PageUrl -> Shared.Model -> StaticPayload data action routeParams -> msg -> model -> ( model, Effect msg, Maybe Shared.Msg )
|
, update : PageUrl -> Shared.Model -> StaticPayload data action routeParams -> msg -> model -> ( model, Effect msg, Maybe Shared.Msg )
|
||||||
, subscriptions : Maybe PageUrl -> routeParams -> Path -> Shared.Model -> model -> Sub msg
|
, subscriptions : Maybe PageUrl -> routeParams -> Path -> Shared.Model -> model -> Sub msg
|
||||||
|
@ -6,7 +6,7 @@ import Head
|
|||||||
import Head.Seo as Seo
|
import Head.Seo as Seo
|
||||||
import Html
|
import Html
|
||||||
import Html.Styled.Attributes as Attr
|
import Html.Styled.Attributes as Attr
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.Url
|
import Pages.Url
|
||||||
import Path
|
import Path
|
||||||
@ -74,7 +74,7 @@ view :
|
|||||||
Maybe PageUrl
|
Maybe PageUrl
|
||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel static =
|
view maybeUrl sharedModel static =
|
||||||
{ title = "elm-pages is running"
|
{ title = "elm-pages is running"
|
||||||
, body =
|
, body =
|
||||||
|
36
src/Form.elm
36
src/Form.elm
@ -283,8 +283,8 @@ import Html.Styled.Lazy
|
|||||||
import Pages.FormState as Form exposing (FormState)
|
import Pages.FormState as Form exposing (FormState)
|
||||||
import Pages.Internal.Form exposing (Validation(..), unwrapResponse)
|
import Pages.Internal.Form exposing (Validation(..), unwrapResponse)
|
||||||
import Pages.Internal.Msg
|
import Pages.Internal.Msg
|
||||||
import Pages.Msg
|
|
||||||
import Pages.Transition exposing (Transition(..))
|
import Pages.Transition exposing (Transition(..))
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
|
|
||||||
|
|
||||||
@ -981,7 +981,7 @@ runOneOfServerSideHelp rawFormData firstFoundErrors (ServerForms parsers) =
|
|||||||
|
|
||||||
{-| -}
|
{-| -}
|
||||||
renderHtml :
|
renderHtml :
|
||||||
List (Html.Attribute (Pages.Msg.Msg msg))
|
List (Html.Attribute (PagesMsg msg))
|
||||||
-> (actionData -> Maybe (Response error))
|
-> (actionData -> Maybe (Response error))
|
||||||
-> AppContext app actionData
|
-> AppContext app actionData
|
||||||
-> data
|
-> data
|
||||||
@ -991,10 +991,10 @@ renderHtml :
|
|||||||
(Form.Validation.Validation error parsed named constraints)
|
(Form.Validation.Validation error parsed named constraints)
|
||||||
data
|
data
|
||||||
(Context error data
|
(Context error data
|
||||||
-> List (Html (Pages.Msg.Msg msg))
|
-> List (Html (PagesMsg msg))
|
||||||
)
|
)
|
||||||
msg
|
msg
|
||||||
-> Html (Pages.Msg.Msg msg)
|
-> Html (PagesMsg msg)
|
||||||
renderHtml attrs accessResponse app data (FinalForm options a b c) =
|
renderHtml attrs accessResponse app data (FinalForm options a b c) =
|
||||||
Html.Lazy.lazy6 renderHelper attrs accessResponse options app data (FormInternal a b c)
|
Html.Lazy.lazy6 renderHelper attrs accessResponse options app data (FormInternal a b c)
|
||||||
|
|
||||||
@ -1178,7 +1178,7 @@ withOnSubmit onSubmit (FinalForm options a b c) =
|
|||||||
|
|
||||||
{-| -}
|
{-| -}
|
||||||
renderStyledHtml :
|
renderStyledHtml :
|
||||||
List (Html.Styled.Attribute (Pages.Msg.Msg msg))
|
List (Html.Styled.Attribute (PagesMsg msg))
|
||||||
-> (actionData -> Maybe (Response error))
|
-> (actionData -> Maybe (Response error))
|
||||||
-> AppContext app actionData
|
-> AppContext app actionData
|
||||||
-> data
|
-> data
|
||||||
@ -1188,10 +1188,10 @@ renderStyledHtml :
|
|||||||
(Form.Validation.Validation error parsed named constraints)
|
(Form.Validation.Validation error parsed named constraints)
|
||||||
data
|
data
|
||||||
(Context error data
|
(Context error data
|
||||||
-> List (Html.Styled.Html (Pages.Msg.Msg msg))
|
-> List (Html.Styled.Html (PagesMsg msg))
|
||||||
)
|
)
|
||||||
msg
|
msg
|
||||||
-> Html.Styled.Html (Pages.Msg.Msg msg)
|
-> Html.Styled.Html (PagesMsg msg)
|
||||||
renderStyledHtml attrs accessResponse app data (FinalForm options a b c) =
|
renderStyledHtml attrs accessResponse app data (FinalForm options a b c) =
|
||||||
Html.Styled.Lazy.lazy6 renderStyledHelper attrs accessResponse options app data (FormInternal a b c)
|
Html.Styled.Lazy.lazy6 renderStyledHelper attrs accessResponse options app data (FormInternal a b c)
|
||||||
|
|
||||||
@ -1202,13 +1202,13 @@ type alias Response error =
|
|||||||
|
|
||||||
|
|
||||||
renderHelper :
|
renderHelper :
|
||||||
List (Html.Attribute (Pages.Msg.Msg msg))
|
List (Html.Attribute (PagesMsg msg))
|
||||||
-> (actionData -> Maybe (Response error))
|
-> (actionData -> Maybe (Response error))
|
||||||
-> RenderOptions msg
|
-> RenderOptions msg
|
||||||
-> AppContext app actionData
|
-> AppContext app actionData
|
||||||
-> data
|
-> data
|
||||||
-> FormInternal error (Form.Validation.Validation error parsed named constraints) data (Context error data -> List (Html (Pages.Msg.Msg msg)))
|
-> FormInternal error (Form.Validation.Validation error parsed named constraints) data (Context error data -> List (Html (PagesMsg msg)))
|
||||||
-> Html (Pages.Msg.Msg msg)
|
-> Html (PagesMsg msg)
|
||||||
renderHelper attrs accessResponse options formState data form =
|
renderHelper attrs accessResponse options formState data form =
|
||||||
-- TODO Get transition context from `app` so you can check if the current form is being submitted
|
-- TODO Get transition context from `app` so you can check if the current form is being submitted
|
||||||
-- TODO either as a transition or a fetcher? Should be easy enough to check for the `id` on either of those?
|
-- TODO either as a transition or a fetcher? Should be easy enough to check for the `id` on either of those?
|
||||||
@ -1216,7 +1216,7 @@ renderHelper attrs accessResponse options formState data form =
|
|||||||
{ formId, hiddenInputs, children, isValid } =
|
{ formId, hiddenInputs, children, isValid } =
|
||||||
helperValues toHiddenInput accessResponse options formState data form
|
helperValues toHiddenInput accessResponse options formState data form
|
||||||
|
|
||||||
toHiddenInput : List (Html.Attribute (Pages.Msg.Msg msg)) -> Html (Pages.Msg.Msg msg)
|
toHiddenInput : List (Html.Attribute (PagesMsg msg)) -> Html (PagesMsg msg)
|
||||||
toHiddenInput hiddenAttrs =
|
toHiddenInput hiddenAttrs =
|
||||||
Html.input hiddenAttrs []
|
Html.input hiddenAttrs []
|
||||||
in
|
in
|
||||||
@ -1241,13 +1241,13 @@ renderHelper attrs accessResponse options formState data form =
|
|||||||
|
|
||||||
|
|
||||||
renderStyledHelper :
|
renderStyledHelper :
|
||||||
List (Html.Styled.Attribute (Pages.Msg.Msg msg))
|
List (Html.Styled.Attribute (PagesMsg msg))
|
||||||
-> (actionData -> Maybe (Response error))
|
-> (actionData -> Maybe (Response error))
|
||||||
-> RenderOptions msg
|
-> RenderOptions msg
|
||||||
-> AppContext app actionData
|
-> AppContext app actionData
|
||||||
-> data
|
-> data
|
||||||
-> FormInternal error (Form.Validation.Validation error parsed named constraints) data (Context error data -> List (Html.Styled.Html (Pages.Msg.Msg msg)))
|
-> FormInternal error (Form.Validation.Validation error parsed named constraints) data (Context error data -> List (Html.Styled.Html (PagesMsg msg)))
|
||||||
-> Html.Styled.Html (Pages.Msg.Msg msg)
|
-> Html.Styled.Html (PagesMsg msg)
|
||||||
renderStyledHelper attrs accessResponse options formState data form =
|
renderStyledHelper attrs accessResponse options formState data form =
|
||||||
-- TODO Get transition context from `app` so you can check if the current form is being submitted
|
-- TODO Get transition context from `app` so you can check if the current form is being submitted
|
||||||
-- TODO either as a transition or a fetcher? Should be easy enough to check for the `id` on either of those?
|
-- TODO either as a transition or a fetcher? Should be easy enough to check for the `id` on either of those?
|
||||||
@ -1255,7 +1255,7 @@ renderStyledHelper attrs accessResponse options formState data form =
|
|||||||
{ formId, hiddenInputs, children, isValid } =
|
{ formId, hiddenInputs, children, isValid } =
|
||||||
helperValues toHiddenInput accessResponse options formState data form
|
helperValues toHiddenInput accessResponse options formState data form
|
||||||
|
|
||||||
toHiddenInput : List (Html.Attribute (Pages.Msg.Msg msg)) -> Html.Styled.Html (Pages.Msg.Msg msg)
|
toHiddenInput : List (Html.Attribute (PagesMsg msg)) -> Html.Styled.Html (PagesMsg msg)
|
||||||
toHiddenInput hiddenAttrs =
|
toHiddenInput hiddenAttrs =
|
||||||
Html.Styled.input (hiddenAttrs |> List.map StyledAttr.fromUnstyled) []
|
Html.Styled.input (hiddenAttrs |> List.map StyledAttr.fromUnstyled) []
|
||||||
in
|
in
|
||||||
@ -1279,7 +1279,7 @@ renderStyledHelper attrs accessResponse options formState data form =
|
|||||||
|
|
||||||
|
|
||||||
helperValues :
|
helperValues :
|
||||||
(List (Html.Attribute (Pages.Msg.Msg msg)) -> view)
|
(List (Html.Attribute (PagesMsg msg)) -> view)
|
||||||
-> (actionData -> Maybe (Response error))
|
-> (actionData -> Maybe (Response error))
|
||||||
-> RenderOptions msg
|
-> RenderOptions msg
|
||||||
-> AppContext app actionData
|
-> AppContext app actionData
|
||||||
@ -1478,7 +1478,7 @@ type alias HtmlForm error parsed input msg =
|
|||||||
Form
|
Form
|
||||||
error
|
error
|
||||||
{ combine : Combined error parsed
|
{ combine : Combined error parsed
|
||||||
, view : Context error input -> List (Html (Pages.Msg.Msg msg))
|
, view : Context error input -> List (Html (PagesMsg msg))
|
||||||
}
|
}
|
||||||
input
|
input
|
||||||
|
|
||||||
@ -1602,7 +1602,7 @@ type alias StyledHtmlForm error parsed data msg =
|
|||||||
Form
|
Form
|
||||||
error
|
error
|
||||||
{ combine : Combined error parsed
|
{ combine : Combined error parsed
|
||||||
, view : Context error data -> List (Html.Styled.Html (Pages.Msg.Msg msg))
|
, view : Context error data -> List (Html.Styled.Html (PagesMsg msg))
|
||||||
}
|
}
|
||||||
data
|
data
|
||||||
|
|
||||||
|
@ -13,11 +13,11 @@ import Html.Attributes as Attr
|
|||||||
import Html.Events
|
import Html.Events
|
||||||
import Json.Decode as Decode exposing (Decoder)
|
import Json.Decode as Decode exposing (Decoder)
|
||||||
import Pages.Internal.Msg
|
import Pages.Internal.Msg
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
|
|
||||||
|
|
||||||
{-| -}
|
{-| -}
|
||||||
listeners : String -> List (Attribute (Pages.Msg.Msg userMsg))
|
listeners : String -> List (Attribute (PagesMsg userMsg))
|
||||||
listeners formId =
|
listeners formId =
|
||||||
[ Html.Events.on "focusin" (Decode.value |> Decode.map Pages.Internal.Msg.FormFieldEvent)
|
[ Html.Events.on "focusin" (Decode.value |> Decode.map Pages.Internal.Msg.FormFieldEvent)
|
||||||
, Html.Events.on "focusout" (Decode.value |> Decode.map Pages.Internal.Msg.FormFieldEvent)
|
, Html.Events.on "focusout" (Decode.value |> Decode.map Pages.Internal.Msg.FormFieldEvent)
|
||||||
|
@ -35,10 +35,10 @@ import Pages.Internal.Msg
|
|||||||
import Pages.Internal.NotFoundReason exposing (NotFoundReason)
|
import Pages.Internal.NotFoundReason exposing (NotFoundReason)
|
||||||
import Pages.Internal.ResponseSketch as ResponseSketch exposing (ResponseSketch)
|
import Pages.Internal.ResponseSketch as ResponseSketch exposing (ResponseSketch)
|
||||||
import Pages.Internal.String as String
|
import Pages.Internal.String as String
|
||||||
import Pages.Msg
|
|
||||||
import Pages.ProgramConfig exposing (ProgramConfig)
|
import Pages.ProgramConfig exposing (ProgramConfig)
|
||||||
import Pages.StaticHttpRequest as StaticHttpRequest
|
import Pages.StaticHttpRequest as StaticHttpRequest
|
||||||
import Pages.Transition
|
import Pages.Transition
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
import QueryParams
|
import QueryParams
|
||||||
import Task
|
import Task
|
||||||
@ -54,7 +54,7 @@ type alias Program userModel userMsg pageData actionData sharedData errorPage =
|
|||||||
mainView :
|
mainView :
|
||||||
ProgramConfig userMsg userModel route pageData actionData sharedData effect (Msg userMsg pageData actionData sharedData errorPage) errorPage
|
ProgramConfig userMsg userModel route pageData actionData sharedData effect (Msg userMsg pageData actionData sharedData errorPage) errorPage
|
||||||
-> Model userModel pageData actionData sharedData
|
-> Model userModel pageData actionData sharedData
|
||||||
-> { title : String, body : List (Html (Pages.Msg.Msg userMsg)) }
|
-> { title : String, body : List (Html (PagesMsg userMsg)) }
|
||||||
mainView config model =
|
mainView config model =
|
||||||
case model.notFound of
|
case model.notFound of
|
||||||
Just info ->
|
Just info ->
|
||||||
@ -309,7 +309,7 @@ init config flags url key =
|
|||||||
type Msg userMsg pageData actionData sharedData errorPage
|
type Msg userMsg pageData actionData sharedData errorPage
|
||||||
= LinkClicked Browser.UrlRequest
|
= LinkClicked Browser.UrlRequest
|
||||||
| UrlChanged Url
|
| UrlChanged Url
|
||||||
| UserMsg (Pages.Msg.Msg userMsg)
|
| UserMsg (PagesMsg userMsg)
|
||||||
| SetField { formId : String, name : String, value : String }
|
| SetField { formId : String, name : String, value : String }
|
||||||
| UpdateCacheAndUrlNew Bool Url (Maybe userMsg) (Result Http.Error ( Url, ResponseSketch pageData actionData sharedData ))
|
| UpdateCacheAndUrlNew Bool Url (Maybe userMsg) (Result Http.Error ( Url, ResponseSketch pageData actionData sharedData ))
|
||||||
| FetcherComplete Bool String Int (Result Http.Error ( Maybe userMsg, ActionDataOrRedirect actionData ))
|
| FetcherComplete Bool String Int (Result Http.Error ( Maybe userMsg, ActionDataOrRedirect actionData ))
|
||||||
|
@ -27,10 +27,10 @@ import Pages.Internal.Platform.Effect as Effect exposing (Effect)
|
|||||||
import Pages.Internal.Platform.StaticResponses as StaticResponses
|
import Pages.Internal.Platform.StaticResponses as StaticResponses
|
||||||
import Pages.Internal.Platform.ToJsPayload as ToJsPayload
|
import Pages.Internal.Platform.ToJsPayload as ToJsPayload
|
||||||
import Pages.Internal.ResponseSketch as ResponseSketch
|
import Pages.Internal.ResponseSketch as ResponseSketch
|
||||||
import Pages.Msg
|
|
||||||
import Pages.ProgramConfig exposing (ProgramConfig)
|
import Pages.ProgramConfig exposing (ProgramConfig)
|
||||||
import Pages.SiteConfig exposing (SiteConfig)
|
import Pages.SiteConfig exposing (SiteConfig)
|
||||||
import Pages.StaticHttp.Request
|
import Pages.StaticHttp.Request
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
import RenderRequest exposing (RenderRequest)
|
import RenderRequest exposing (RenderRequest)
|
||||||
import RequestsAndPending exposing (RequestsAndPending)
|
import RequestsAndPending exposing (RequestsAndPending)
|
||||||
@ -503,7 +503,7 @@ initLegacy site ((RenderRequest.SinglePage includeHtml singleRequest _) as rende
|
|||||||
)
|
)
|
||||||
|> Tuple.first
|
|> Tuple.first
|
||||||
|
|
||||||
viewValue : { title : String, body : List (Html (Pages.Msg.Msg userMsg)) }
|
viewValue : { title : String, body : List (Html (PagesMsg userMsg)) }
|
||||||
viewValue =
|
viewValue =
|
||||||
(config.view Dict.empty Dict.empty Nothing currentPage Nothing sharedData pageData_ maybeActionData |> .view) pageModel
|
(config.view Dict.empty Dict.empty Nothing currentPage Nothing sharedData pageData_ maybeActionData |> .view) pageModel
|
||||||
|
|
||||||
@ -550,7 +550,7 @@ initLegacy site ((RenderRequest.SinglePage includeHtml singleRequest _) as rende
|
|||||||
)
|
)
|
||||||
|> (\( actionHeaders, byteEncodedPageData ) ->
|
|> (\( actionHeaders, byteEncodedPageData ) ->
|
||||||
let
|
let
|
||||||
rendered : { view : userModel -> { title : String, body : List (Html (Pages.Msg.Msg userMsg)) }, head : List Tag }
|
rendered : { view : userModel -> { title : String, body : List (Html (PagesMsg userMsg)) }, head : List Tag }
|
||||||
rendered =
|
rendered =
|
||||||
config.view Dict.empty Dict.empty Nothing currentPage Nothing sharedData pageData_ maybeActionData
|
config.view Dict.empty Dict.empty Nothing currentPage Nothing sharedData pageData_ maybeActionData
|
||||||
in
|
in
|
||||||
@ -641,7 +641,7 @@ initLegacy site ((RenderRequest.SinglePage includeHtml singleRequest _) as rende
|
|||||||
pageData2 =
|
pageData2 =
|
||||||
config.errorPageToData error
|
config.errorPageToData error
|
||||||
|
|
||||||
viewValue : { title : String, body : List (Html (Pages.Msg.Msg userMsg)) }
|
viewValue : { title : String, body : List (Html (PagesMsg userMsg)) }
|
||||||
viewValue =
|
viewValue =
|
||||||
(config.view Dict.empty Dict.empty Nothing currentPage Nothing sharedData pageData2 Nothing |> .view) pageModel
|
(config.view Dict.empty Dict.empty Nothing currentPage Nothing sharedData pageData2 Nothing |> .view) pageModel
|
||||||
in
|
in
|
||||||
@ -854,7 +854,7 @@ render404Page config sharedData isDevServer path notFoundReason =
|
|||||||
pathAndRoute =
|
pathAndRoute =
|
||||||
{ path = path, route = config.notFoundRoute }
|
{ path = path, route = config.notFoundRoute }
|
||||||
|
|
||||||
viewValue : { title : String, body : List (Html (Pages.Msg.Msg userMsg)) }
|
viewValue : { title : String, body : List (Html (PagesMsg userMsg)) }
|
||||||
viewValue =
|
viewValue =
|
||||||
(config.view Dict.empty
|
(config.view Dict.empty
|
||||||
Dict.empty
|
Dict.empty
|
||||||
|
File diff suppressed because it is too large
Load Diff
@ -22,10 +22,10 @@ import Pages.Internal.NotFoundReason exposing (NotFoundReason)
|
|||||||
import Pages.Internal.Platform.ToJsPayload
|
import Pages.Internal.Platform.ToJsPayload
|
||||||
import Pages.Internal.ResponseSketch exposing (ResponseSketch)
|
import Pages.Internal.ResponseSketch exposing (ResponseSketch)
|
||||||
import Pages.Internal.RoutePattern exposing (RoutePattern)
|
import Pages.Internal.RoutePattern exposing (RoutePattern)
|
||||||
import Pages.Msg
|
|
||||||
import Pages.PageUrl exposing (PageUrl)
|
import Pages.PageUrl exposing (PageUrl)
|
||||||
import Pages.SiteConfig exposing (SiteConfig)
|
import Pages.SiteConfig exposing (SiteConfig)
|
||||||
import Pages.Transition
|
import Pages.Transition
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Path exposing (Path)
|
import Path exposing (Path)
|
||||||
import Url exposing (Url)
|
import Url exposing (Url)
|
||||||
|
|
||||||
@ -66,7 +66,7 @@ type alias ProgramConfig userMsg userModel route pageData actionData sharedData
|
|||||||
-> pageData
|
-> pageData
|
||||||
-> Maybe actionData
|
-> Maybe actionData
|
||||||
->
|
->
|
||||||
{ view : userModel -> { title : String, body : List (Html (Pages.Msg.Msg userMsg)) }
|
{ view : userModel -> { title : String, body : List (Html (PagesMsg userMsg)) }
|
||||||
, head : List Head.Tag
|
, head : List Head.Tag
|
||||||
}
|
}
|
||||||
, handleRoute : route -> BackendTask FatalError (Maybe NotFoundReason)
|
, handleRoute : route -> BackendTask FatalError (Maybe NotFoundReason)
|
||||||
|
@ -1,14 +1,14 @@
|
|||||||
module Pages.Msg exposing
|
module PagesMsg exposing
|
||||||
( Msg
|
( PagesMsg
|
||||||
, fromMsg
|
, fromMsg
|
||||||
, map, noOp
|
, map, noOp
|
||||||
, onSubmit
|
, onSubmit
|
||||||
)
|
)
|
||||||
|
|
||||||
{-| In `elm-pages`, Route modules have their own `Msg` type which can be used like a normal TEA (The Elm Architecture) app.
|
{-| In `elm-pages`, Route modules have their own `Msg` type which can be used like a normal TEA (The Elm Architecture) app.
|
||||||
But the `Msg` defined in a `Route` module is wrapped in the `Pages.Msg.Msg` type.
|
But the `Msg` defined in a `Route` module is wrapped in the `PagesMsg` type.
|
||||||
|
|
||||||
@docs Msg
|
@docs PagesMsg
|
||||||
|
|
||||||
You can wrap your Route Module's `Msg` using `fromMsg`.
|
You can wrap your Route Module's `Msg` using `fromMsg`.
|
||||||
|
|
||||||
@ -25,12 +25,14 @@ import Pages.Internal.Msg
|
|||||||
|
|
||||||
|
|
||||||
{-| -}
|
{-| -}
|
||||||
type alias Msg userMsg =
|
type alias PagesMsg userMsg =
|
||||||
Pages.Internal.Msg.Msg userMsg
|
Pages.Internal.Msg.Msg userMsg
|
||||||
|
|
||||||
|
|
||||||
{-|
|
{-|
|
||||||
|
|
||||||
|
import PagesMsg exposing (PagesMsg)
|
||||||
|
|
||||||
type Msg
|
type Msg
|
||||||
= ToggleMenu
|
= ToggleMenu
|
||||||
|
|
||||||
@ -39,16 +41,16 @@ type alias Msg userMsg =
|
|||||||
-> Shared.Model
|
-> Shared.Model
|
||||||
-> Model
|
-> Model
|
||||||
-> StaticPayload Data ActionData RouteParams
|
-> StaticPayload Data ActionData RouteParams
|
||||||
-> View (Pages.Msg.Msg Msg)
|
-> View (PagesMsg Msg)
|
||||||
view maybeUrl sharedModel model app =
|
view maybeUrl sharedModel model app =
|
||||||
{ title = "My Page"
|
{ title = "My Page"
|
||||||
, view =
|
, view =
|
||||||
[ button
|
[ button
|
||||||
-- we need to wrap our Route module's `Msg` here so we have a `Pages.Msg.Msg Msg`
|
-- we need to wrap our Route module's `Msg` here so we have a `PagesMsg Msg`
|
||||||
[ onClick (Pages.Msg.fromMsg ToggleMenu) ]
|
[ onClick (PagesMsg.fromMsg ToggleMenu) ]
|
||||||
[]
|
[]
|
||||||
|
|
||||||
-- `Form.renderHtml` gives us `Html (Pages.Msg.Msg msg)`, so we don't need to wrap its Msg type
|
-- `Form.renderHtml` gives us `Html (PagesMsg msg)`, so we don't need to wrap its Msg type
|
||||||
, logoutForm
|
, logoutForm
|
||||||
|> Form.toDynamicTransition "logout"
|
|> Form.toDynamicTransition "logout"
|
||||||
|> Form.withOnSubmit (\_ -> NewItemSubmitted)
|
|> Form.withOnSubmit (\_ -> NewItemSubmitted)
|
||||||
@ -57,7 +59,7 @@ type alias Msg userMsg =
|
|||||||
}
|
}
|
||||||
|
|
||||||
-}
|
-}
|
||||||
fromMsg : userMsg -> Msg userMsg
|
fromMsg : userMsg -> PagesMsg userMsg
|
||||||
fromMsg userMsg =
|
fromMsg userMsg =
|
||||||
Pages.Internal.Msg.UserMsg userMsg
|
Pages.Internal.Msg.UserMsg userMsg
|
||||||
|
|
||||||
@ -65,27 +67,27 @@ fromMsg userMsg =
|
|||||||
{-| A Msg that is handled by the elm-pages framework and does nothing. Helpful for when you don't want to register a callback.
|
{-| A Msg that is handled by the elm-pages framework and does nothing. Helpful for when you don't want to register a callback.
|
||||||
|
|
||||||
import Browser.Dom as Dom
|
import Browser.Dom as Dom
|
||||||
import Pages.Msg
|
import PagesMsg exposing (PagesMsg)
|
||||||
import Task
|
import Task
|
||||||
|
|
||||||
resetViewport : Cmd (Pages.Msg.Msg msg)
|
resetViewport : Cmd (PagesMsg msg)
|
||||||
resetViewport =
|
resetViewport =
|
||||||
Dom.setViewport 0 0
|
Dom.setViewport 0 0
|
||||||
|> Task.perform (\() -> Pages.Msg.noOp)
|
|> Task.perform (\() -> PagesMsg.noOp)
|
||||||
|
|
||||||
-}
|
-}
|
||||||
noOp : Msg userMsg
|
noOp : PagesMsg userMsg
|
||||||
noOp =
|
noOp =
|
||||||
Pages.Internal.Msg.NoOp
|
Pages.Internal.Msg.NoOp
|
||||||
|
|
||||||
|
|
||||||
{-| -}
|
{-| -}
|
||||||
map : (a -> b) -> Msg a -> Msg b
|
map : (a -> b) -> PagesMsg a -> PagesMsg b
|
||||||
map mapFn msg =
|
map mapFn msg =
|
||||||
Pages.Internal.Msg.map mapFn msg
|
Pages.Internal.Msg.map mapFn msg
|
||||||
|
|
||||||
|
|
||||||
{-| -}
|
{-| -}
|
||||||
onSubmit : Attribute (Msg userMsg)
|
onSubmit : Attribute (PagesMsg userMsg)
|
||||||
onSubmit =
|
onSubmit =
|
||||||
Pages.Internal.Msg.onSubmit
|
Pages.Internal.Msg.onSubmit
|
Loading…
Reference in New Issue
Block a user