32 lines
818 B
Elm
32 lines
818 B
Elm
module Header exposing (header)
|
|
|
|
import Html.Styled exposing (..)
|
|
import Html.Styled.Attributes exposing (class, src, style, target)
|
|
import Link exposing (Link)
|
|
import Route
|
|
|
|
|
|
header =
|
|
p [ style "display" "flex", style "flex-direction" "row", style "justify-content" "flex-start" ]
|
|
[ p [ style "margin-right" "1rem" ] [ home ]
|
|
, p [ style "margin-right" "1rem" ] [ blog ]
|
|
, p [ style "margin-right" "1rem" ] [ book ]
|
|
, p [ style "margin-right" "1rem" ] [ cv ]
|
|
]
|
|
|
|
|
|
home =
|
|
Link.link (Link.internal Route.Index) [] [ text "Home" ]
|
|
|
|
|
|
blog =
|
|
Link.link (Link.internal (Route.Blog__Slug_ { slug = "" })) [] [ text "Blog" ]
|
|
|
|
|
|
book =
|
|
Link.link (Link.internal Route.Book) [] [ text "Book" ]
|
|
|
|
|
|
cv =
|
|
Link.link (Link.external "/cv.pdf") [ target "_blank" ] [ text "CV" ]
|