From f4a59ed2811d4dca2daad58d083078c01488dd11 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 15:54:32 +0100
Subject: Added prosemirror deps

---
 editor/quill.ml | 101 --------------------------------------------------------
 1 file changed, 101 deletions(-)
 delete mode 100755 editor/quill.ml

(limited to 'editor/quill.ml')

diff --git a/editor/quill.ml b/editor/quill.ml
deleted file mode 100755
index 8069d90..0000000
--- a/editor/quill.ml
+++ /dev/null
@@ -1,101 +0,0 @@
-open Brr
-
-type t = Jv.t
-
-type options
-
-let bounds
-  : (options, El.t) J.prop
-  = J.prop "bounds"
-
-let debug
-  : (options, Jstr.t) J.prop
-  = J.prop "debug"
-
-let placeholder
-  : (options, Jstr.t) J.prop
-  = J.prop "placeholder"
-
-let readonly
-  : (options, Jstr.t) J.prop
-  = J.prop "readonly"
-
-let theme
-  : (options, Jstr.t) J.prop
-  = J.prop "theme"
-
-let scrollingContainer
-  : (options, El.t) J.prop
-  = J.prop "scrollingContainer"
-
-let options
-  : unit -> options
-  =  Jv.Id.of_jv @@ Jv.obj' [||]
-
-(** Constructor.
-
-    [quill element] will create the editor inside the given element
-
-*)
-let quill
-  : ?options:options -> El.t -> (t, Jv.Error.t) Result.t
-  = fun ?options element ->
-    let quill = Jv.get Jv.global "Quill" in
-
-    let options = Jv.of_option ~none:Jv.undefined Jv.Id.to_jv options in
-
-    match Jv.new' quill Jv.Id.[| to_jv element; options |] with
-    | exception Jv.Error e -> Error e
-    | v -> Ok v
-
-
-type delta = Jv.t
-
-let delta_to_json
-  : delta -> Brr.Json.t
-  = Jv.Id.to_jv
-
-let delta_of_json
-  : Brr.Json.t -> delta
-  = Jv.Id.of_jv
-
-(* Operations is an array *)
-type operations = Jv.t
-
-let ops
-  : (delta, operations) J.prop
-  = J.prop "ops"
-
-
-(** Return the editor content *)
-let get_contents
-  : t -> delta
-  = fun t ->
-    Jv.call t "getContents" [||]
-
-let set_contents
-  : t -> delta -> unit
-  = fun t contents ->
-    ignore @@ Jv.call t "setContents" [|contents|]
-
-(** [extract_content t index length] return the content starting from index,
-    with length elements *)
-let extract_contents
-  : t -> int -> int -> delta
-  = fun t index length ->
-    Jv.call t "getContents" [|Jv.of_int index; Jv.of_int length|]
-
-let on_text_change
-  : t -> (string -> string -> string -> unit) -> unit
-  = fun t callback ->
-    ignore @@ Jv.call t "on" [|Jv.Id.to_jv @@ Jstr.v "text-change" ; Jv.repr callback|]
-
-(* [update_contents t delta] replace the content with the commands given
-   by delta.
-*)
-let update_contents
-  : t -> delta -> delta
-  = fun t delta ->
-    Jv.call t "updateContents" [|delta|]
-
-
-- 
cgit v1.2.3