website/app/Header.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" ]