jon.recoil.org
this repo has no description
1open Brr
2
3type t = Jv.t
4
5let mutation_observer = Jv.get Jv.global "MutationObserver"
6
7let create callback =
8 let callback = Jv.callback ~arity:2 callback in
9 Jv.new' mutation_observer [| callback |]
10
11let disconnect t =
12 let _ : Jv.t = Jv.call t "disconnect" [||] in
13 ()
14
15let observe t ~target =
16 let config =
17 Jv.obj
18 Jv.[| ("attributes", true'); ("childList", true'); ("subtree", true') |]
19 in
20 let _ : Jv.t = Jv.call t "observe" [| El.to_jv target; config |] in
21 ()