View.Attribution

The implementation was based on the .attribution block.

• View Options
• View Function
• Source Code

View Options

type alias ViewOptions =
    { name : String
    , title : String
    , url : String
    }

View Function

view : ViewOptions -> H.Html msg
view { name, title, url } =
    H.p [ HA.class "attribution" ]
        [ H.text "Developed by "
        , H.a
            [ HA.class "attribution__link"
            , HA.href url
            , HA.target "_blank"
            , HA.title title
            ]
            [ H.text name ]
        ]

Source Code

• src/View/Attribution.elm