From da1d9ad1c49f31fc9031fd1bc6661dad3600e40c Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Fri, 4 Jun 2021 22:56:27 +0200
Subject: Added markdown output

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

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

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
-- 
cgit v1.2.3