diff options
Diffstat (limited to 'editor/prosemirror/prosemirror.ml')
-rwxr-xr-x | editor/prosemirror/prosemirror.ml | 18 |
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 |