ContentEditableDiv.elm

import StartApp.Simple exposing (start)
import Html exposing (Html, div, text)
import Html.Attributes exposing (contenteditable)
import Html.Events exposing (on, targetValue)


-- Model
type alias Model = String

init : Model
init = "Foo"

-- Update
type Action
  = Update String

update : Action -> Model -> Model
update action model =
  case action of
    Update content -> content


-- View

targetText : Json.Decode.Decoder String
targetText =
  Json.Decode.at [ "target", "innerText" ] Json.Decode.string
  
  
view : Signal.Address Action -> Model -> Html
view address model =
  div []
    [
      div [ contenteditable True
          , on "blur" targetText (Signal.message address << Update)
          ] [ text model ]
    , div [] [ text model ]
    ]


main =
  start
  { model = init
  , update = update
  , view = view
  }