Add bindings for Navigator

src/Webapi/Dom/Webapi__Dom__Navigator.re

@@ -0,0 +1,66 @@
+open Js.Typed_array;
+
+
+type t;
+
+type clipboard;
+type networkConnection;
+type credentialsContainer;
+type geolocation;
+type mediaDevices;
+type mediaSession;
+type serviceWorkerContainer;
+type xr;
+type mediaKeySystemAccess;
+type mediaKeySystemConfiguration;
+type shareOptions;
+
+[@bs.get] external buildID : t => string = "";
+[@bs.get] external clipboard : t => clipboard = "";
+[@bs.get] external connection : t => networkConnection = "";
+[@bs.get] external cookieEnabled : t => bool = "";
+[@bs.get] external credentials : t => credentialsContainer = "";
+[@bs.get] external deviceMemory : t => float = "";
+[@bs.get] external geolocation : t => geolocation = "";
+[@bs.get] external language : t => string = "";
+[@bs.get] external maxTouchPoints : t => int = "";
+[@bs.get] external mediaDevices : t => mediaDevices = "";
+[@bs.get] external mediaSession : t => mediaSession = "";
+[@bs.get] external onLine : t => bool = "";
+[@bs.get] external oscpu : t => string = "";
+[@bs.get] external platform : t => string = "";
+[@bs.get] external productSub : t => string = "";
+[@bs.get] external serviceWorker : t => serviceWorkerContainer = "";
+[@bs.get] external vendor : t => string = "";
+[@bs.get] external vendorSub : t => string = "";
+[@bs.get] external webdriver : t => bool = "";
+[@bs.get] external xr : t => xr = "";
+
+[@bs.send.pipe : t] external canShare : shareOptions => bool = "";
+[@bs.send.pipe : t] external registerProtocolHandler : (string, string, string) => unit = "";
+[@bs.send.pipe : t] external requestMediaKeySystemAccess : (string, list(mediaKeySystemConfiguration)) => Js.Promise.t(mediaKeySystemAccess) = "";
+[@bs.send.pipe : t] external sendBeacon : (
+  string,
+  [@bs.unwrap] [
+    | `ArrayBuffer(ArrayBuffer.t)
+    | `Int8Array(Int8Array.t)
+    | `Uint8Array(Uint8Array.t)
+    | `Uint8ClampedArray(Uint8ClampedArray.t)
+    | `Int16Array(Int16Array.t)
+    | `Uint16Array(Uint16Array.t)
+    | `Int32Array(Int32Array.t)
+    | `Uint32Array(Uint32Array.t)
+    | `Float32Array(Float32Array.t)
+    | `Float64Array(Float64Array.t)
+    | `DataView(DataView.t)
+    | `Blob(Webapi__Blob.t)
+    | `FormData(Fetch.FormData.t)
+    | `URLSearchParams(Webapi__Url.URLSearchParams.t)
+    | `String(string)
+  ]) => bool = "";
+[@bs.send.pipe : t] external share : shareOptions => Js.Promise.t(unit) = "";
+[@bs.send.pipe : t] external vibrate : (
+  [@bs.unwrap] [
+    | `Int(int)
+    | `IntList(list(int))
+  ]) => bool = "";

src/Webapi/Dom/Webapi__Dom__Window.re

@@ -4,7 +4,6 @@ type frameList; /* array-like, WindowProxy? */
 type idleDeadline; /* Cooperative Scheduling of Background Tasks */
 type locationbar; /* "bar object" */
 type menubar; /* "bar object" */
-type navigator;
 type personalbar; /* "bar object" */
 type screen;
 type scrollbars; /* "bar object" */
@@ -39,7 +38,7 @@ module Impl = (T: {type t;}) => {
   [@bs.get] external menubar : t_window => menubar = "";
   [@bs.get] external name : t_window => string = "";
   [@bs.set] external setName : (t_window, string) => unit = "name";
-  [@bs.get] external navigator : t_window => navigator = "";
+  [@bs.get] external navigator : t_window => Webapi__Dom__Navigator.t = "";
   [@bs.get] [@bs.return nullable] external opener : t_window => option(Dom.window) = "";
   [@bs.get] external outerWidth : t_window => int = "";
   [@bs.get] external outerHeight : t_window => int = "";

src/Webapi/Webapi__Dom.re

@@ -38,6 +38,7 @@ module MouseEvent = Webapi__Dom__MouseEvent;
 module MutationObserver = Webapi__Dom__MutationObserver;
 module MutationRecord = Webapi__Dom__MutationRecord;
 module NamedNodeMap = Webapi__Dom__NamedNodeMap;
+module Navigator = Webapi__Dom__Navigator;
 module Node = Webapi__Dom__Node;
 module NodeFilter = Webapi__Dom__NodeFilter;
 module NodeIterator = Webapi__Dom__NodeIterator;
@@ -71,6 +72,7 @@ include Webapi__Dom__Types;
 [@bs.val] external document : Dom.document = "document";
 [@bs.val] [@bs.scope "window"] external history : Dom.history = "history";
 [@bs.val] [@bs.scope "window"] external location : Dom.location = "location";
+[@bs.val] [@bs.scope "window"] external navigator : Webapi__Dom__Navigator.t = "navigator";
 
 
 /* Unimplemented interfaces (aka. "The TODO list")

tests/Webapi/Dom/Webapi__Dom__Navigator__test.re

@@ -0,0 +1,28 @@
+open Webapi.Dom;
+open Navigator;
+
+let _ = buildID(navigator);
+let _ = clipboard(navigator);
+let _ = connection(navigator);
+let _ = cookieEnabled(navigator);
+let _ = credentials(navigator);
+let _ = deviceMemory(navigator);
+let _ = geolocation(navigator);
+let _ = language(navigator);
+let _ = maxTouchPoints(navigator);
+let _ = mediaDevices(navigator);
+let _ = mediaSession(navigator);
+let _ = onLine(navigator);
+let _ = oscpu(navigator);
+let _ = platform(navigator);
+let _ = productSub(navigator);
+let _ = serviceWorker(navigator);
+let _ = vendor(navigator);
+let _ = vendorSub(navigator);
+let _ = webdriver(navigator);
+let _ = xr(navigator);
+
+navigator |> registerProtocolHandler("web+burger", "https://burgers.example.com/?burger=%s", "Burger handler");
+navigator |> sendBeacon("/log", `String("a whole lotta burgers"));
+navigator |> vibrate(`Int(200));
+navigator |> vibrate(`IntList([100,30,100,30,100,30,200,30,200,30,200,30,100,30,100,30,100]));