jon.recoil.org
A fork of mtelver's day10 project
1open Brr
2
3type t = Jv.t
4
5include (Jv.Id : Jv.CONV with type t := t)
6
7let create ?mount ?update ?top ?pos dom =
8 let o = Jv.obj [||] in
9 Jv.set_if_some o "mount" (Option.map Jv.repr mount);
10 Jv.set_if_some o "update"
11 (Option.map
12 (fun u ->
13 let u' jv = u (Editor.View.Update.of_jv jv) in
14 u')
15 update
16 |> Option.map Jv.repr);
17 Jv.Bool.set_if_some o "top" top;
18 Jv.Int.set_if_some o "pos" pos;
19 Jv.set o "dom" (El.to_jv dom);
20 o