17 lines
469 B
Elm
17 lines
469 B
Elm
module Views.Author exposing (view)
|
|
|
|
{-| View an author. We basically render their username and a link to their
|
|
profile, and that's it.
|
|
-}
|
|
|
|
import Data.User as User exposing (Username)
|
|
import Html exposing (Html, a)
|
|
import Html.Attributes exposing (attribute, class, href, id, placeholder)
|
|
import Route exposing (Route)
|
|
|
|
|
|
view : Username -> Html msg
|
|
view username =
|
|
a [ class "author", Route.href (Route.Profile username) ]
|
|
[ User.usernameToHtml username ]
|