forked from cadey/xesite
frontend/Layout: navbar links
This commit is contained in:
parent
0770bb49cb
commit
8b29fffc87
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue