mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-12-29 14:56:36 +03:00
107 lines
2.1 KiB
Elm
107 lines
2.1 KiB
Elm
module Shared exposing (Data, Model, Msg(..), SharedMsg(..), template)
|
|
|
|
import Browser.Navigation
|
|
import Css.Global
|
|
import DataSource
|
|
import DataSource.Http
|
|
import Effect exposing (Effect)
|
|
import Html exposing (Html)
|
|
import Html.Styled
|
|
import Json.Decode as D
|
|
import Pages.Flags
|
|
import Pages.PageUrl exposing (PageUrl)
|
|
import Path exposing (Path)
|
|
import Route exposing (Route)
|
|
import SharedTemplate exposing (SharedTemplate)
|
|
import Tailwind.Utilities
|
|
import View exposing (View)
|
|
|
|
|
|
template : SharedTemplate Msg Model Data msg
|
|
template =
|
|
{ init = init
|
|
, update = update
|
|
, view = view
|
|
, data = data
|
|
, subscriptions = subscriptions
|
|
, onPageChange = Just OnPageChange
|
|
}
|
|
|
|
|
|
type Msg
|
|
= OnPageChange
|
|
{ path : Path
|
|
, query : Maybe String
|
|
, fragment : Maybe String
|
|
}
|
|
|
|
|
|
type alias Data =
|
|
Int
|
|
|
|
|
|
type SharedMsg
|
|
= NoOp
|
|
|
|
|
|
type alias Model =
|
|
{ showMobileMenu : Bool
|
|
}
|
|
|
|
|
|
init :
|
|
Pages.Flags.Flags
|
|
->
|
|
Maybe
|
|
{ path :
|
|
{ path : Path
|
|
, query : Maybe String
|
|
, fragment : Maybe String
|
|
}
|
|
, metadata : route
|
|
, pageUrl : Maybe PageUrl
|
|
}
|
|
-> ( Model, Effect Msg )
|
|
init flags maybePagePath =
|
|
( { showMobileMenu = False }
|
|
, Effect.none
|
|
)
|
|
|
|
|
|
update : Msg -> Model -> ( Model, Effect Msg )
|
|
update msg model =
|
|
case msg of
|
|
OnPageChange _ ->
|
|
( { model | showMobileMenu = False }, Effect.none )
|
|
|
|
|
|
subscriptions : Path -> Model -> Sub Msg
|
|
subscriptions _ _ =
|
|
Sub.none
|
|
|
|
|
|
data : DataSource.DataSource Data
|
|
data =
|
|
--DataSource.Http.get "https://api.github.com/repos/dillonkearns/elm-pages"
|
|
-- (D.field "stargazers_count" D.int)
|
|
DataSource.succeed 123
|
|
|
|
|
|
view :
|
|
Data
|
|
->
|
|
{ path : Path
|
|
, route : Maybe Route
|
|
}
|
|
-> Model
|
|
-> (Msg -> msg)
|
|
-> View msg
|
|
-> { body : Html msg, title : String }
|
|
view stars page model toMsg pageView =
|
|
{ body =
|
|
Html.Styled.div []
|
|
pageView.body
|
|
|> Html.Styled.toUnstyled
|
|
, title = pageView.title
|
|
}
|