Escape Listener

Esc.elm

onEsc : msg -> Decoder msg
onEsc msg =
    Decode.map2
        (\keyCode key ->
            keyCode == 27 || key == "Escape"
        )
        keyCode
        (Decode.field "key" Decode.string)
        |> Decode.andThen
            (\match ->
                if match then
                    Decode.succeed msg
                else
                    Decode.fail ""
            )