feat: add bindings for HTMLFormControlsCollection, RadioNodeList, etc

Author: rob

CHANGELOG.md

@@ -1,3 +1,13 @@
+### 0.20.0
+
+* Upgraded to [email protected]
+* Added bindings for `HTMLFormControlsCollection`
+* Added binding for `HTMLOptionsCollection`
+* Added bindings for `RadioNodeList`
+* Added binding for `Document.forms`
+* Added binding for `HTMLFormElement.elements`
+* ResizeObserver and ResizeObserverEntry now use the rescript Dom phantom type
+
 ### 0.19.0
 
 * Added bindings to `ReadableStream`

package.json

@@ -1,6 +1,6 @@
 {
   "name": "bs-webapi",
-  "version": "0.19.0",
+  "version": "0.20.0",
   "description": "Reason + BuckleScript bindings to DOM",
   "repository": {
     "type": "git",
@@ -26,7 +26,7 @@
   "author": "chenglou",
   "license": "MIT",
   "devDependencies": {
-    "bs-platform": "^7.1.0"
+    "bs-platform": "^8.2.0"
   },
   "dependencies": {
     "bs-fetch": "^0.6.2"

src/Webapi/Dom/Webapi__Dom__Document.re

@@ -34,6 +34,8 @@ module Impl = (T: {type t;}) => {
   [@bs.get] external implementation : T.t => Dom.domImplementation = "";
   [@bs.get] external lastStyleSheetSet : T.t => string = "";
   [@bs.get] [@bs.return nullable] external pointerLockElement : T.t => option(Dom.element) = ""; /* experimental */
+  /** @since 0.20.0 */
+  [@bs.get] external forms : T.t => Dom.htmlCollection = "";
 
   [@bs.get] external preferredStyleSheetSet : T.t => string = "";
   [@bs.get] [@bs.return nullable] external scrollingElement : T.t => option(Dom.element) = "";

src/Webapi/Dom/Webapi__Dom__HtmlCollection.re

@@ -1,7 +1,12 @@
-type t = Dom.htmlCollection;
+module Impl = (T: { type t;}) => {
+  type t_htmlCollection = T.t;
+  [@bs.val] [@bs.scope ("Array", "prototype", "slice")] external toArray : t_htmlCollection => array(Dom.element) = "call";
+
+  [@bs.get] external length : t_htmlCollection => int = "";
+  [@bs.send.pipe : t_htmlCollection] [@bs.return nullable] external item : int => option(Dom.element) = "";
+  [@bs.send.pipe : t_htmlCollection] [@bs.return nullable] external namedItem : string => option(Dom.element) = "";
+};
 
-[@bs.val] [@bs.scope ("Array", "prototype", "slice")] external toArray : t => array(Dom.element) = "call";
+type t = Dom.htmlCollection;
 
-[@bs.get] external length : t => int = "";
-[@bs.send.pipe : t] [@bs.return nullable] external item : int => option(Dom.element) = "";
-[@bs.send.pipe : t] [@bs.return nullable] external namedItem : string => option(Dom.element) = "";
+include Impl({ type nonrec t = t; });

src/Webapi/Dom/Webapi__Dom__HtmlFormControlsCollection.re

@@ -0,0 +1,40 @@
+type t = Dom.htmlFormControlsCollection;
+
+type t_namedItem = [
+  | `RadioNodeList(Dom.radioNodeList)
+  | `Button(Dom.htmlButtonElement)
+  | `Fieldset(Dom.htmlFieldSetElement)
+  | `Input(Dom.htmlInputElement)
+  | `Object(Dom.htmlObjectElement)
+  | `Output(Dom.htmlOutputElement)
+  | `Select(Dom.htmlSelectElement)
+  | `Textarea(Dom.htmlTextAreaElement)
+];
+
+include Webapi__Dom__HtmlCollection.Impl({ type nonrec t = t; });
+
+let isRadioNodeList: 'a => bool = [%raw {|
+  function(x) { return x instanceof RadioNodeList; }
+|}];
+
+[@bs.send] [@bs.return nullable] external _namedItem: (t, string) => option('a) = "namedItem";
+let namedItem = (t, string) =>
+  switch (_namedItem(t, string)) {
+  | Some(el) =>
+    if (Webapi__Dom__RadioNodeList.unsafeAsRadioNodeList(el)->isRadioNodeList) {
+      el->Obj.magic->`RadioNodeList->Some;
+    } else {
+      switch (Webapi__Dom__Element.tagName(el)) {
+      // fixme: this should be a classify function in Webapi__Dom__HtmlElement
+      | "button" => el->Obj.magic->`Button->Some
+      | "fieldset" => el->Obj.magic->`Fieldset->Some
+      | "input" => el->Obj.magic->`Input->Some
+      | "object" => el->Obj.magic->`Object->Some
+      | "output" => el->Obj.magic->`Output->Some
+      | "select" => el->Obj.magic->`Select->Some
+      | "textarea" => el->Obj.magic->`Textarea->Some
+      | _ => None
+      };
+    }
+  | None => None
+  };

src/Webapi/Dom/Webapi__Dom__HtmlFormElement.re

@@ -6,7 +6,8 @@
 module Impl = (T: {type t;}) => {
   type t_htmlFormElement = T.t;
 
-  /* TODO: elements: HTMLFormControlsCollection */
+  /** @since 0.20.0 */
+  [@bs.get] external elements : t_htmlFormElement => Webapi__Dom__HtmlFormControlsCollection.t = "elements";
   [@bs.get] external length : t_htmlFormElement => int = "";
   [@bs.get] external name : t_htmlFormElement => string = "";
   [@bs.set] external setName : (t_htmlFormElement, string) => unit = "name";

src/Webapi/Dom/Webapi__Dom__HtmlOptionsCollection.re

@@ -0,0 +1,2 @@
+type t = Dom.htmlOptionsCollection;
+include Webapi__Dom__HtmlCollection.Impl({ type nonrec t = t; });

src/Webapi/Dom/Webapi__Dom__NodeList.re

@@ -1,9 +1,15 @@
-type t = Dom.nodeList;
+module Impl = (T: {type t;}) => {
+  type t_nodeList = T.t;
+
+  [@bs.val] external toArray : t_nodeList => array(Dom.node) = "Array.prototype.slice.call";
 
-[@bs.val] external toArray : t => array(Dom.node) = "Array.prototype.slice.call";
+  [@bs.send.pipe : t_nodeList] external forEach : ((Dom.node, int) => unit) => unit = "";
 
-[@bs.send.pipe : t] external forEach : ((Dom.node, int) => unit) => unit = "";
+  [@bs.get] external length : t_nodeList => int = "";
 
-[@bs.get] external length : t => int = "";
+  [@bs.send.pipe : t_nodeList] [@bs.return nullable] external item : int => option(Dom.node) = "";
+};
+
+type t = Dom.nodeList;
 
-[@bs.send.pipe : t] [@bs.return nullable] external item : int => option(Dom.node) = "";
+include Impl({ type nonrec t = t; });

src/Webapi/Dom/Webapi__Dom__RadioNodeList.re

@@ -0,0 +1,11 @@
+module Impl = (T: {type t;}) => {
+  type t_radioNodeList = T.t;
+  [@bs.get] external value: t_radioNodeList => string = "value";
+
+  external unsafeAsRadioNodeList: 'a => t_radioNodeList = "%identity";
+};
+
+type t = Dom.radioNodeList;
+
+include Webapi__Dom__NodeList.Impl({type nonrec t = t;});
+include Impl({type nonrec t = t;});

src/Webapi/ResizeObserver/Webapi__ResizeObserver__ResizeObserverEntry.re

@@ -1,4 +1,4 @@
-type t;
+type t = Dom.resizeObserverEntry;
 
 [@bs.get] external contentRect: t => Dom.domRect = "";
 [@bs.get] external target: t => Dom.element = "";