From 7d83ee3912582d3435d5a7c5fe4cb8a21617425b Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Thu, 8 Apr 2021 20:27:36 +0200
Subject: Added custom link popin in text editor

---
 editor/prosemirror/prosemirror.ml | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'editor/prosemirror/prosemirror.ml')

diff --git a/editor/prosemirror/prosemirror.ml b/editor/prosemirror/prosemirror.ml
index 8c436a3..2a9b92c 100755
--- a/editor/prosemirror/prosemirror.ml
+++ b/editor/prosemirror/prosemirror.ml
@@ -16,6 +16,24 @@ module Model = struct
 
   include Bindings.Model
 
+  module Mark = struct
+
+    let _set_from
+      : t -> 'a Js.t -> mark Js.t
+      = fun t element ->
+        let model = Jv.get t "model" in
+        let class_ = Jv.get model "Mark" in
+        Jv.call (Jv.Id.to_jv class_ ) "setFrom" [|Jv.Id.to_jv element |]
+        |> Jv.Id.of_jv
+
+
+    let set_from_mark
+      : t -> mark Js.t -> mark Js.t
+      = _set_from
+
+
+  end
+
   module DOMParser = struct
 
 
-- 
cgit v1.2.3