在elm mdl Textfield中侦听OneNet事件

我在尝试侦听Material.Textfield组件中的OneNet事件时遇到问题。我想我应该使用Options.on和解码器来实现它，但我不确定如何实现解码器。谢谢你的帮助

  [ Card.actions []
      [ 
         Textfield.render Mdl [ 1 ] mdl [ Options.on "keydown" someDecoder, Options.onInput ChatInput] []
      ]
   ]

---

通过使用Material.Options.on创建自定义事件处理程序解决了此问题

import Html.Events exposing (keyCode)
import Json.Decode as JD
import Material.Options as Options


Textfield.render Mdl [ 1 ] mdl [ Options.on "keydown" (JD.andThen isEnter keyCode) ] []


isEnter : number -> JD.Decoder Msg
isEnter code =
   if code == 13 then
      JD.succeed SendMsg
   else
      JD.fail "not Enter"