diff options
Diffstat (limited to 'editor/prosemirror/prosemirror.ml')
-rwxr-xr-x | editor/prosemirror/prosemirror.ml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/editor/prosemirror/prosemirror.ml b/editor/prosemirror/prosemirror.ml index 48dbfd0..e413084 100755 --- a/editor/prosemirror/prosemirror.ml +++ b/editor/prosemirror/prosemirror.ml @@ -16,6 +16,18 @@ module Model = struct include Bindings.Model + module Fragment = struct + + let from_array + : t -> node Js.t Js.js_array Js.t -> fragment Js.t + = fun t elements -> + let model = Jv.get t "model" in + let class_ = Jv.get model "Fragment" in + Jv.call (Jv.Id.to_jv class_ ) "fromArray" [|Jv.Id.to_jv elements |] + |> Jv.Id.of_jv + + end + module Mark = struct let _set_from |