Mutation observer

src/MutationObserverAPI.res

@@ -0,0 +1,19 @@
+open DOMAPI
+
+/**
+[See MutationObserver on MDN](https://developer.mozilla.org/docs/Web/API/MutationObserver)
+*/
+@editor.completeFrom(MutationObserver)
+type mutationObserver
+
+type mutationObserverInit = {
+  mutable childList?: bool,
+  mutable attributes?: bool,
+  mutable characterData?: bool,
+  mutable subtree?: bool,
+  mutable attributeOldValue?: bool,
+  mutable characterDataOldValue?: bool,
+  mutable attributeFilter?: array<string>,
+}
+
+type mutationObserverCallback = (array<mutationRecord>, mutationObserver) => unit

src/MutationObserverAPI/MutationObserver.res

@@ -0,0 +1,27 @@
+open DOMAPI
+open MutationObserverAPI
+
+/**
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/MutationObserver)
+*/
+@new
+external make: mutationObserverCallback => mutationObserver = "MutationObserver"
+
+/**
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/MutationObserver/observe)
+*/
+@send
+external observe: (mutationObserver, ~target: node, ~options: mutationObserverInit=?) => unit =
+  "observe"
+
+/**
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/MutationObserver/disconnect)
+*/
+@send
+external disconnect: mutationObserver => unit = "disconnect"
+
+/**
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/MutationObserver/takeRecords)
+*/
+@send
+external takeRecords: mutationObserver => array<mutationRecord> = "takeRecords"

tests/MutationObserverAPI/MutationObserver__test.res

@@ -0,0 +1,21 @@
+let observer = MutationObserver.make((mutations, obs) => {
+  let button = Global.document->Document.querySelector("button")
+  switch button->Null.toOption {
+  | Some(button) => {
+      Console.log(button)
+      obs->MutationObserver.disconnect
+    }
+  | None => ()
+  }
+  Console.log(mutations)
+})
+
+observer->MutationObserver.observe(
+  ~target=Global.document->Document.asNode,
+  ~options={childList: true, subtree: true},
+)
+
+let records = observer->MutationObserver.takeRecords
+Console.log(records->Array.length)
+
+observer->MutationObserver.disconnect