blob: 7a723d3b103624bb669a94b6798c73d7fdfc9f1b (
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
|
open Js_of_ocaml
open Brr
type t
val v
: unit -> t
module O = Bindings.TypedObject
module rec Model : sig
include module type of Bindings.Model
val schema_spec:
node_spec Bindings.ordered_map Js.t
-> mark_spec Bindings.ordered_map Js.t option
-> string option
-> schema_spec Js.t
val schema
: t -> schema_spec Js.t -> schema Js.t
module DOMParser : sig
type parser
val from_schema
: t -> schema Js.t -> parser
val parse
: parser -> El.t -> node Js.t
end
val empty_fragment
: t -> fragment Js.t
module Dom_output_spec : sig
val v
: ?attrs:< .. > -> string -> domOutputSpec Js.t list -> domOutputSpec Js.t
(** Hole element inside an output_spec element *)
val hole
: domOutputSpec Js.t
val of_el
: Brr.El.t -> domOutputSpec Js.t
val of_jstr
: Jstr.t -> domOutputSpec Js.t
val of_obj
: < dom: node Js.t Js.readonly_prop ; contentDOM : node Js.t Js.opt Js.readonly_prop > Js.t -> domOutputSpec Js.t
end
end
and SchemaList : sig
val add_list_nodes
: t -> Model.node_spec Bindings.ordered_map Js.t -> Jstr.t -> Jstr.t option -> Model.node_spec Bindings.ordered_map Js.t
end
(* State *)
and State : sig
include module type of Bindings.State
val configuration_prop
: unit -> configuration_prop Js.t
val creation_prop
: unit -> creation_prop Js.t
val create
: t -> creation_prop Js.t -> editor_state Js.t
val fromJSON
: t -> configuration_prop Js.t -> Brr.Json.t -> editor_state Js.t
val selection_to
: selection Js.t -> Model.resolved_pos Js.t
val selection_at_start
: t-> Model.node Js.t -> selection Js.t
val is_selectable
: t -> Model.node Js.t -> bool Js.t
val node_selection
: t -> Model.resolved_pos Js.t -> node_selection Js.t
val create_node_selection
: t -> Model.node Js.t -> int -> node_selection Js.t
val create_text_selection
: t -> Model.node Js.t -> int -> text_selection Js.t
type dispatch = (transaction Js.t -> unit)
type command = editor_state Js.t -> dispatch Js.opt -> bool Js.t
end
(* Editor view *)
and View : sig
module EditorProps : sig
type t
end
include module type of Bindings.View
val direct_editor_props
: unit -> direct_editor_props Js.t
val editor_view
: t -> El.t -> direct_editor_props Js.t -> editor_view Js.t
end
module SchemaBasic : sig
include module type of Bindings.SchemaBasic
val schema
: t -> Model.schema Js.t
val nodes
: t -> nodes Js.t
end
module History : sig
include module type of Bindings.History
val history_prop
: unit -> history_prop Js.t
val history
: t -> history_prop Js.t -> State.plugin Js.t
val undo
: t -> State.command
val redo
: t -> State.command
end
module Keymap : sig
val keymap
: t -> (string * State.command) array -> State.plugin Js.t
end
module Commands : sig
val baseKeymap
: t -> (string * State.command) array
val set_block_type
: t -> Model.node_type Js.t -> < .. > Js.t -> State.command
end
(* Example Setup *)
module Example : sig
include module type of Bindings.Example
val options
: Model.schema Js.t -> options Js.t
val example_setup
: t -> options Js.t -> State.plugin Js.t Js.js_array Js.t
end
|