dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-25 12:52:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add a navbar.

Browse Source
This commit is contained in:
Dillon Kearns 2022-03-31 11:04:05 -07:00
parent 5eafcb8998
commit 5536591ea0
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
examples/pokedex/app/Shared.elm
View File

@ -3,6 +3,7 @@ module Shared exposing (Data, Model, Msg(..), SharedMsg(..), template)
import DataSource import DataSource
import Effect exposing (Effect) import Effect exposing (Effect)
import Html exposing (Html) import Html exposing (Html)
import Html.Attributes as Attr
import Pages.Flags import Pages.Flags
import Pages.PageUrl exposing (PageUrl) import Pages.PageUrl exposing (PageUrl)
import Path exposing (Path) import Path exposing (Path)
@ -94,6 +95,26 @@ view :
-> View msg -> View msg
-> { body : Html msg, title : String } -> { body : Html msg, title : String }
view sharedData page model toMsg pageView = view sharedData page model toMsg pageView =
{ body = Html.div [] pageView.body { body =
Html.div
[]
[ Html.nav
[ Attr.style "display" "flex"
, Attr.style "justify-content" "space-evenly"
]
[ Route.Index
|> Route.link
[]
[ Html.text "Home" ]
, Route.PokedexNumber_ { pokedexNumber = "0" }
|> Route.link
[]
[ Html.text "To 404 page" ]
]
, Html.div
[ Attr.style "padding" "40px"
]
pageView.body
]
, title = pageView.title , title = pageView.title
} }