feat(rescript-intersection-observer): add new observer with option

Author: r17x

examples/dev/dev__intersection.js

@@ -23,6 +23,32 @@ let observer = Intersection.Observer.new(entries => {
   }
 })
 
+let observerWithOptions = Intersection.Observer.newWithOption(entries => {
+  switch entries {
+  | [head] => {
+      head->Intersection.ObserverEntry.intersectionRatio->Js.log
+      head->Intersection.ObserverEntry.boundingClientRect->DOMRect.x->Js.log
+      head->Intersection.ObserverEntry.boundingClientRect->DOMRect.width->Js.log
+      head->Intersection.ObserverEntry.boundingClientRect->DOMRect.height->Js.log
+      head->Intersection.ObserverEntry.boundingClientRect->DOMRect.top->Js.log
+      head->Intersection.ObserverEntry.boundingClientRect->DOMRect.right->Js.log
+      head->Intersection.ObserverEntry.boundingClientRect->DOMRect.bottom->Js.log
+      head->Intersection.ObserverEntry.boundingClientRect->DOMRect.left->Js.log
+      head->Intersection.ObserverEntry.boundingClientRect->DOMRect.toJson->Js.log
+      head->Intersection.ObserverEntry.time->Js.log
+      head->Intersection.ObserverEntry.isVisible->Js.log
+      head->Intersection.ObserverEntry.target->Js.log
+      let rect = DOMRect.rect(~x=1.0, ~y=2.0, ())
+      rect->DOMRect.fromRect->Js.log
+    }
+  | _ => ()
+  }
+}, Intersection.ObserverInit.new(~rootMargin="0px", ()))
+
+observerWithOptions->Intersection.Observer.observe(htmlDom())
+
+observerWithOptions->Intersection.Observer.unobserve(htmlDom())
+
 observer->Intersection.Observer.observe(htmlDom())
 
 observer->Intersection.Observer.unobserve(htmlDom())

examples/dev/dev__intersection.res

@@ -20,11 +20,27 @@ module ObserverEntry = {
   external time: t => float = "time"
 }
 
+module ObserverInit = {
+  type t
+
+  @obj
+  external new: (
+    ~root: Dom.element=?,
+    ~rootMargin: string=?,
+    ~thresholds: array<float>=?,
+    unit,
+  ) => t = ""
+}
+
 module Observer = {
   type t = Dom.intersectionObserver
 
   @new
   external new: (array<ObserverEntry.t> => unit) => t = "IntersectionObserver"
+
+  @new
+  external newWithOption: (array<ObserverEntry.t> => unit, ObserverInit.t) => t =
+    "IntersectionObserver"
   // properties
 
   // TODO: intersectionObserver.root return Dom.element or Dom.document