如何检测Elm中的shift-enter？

Question

我调整了onenter代码todomvc example创建onShiftEnter，但它不起作用。显然，shiftKey没有传递给榆树。那么，我该如何检测shift-Enter？

onShiftEnter : Msg -> Attribute Msg 
onShiftEnter msg = 
    let 
    tagger (code, shift) = 
     if code == 13 && shift then msg else NoOp 
    in 
    on "keydown" 
     (Json.Decode.map tagger 
      (Json.Decode.tuple2 (,) 
       (Json.Decode.at ["keyCode"] Json.Decode.int) 
       (Json.Decode.at ["shiftKey"] Json.Decode.bool) 
     ) 
     ) 

Answer 1

使用Json.Decoder.object2代替。 Json.Decoder.tuple2用于解码数组。

import Json.Decode as Json exposing ((:=)) 

onShiftEnter : Msg -> Attribute Msg 
onShiftEnter msg = 
    let 
    tagger (code, shift) = 
     if code == 13 && shift then msg else NoOp 
    keyExtractor = 
     Json.object2 (,) 
     ("keyCode" := Json.int) 
     ("shiftKey" := Json.bool) 
    in 
    on "keydown" <| Json.map tagger keyExtractor 

Answer 2

来看由https://developer.mozilla.org/en-US/docs/Web/Events/keydown，你所需要的， '钥匙'，而不是 '代码'，即

(Json.Decode.at ["shiftKey"] Json.Decode.bool)