blob: be15718b89615011c9769bbfb76e5016800d61ef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
|
open Js_of_ocaml
open Brr
open Note
let storage_key = (Jstr.v "content")
(** Save the text into the local storage *)
let save_contents
: Quill.t -> unit
= fun editor ->
let storage = Brr_io.Storage.local G.window in
let contents = Quill.get_contents editor in
Brr_io.Storage.set_item
storage
storage_key
(Json.encode @@ Quill.delta_to_json @@ contents)
|> Console.log_if_error ~use:()
(** Load the content from the cache storage *)
let load_contents
: Quill.t -> unit
= fun editor ->
let storage = Brr_io.Storage.local G.window in
Brr_io.Storage.get_item
storage
storage_key
|> Option.iter (fun contents ->
Json.decode contents
|> Result.map (fun json ->
Quill.delta_of_json json
|> Quill.set_contents editor
)
|> Console.log_if_error ~use:()
)
let quill id =
begin match (Jv.is_none id) with
| true -> Console.(error [str "No element with id '%s' found"; id])
| false ->
let options = Quill.options () in
J.set options Quill.placeholder (Jstr.v "Nouvelle note…");
J.set options Quill.theme (Jstr.v "snow");
(* Create the editor with the configuration *)
Quill.quill ~options (Jv.Id.of_jv id)
|> Result.iter (fun editor ->
load_contents editor;
let () = Quill.on_text_change editor (fun delta old source ->
let _ = delta
and _ = old
and _ = source
in
()
)
in
(* Attach an event on focus out *)
let out_event = Brr_note.Evr.on_el
(Ev.focusout)
(fun _ -> save_contents editor)
(Jv.Id.of_jv id) in
(* Prevent the event to be garbage collected *)
E.log out_event (fun _ -> ())
|> Option.iter Logr.hold
)
end
let create_new_state pm pm_model pm_state mySchema content =
let module PM = Prosemirror in
let doc = PM.Model.(
DOMParser.parse
(DOMParser.from_schema pm_model mySchema)
(Jv.Id.of_jv content)) in
let props = PM.State.creation_prop () in
props##.doc := Js.some doc;
props##.plugins := Js.some (PM.example_setup pm mySchema);
PM.State.create
pm_state
props
let storage_key = (Jstr.v "editor")
let prosemirror id content =
begin match (Jv.is_none id), (Jv.is_none content) with
| false, false ->
let module PM = Prosemirror in
let pm = PM.v () in
let ( let+ ) o f = Option.iter f o
and ( and+ ) a b =
match a, b with
| Some a, Some b -> Some (a, b)
| _ -> None
in
let+ pm_state = J.get pm PM.state
and+ pm_view = J.get pm PM.view
and+ pm_model = J.get pm PM.model
and+ schema_basic = J.get pm PM.schema_basic
and+ schema_list = J.get pm PM.schema_list
in
let _ = schema_basic
and _ = schema_list in
let mySchema = Js_of_ocaml.Js.Unsafe.eval_string {|new PM.model.Schema({
nodes: PM.schema_list.addListNodes(PM.schema_basic.schema.spec.nodes, "paragraph block*", "block"),
marks: PM.schema_basic.schema.spec.marks
})|} in
(* Create the initial state *)
let storage = Brr_io.Storage.local G.window in
let opt_data = Brr_io.Storage.get_item storage storage_key in
let state = match opt_data with
| None -> create_new_state pm pm_model pm_state mySchema content
| Some contents ->
(* Try to load from the storage *)
begin match Json.decode contents with
| Error _ -> create_new_state pm pm_model pm_state mySchema content
| Ok json ->
Console.(log [Jstr.v "Loading json"]);
let history = PM.History.(history pm (history_prop ()) ) in
Console.(log [history]);
let _ = history in
let obj = PM.State.configuration_prop () in
obj##.plugins := Js.some (PM.example_setup pm mySchema);
obj##.schema := mySchema;
PM.State.fromJSON pm_state obj json
end
in
let props = PM.View.direct_editor_props () in
props##.dispatchTransaction := (Js.wrap_meth_callback (fun view transaction ->
Console.(log [ Jstr.v "Document size went from"
; transaction##.before##.content##.size ]);
let state = view##.state##apply transaction in
view##updateState state
));
props##.state := state;
let view = PM.View.editor_view
pm_view
(Jv.Id.of_jv id)
props in
view##setProps props;
(* Attach an event on focus out *)
let _out_event = Brr_note.Evr.on_el
(Ev.focusout)
(fun _ ->
let contents = view##.state##toJSON () in
let storage = Brr_io.Storage.local G.window in
Brr_io.Storage.set_item
storage
storage_key
(Json.encode @@ contents)
|> Console.log_if_error ~use:()
)
(Jv.Id.of_jv id) in
()
| _, _-> Console.(error [str "No element with id '%s' '%s' found"; id ; content])
end
let () =
let open Jv in
let editor = obj
[| "attach_quill", (repr quill)
; "attach_prosemirror", (repr prosemirror)
|] in
set global "editor" editor
|