frontend/Layout: navbar links

This commit is contained in:
Cadey Ratio 2016-12-14 09:15:41 -08:00
parent 0770bb49cb
commit 8b29fffc87
1 changed files with 11 additions and 3 deletions

View File

@ -7,8 +7,8 @@ import DOM (DOM)
import Network.HTTP.Affjax (AJAX) import Network.HTTP.Affjax (AJAX)
import Prelude (($), (#), map, pure) import Prelude (($), (#), map, pure)
import Pux (EffModel, noEffects, mapEffects, mapState) import Pux (EffModel, noEffects, mapEffects, mapState)
import Pux.Html (Html, div, h1, nav, text) import Pux.Html (Html, div, h1, li, nav, text, ul)
import Pux.Html.Attributes (className, id_, role) import Pux.Html.Attributes (classID, className, id_, role)
import Pux.Router (link) import Pux.Router (link)
data Action data Action
@ -55,7 +55,15 @@ navbar state =
[ className "pink lighten-1", role "navigation" ] [ className "pink lighten-1", role "navigation" ]
[ div [ div
[ className "nav-wrapper container" ] [ className "nav-wrapper container" ]
[ link "/" [ className "brand-logo", id_ "logo-container" ] [ text "Christine Dodrill" ] ] [ link "/" [ className "brand-logo", id_ "logo-container" ] [ text "Christine Dodrill" ]
, ul
[ className "right hide-on-med-and-down" ]
[ li [] [ link "/blog" [] [ text "Blog" ] ]
, li [] [ link "/projects" [] [ text "Projects" ] ]
, li [] [ link "/resume" [] [ text "Resume" ] ]
, li [] [ link "/contact" [] [ text "Contact" ] ]
]
]
] ]
page :: Route -> State -> Html Action page :: Route -> State -> Html Action