Ctrl-Enter Form Event

Main.elm

module Main exposing (main)

import Html exposing (Html)
import Html.Events as Events
import Json.Decode as Decode


type alias KeyUpEvent =
    { ctrlKey : Bool
    , key : String
    }
    
eventDecoder =
    Decode.map2 Event
        (Decode.field "ctrlKey" Decode.bool)
        (Decode.field "key" Decode.string)

onKeyUp =
    Events.on "keyup" eventDecoder

model = ""

type Msg 
    = Event Bool String

update msg model =
    case msg of
        Event ctrlKey key ->
            toString <| ctrlKey && key == "Enter"

main =
    Html.beginnerProgram 
        { model = model
        , update = update
        , view = view
        }
        
view model =
    Html.form 
        [ onKeyUp ]
        [ Html.textarea [] []
        , Html.div [] [ Html.text model ]
        ]