Elm component realised <Link> component from react-router

Link.elm

{- usage:
View.elm

view : Model -> Html Msg
view model =
    div []
        [ link { href = "/lala1", text = "change link" }
        ]

-}



module Components.Link exposing (link)

import Json.Decode as Json
import Html exposing (Html, Attribute, a, text)
import Html.Attributes exposing (href)
import Html.Events exposing (onWithOptions)
import Message exposing (Msg(NavigateTo))


type alias Options =
    { href : String
    , text : String
    }


preventDefault : String -> Attribute Msg
preventDefault href =
    onWithOptions "click" { stopPropagation = False, preventDefault = True } (Json.succeed (NavigateTo href))


link : Options -> Html Msg
link options =
    a [ href options.href, preventDefault options.href ] [ text options.text ]