BS-tea set cursor code

callback.ml

let setBrowserPos offset =
  Tea.Cmd.call (fun _ ->
      (* We need to set this in the new frame, as updating sets the cursor to *)
      (* the start of the DOM node. *)
      ignore
        (Web.Window.requestAnimationFrame (fun _ -> setCursorPosition offset)) ;
      () )

setCursorPosition.js

function setCursorPosition (pos) {
  var editor = document.querySelector(".selected #fluid-editor");
  if (!editor) {
    console.log("no editor");
    return;
  }
  if (pos < 0) pos = 0;
  if (pos > editor.textContent.length)
    pos = editor.textContent.length;
  for (var i = 0; i < editor.childNodes.length; i++) {
    let node = editor.childNodes[i];
    let length = node.textContent.length;
    if (pos <= length) {
      let range = document.createRange();
      range.setStart(node.childNodes[0], pos);
      range.setEnd(node.childNodes[0], pos);
      range.collapse(true);
      let selection = document.getSelection();
      selection.removeAllRanges();
      selection.addRange(range);
      node.focus();
      return;
    } else {
      pos -= length;
    }
  }
}