1 files changed, 18 insertions, 0 deletions
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