OnEnter.elm

import Json.Decoder as Decode
import Html.Events exposing (keyCode, on)
       
onEnter : msg -> Attribute msg
onEnter msg =
    on "keydown" (keyCode |> Decode.andThen (enterDecoder msg))
       
enterDecoder : msg -> Int -> Decoder msg
enterDecoder msg keyCode =
     case keyCode of
        13 ->
            Decode.succeed msg
         
        _ ->
            Decode.fail "Not enter key"