Положение курсора потеряно при обновлении contenteditable div в Elm

Как я могу сохранить курсор в нужном месте при вводе содержимого div?

Я использую Elm для создания текстового поля, и мне нужно, чтобы текст в поле обрабатывался при каждом вводе. Причина использования contenteditable div, а не textarea, заключается в том, что мне нужно уметь распознавать определенные слова и превращать их в интерактивные ссылки по мере ввода.

Проблема в том, что когда текст обновляется, курсор возвращается в начало текста, поэтому все набирается в обратном порядке.

Вот минимальный пример, демонстрирующий проблему:

module Main exposing (..)

import Html
import Html.Events as Hev
import Html.Attributes as Hat
import Json.Decode as Json

main : Program Never Model Msg
main =
    Html.beginnerProgram
        { model = ""
        , update = update
        , view = view
        }

type Msg = NewText String

type alias Model = String

view : Model -> Html.Html Msg
view model =
    Html.div
        [ Hat.contenteditable True
        , Hev.on "input" (Json.map NewText targetTextContent)
        , Hat.style
            [ ("border", "1px solid darkgray") ]
        ]
        [ Html.text model
        ]

targetTextContent : Json.Decoder String
targetTextContent =
    Json.at ["target", "innerText"] Json.string

update : Msg -> Model -> Model
update msg model =
    case msg of
        NewText text -> text