Key struct - both outgoing "SetWindowKeys" and incoming keypress messages.

Only one WindowKeyCmd for now, SetWindowKeys. Use an empty list to stop all key messages.

json to Key struct

Key struct to json

make a subscription function with receive and a port, like so:

port receiveKeyMsg : (JD.Value -> msg) -> Sub msg
keyreceive =
    receiveKeyMsg <| WindowKey.receive WsMsg

Where WkMsg is defined in your app like this:

type Msg
    = WkMsg (Result JD.Error WindowKey.WindowKeyMsg)
    | <other message types>

then in your application subscriptions:

subscriptions =
   \_ -> keyreceive

use send to make a convenience function, like so:

port sendKeyCommand : JE.Value -> Cmd msg
wksend =
   WindowKey.send sendKeyCommand

then you can call (makes a Cmd):

wksend <|
    SetWindowKeys
        [ { key = "s"
          , ctrl = True
          , alt = False
          , shift = False
          , preventDefault = True }
        , { key = "Enter"
          , ctrl = False
          , alt = False
          , shift = False
          , preventDefault = False }
        ]