Added markdown output

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