jon.recoil.org
forked from
anil.recoil.org/monopam-myspace
My aggregated monorepo of OCaml code, automaintained
1type t = Jv.t
2
3include (Jv.Id : Jv.CONV with type t := t)
4
5let compartment = Jv.get Jv.global "__CM__compartment"
6let make () = Jv.new' compartment [||]
7
8let of' t extensions =
9 Jv.call t "of" [| Jv.of_list Extension.to_jv extensions |] |> Extension.of_jv
10
11let reconfigure t ext =
12 let state_effect =
13 Jv.call t "reconfigure" [| Jv.of_list Extension.to_jv ext |]
14 in
15 Jv.obj [| ("effects", state_effect) |] |> Editor.View.Transaction.of_jv