···42424343 let state t = Jv.get t "state" |> State.of_jv
44444545+ let set_state t v = Jv.call t "setState" [| State.to_jv v |] |> ignore
4646+4547 (* TODO *)
4648 module Update = struct
4749 type t = Jv.t
+2
src/editor.mli
···4444 val state : t -> State.t
4545 (** Current editor state *)
46464747+ val set_state : t -> State.t -> unit
4848+4749 module Update : sig
4850 type t
4951