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.1
 
 * Removed dev dependency on `bsdoc` to allow smooth installs on non-Mac

lib/js/tests/Webapi/Webapi__Blob__test.js

@@ -2,9 +2,9 @@
 
 
 function test_arrayBuffer(blob) {
-  return blob.arrayBuffer().then((function (buffer) {
-                return Promise.resolve((console.log(buffer.byteLength), undefined));
-              }));
+  return blob.arrayBuffer().then(function (buffer) {
+              return Promise.resolve((console.log(buffer.byteLength), undefined));
+            });
 }
 
 function test_size(blob) {
@@ -23,9 +23,9 @@ function test_stream(blob) {
 }
 
 function test_text(blob) {
-  return blob.text().then((function (string) {
-                return Promise.resolve((console.log(string), undefined));
-              }));
+  return blob.text().then(function (string) {
+              return Promise.resolve((console.log(string), undefined));
+            });
 }
 
 function test_type(blob) {

lib/js/tests/Webapi/Webapi__ReadableStream__test.js

@@ -8,15 +8,15 @@ function test_closed(reader) {
 }
 
 function test_cancel(reader) {
-  return reader.cancel().then((function (param) {
-                return Promise.resolve((console.log("cancelled"), undefined));
-              }));
+  return reader.cancel().then(function (param) {
+              return Promise.resolve((console.log("cancelled"), undefined));
+            });
 }
 
 function test_cancelWith(reader) {
-  return reader.cancel("reason").then((function (reason) {
-                return Promise.resolve((console.log(reason), undefined));
-              }));
+  return reader.cancel("reason").then(function (reason) {
+              return Promise.resolve((console.log(reason), undefined));
+            });
 }
 
 function test_releaseLock(reader) {
@@ -25,13 +25,13 @@ function test_releaseLock(reader) {
 }
 
 function test_read(reader) {
-  return reader.read().then((function (next) {
-                var __x = next.value;
-                return Promise.resolve(Belt_Option.forEach((__x == null) ? undefined : Caml_option.some(__x), (function (prim) {
-                                  console.log(prim);
-                                  
-                                })));
-              }));
+  return reader.read().then(function (next) {
+              var __x = next.value;
+              return Promise.resolve(Belt_Option.forEach((__x == null) ? undefined : Caml_option.some(__x), (function (prim) {
+                                console.log(prim);
+                                
+                              })));
+            });
 }
 
 var DefaultReader__test = {
@@ -59,7 +59,7 @@ function test_getReader(stream) {
 }
 
 function test_getReaderBYOB(stream) {
-  return stream.getReader(({"mode": "byob"}));
+  return stream.getReader({"mode": "byob"});
 }
 
 function test_tee(stream) {

lib/js/tests/Webapi/Webapi__ResizeObserver__test.js

@@ -5,7 +5,7 @@ var Caml_array = require("bs-platform/lib/js/caml_array.js");
 var el = document.createElement("strong");
 
 function handler(entries) {
-  var entry = Caml_array.caml_array_get(entries, 0);
+  var entry = Caml_array.get(entries, 0);
   entry.contentRect;
   entry.target;
 

lib/js/tests/Webapi/Webapi__Url__test.js

@@ -3,10 +3,10 @@
 
 var params = new URLSearchParams("key1=value1&key2=value2");
 
-params.forEach((function (prim, prim$1) {
-        console.log(prim, prim$1);
-        
-      }));
+params.forEach(function (prim, prim$1) {
+      console.log(prim, prim$1);
+      
+    });
 
 function test_entries(params) {
   return Array.from(params.entries());

package.json

@@ -1,6 +1,6 @@
 {
   "name": "bs-webapi",
-  "version": "0.19.1",
+  "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";