@rescript/webapi 0.1.0-experimental-61b1074 → 0.1.0-experimental-0781ac8

package/src/{CanvasAPI.res → Canvas/CanvasTypes.res}

@@ -1,8 +1,5 @@
 @@warning("-30")
 
-open Prelude
-open EventAPI
-
 type offscreenRenderingContextId =
   | @as("2d") V2d
   | @as("bitmaprenderer") Bitmaprenderer
@@ -121,10 +118,11 @@ type webGLPowerPreference =
 
 /**
 [See OffscreenCanvas on MDN](https://developer.mozilla.org/docs/Web/API/OffscreenCanvas)
+TODO: mark as private once mutating fields of private records is allowed
 */
 @editor.completeFrom(OffscreenCanvas)
 type offscreenCanvas = {
-  ...eventTarget,
+  ...EventTypes.eventTarget,
   /**
     These attributes return the dimensions of the OffscreenCanvas object's bitmap.
 
@@ -145,7 +143,7 @@ They can be set, to replace the bitmap with a new, transparent black bitmap of t
 [See ImageBitmap on MDN](https://developer.mozilla.org/docs/Web/API/ImageBitmap)
 */
 @editor.completeFrom(ImageBitmap)
-type imageBitmap = {
+type imageBitmap = private {
   /**
     Returns the intrinsic width of the image, in CSS pixels.
     [Read more on MDN](https://developer.mozilla.org/docs/Web/API/ImageBitmap/width)
@@ -276,7 +274,7 @@ type offscreenCanvasRenderingContext2D = {
 [See ImageBitmapRenderingContext on MDN](https://developer.mozilla.org/docs/Web/API/ImageBitmapRenderingContext)
 */
 @editor.completeFrom(ImageBitmapRenderingContext)
-type imageBitmapRenderingContext = {
+type imageBitmapRenderingContext = private {
   /**
     Returns the canvas element that the context is bound to.
     [Read more on MDN](https://developer.mozilla.org/docs/Web/API/ImageBitmapRenderingContext/canvas)
@@ -342,21 +340,21 @@ An opaque object describing a gradient. It is returned by the methods CanvasRend
 [See CanvasGradient on MDN](https://developer.mozilla.org/docs/Web/API/CanvasGradient)
 */
 @editor.completeFrom(CanvasGradient)
-type canvasGradient = {}
+type canvasGradient = private {}
 
 /**
 An opaque object describing a pattern, based on an image, a canvas, or a video, created by the CanvasRenderingContext2D.createPattern() method.
 [See CanvasPattern on MDN](https://developer.mozilla.org/docs/Web/API/CanvasPattern)
 */
 @editor.completeFrom(CanvasPattern)
-type canvasPattern = {}
+type canvasPattern = private {}
 
 /**
-This Canvas 2D API interface is used to declare a path that can then be used on a CanvasRenderingContext2D object. The path methods of the CanvasRenderingContext2D interface are also present on this interface, which gives you the convenience of being able to retain and replay your path whenever desired.
+This WebApiCanvas 2D API interface is used to declare a path that can then be used on a CanvasRenderingContext2D object. The path methods of the CanvasRenderingContext2D interface are also present on this interface, which gives you the convenience of being able to retain and replay your path whenever desired.
 [See Path2D on MDN](https://developer.mozilla.org/docs/Web/API/Path2D)
 */
 @editor.completeFrom(Path2D)
-type path2D = {}
+type path2D = private {}
 
 /**
 The dimensions of a piece of text in the canvas, as created by the CanvasRenderingContext2D.measureText() method.
@@ -425,7 +423,7 @@ type textMetrics = {
   ideographicBaseline: float,
 }
 
-type offscreenRenderingContext = any
+type offscreenRenderingContext = unknown
 
 type imageEncodeOptions = {
   @as("type") mutable type_?: string,

package/src/Canvas/FillStyle.res

@@ -0,0 +1,25 @@
+external fromString: string => CanvasTypes.fillStyle = "%identity"
+external fromCanvasGradient: CanvasTypes.canvasGradient => CanvasTypes.fillStyle = "%identity"
+external fromCanvasPattern: CanvasTypes.canvasPattern => CanvasTypes.fillStyle = "%identity"
+
+external toString: CanvasTypes.fillStyle => string = "%identity"
+external toCanvasGradient: CanvasTypes.fillStyle => CanvasTypes.canvasGradient = "%identity"
+external toCanvasPattern: CanvasTypes.fillStyle => CanvasTypes.canvasPattern = "%identity"
+
+/**
+Represents a decoded version of the abstract `fillStyle` type, used in Context2D.
+ */
+type decoded =
+  | String(string)
+  | CanvasGradient(CanvasTypes.canvasGradient)
+  | CanvasPattern(CanvasTypes.canvasPattern)
+
+let decode = (t: CanvasTypes.fillStyle): decoded => {
+  if CanvasGradient.isInstanceOf(t) {
+    CanvasGradient(toCanvasGradient(t))
+  } else if CanvasPattern.isInstanceOf(t) {
+    CanvasPattern(toCanvasPattern(t))
+  } else {
+    String(toString(t))
+  }
+}

package/src/{DOMAPI → Canvas}/HTMLCanvasElement.res

@@ -1,8 +1,4 @@
-open DOMAPI
-open CanvasAPI
-open MediaCaptureAndStreamsAPI
-
-include HTMLElement.Impl({type t = htmlCanvasElement})
+include HTMLElement.Impl({type t = DomTypes.htmlCanvasElement})
 
 /**
 Returns an object that provides methods and properties for drawing and manipulating images and graphics on a canvas element in a document. A context object includes information about colors, line widths, fonts, and other graphic parameters that can be drawn on a canvas.
@@ -12,10 +8,10 @@ Creates a CanvasRenderingContext2D object representing a two-dimensional renderi
 */
 @send
 external getContext2D: (
-  htmlCanvasElement,
+  DomTypes.htmlCanvasElement,
   @as("2d") _,
-  ~options: canvasRenderingContext2DSettings=?,
-) => canvasRenderingContext2D = "getContext"
+  ~options: CanvasTypes.canvasRenderingContext2DSettings=?,
+) => DomTypes.canvasRenderingContext2D = "getContext"
 
 /**
 Returns an object that provides methods and properties for drawing and manipulating images and graphics on a canvas element in a document. A context object includes information about colors, line widths, fonts, and other graphic parameters that can be drawn on a canvas.
@@ -24,10 +20,10 @@ Returns an object that provides methods and properties for drawing and manipulat
 */
 @send
 external getContextWebGL: (
-  htmlCanvasElement,
+  DomTypes.htmlCanvasElement,
   @as("webgl") _,
-  ~options: webGLContextAttributes=?,
-) => webGLRenderingContext = "getContext"
+  ~options: CanvasTypes.webGLContextAttributes=?,
+) => CanvasTypes.webGLRenderingContext = "getContext"
 
 /**
 Returns an object that provides methods and properties for drawing and manipulating images and graphics on a canvas element in a document. A context object includes information about colors, line widths, fonts, and other graphic parameters that can be drawn on a canvas.
@@ -36,10 +32,10 @@ Returns an object that provides methods and properties for drawing and manipulat
 */
 @send
 external getContextWebGL2: (
-  htmlCanvasElement,
+  DomTypes.htmlCanvasElement,
   @as("webgl2") _,
-  ~options: webGLContextAttributes=?,
-) => webGL2RenderingContext = "getContext"
+  ~options: CanvasTypes.webGLContextAttributes=?,
+) => CanvasTypes.webGL2RenderingContext = "getContext"
 
 /**
 Returns an object that provides methods and properties for drawing and manipulating images and graphics on a canvas element in a document. A context object includes information about colors, line widths, fonts, and other graphic parameters that can be drawn on a canvas.
@@ -48,10 +44,10 @@ Returns an object that provides methods and properties for drawing and manipulat
 */
 @send
 external getContextBitmapRenderer: (
-  htmlCanvasElement,
+  DomTypes.htmlCanvasElement,
   @as("bitmaprenderer") _,
-  ~options: imageBitmapRenderingContextSettings=?,
-) => imageBitmapRenderingContext = "getContext"
+  ~options: CanvasTypes.imageBitmapRenderingContextSettings=?,
+) => CanvasTypes.imageBitmapRenderingContext = "getContext"
 
 /**
 Returns the content of the current canvas as an image that you can use as a source for another canvas or an HTML element.
@@ -59,7 +55,7 @@ Returns the content of the current canvas as an image that you can use as a sour
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/HTMLCanvasElement/toDataURL)
 */
 @send
-external toDataURL: (htmlCanvasElement, ~type_: string=?, ~quality: JSON.t=?) => string =
+external toDataURL: (DomTypes.htmlCanvasElement, ~type_: string=?, ~quality: JSON.t=?) => string =
   "toDataURL"
 
 /**
@@ -67,8 +63,8 @@ external toDataURL: (htmlCanvasElement, ~type_: string=?, ~quality: JSON.t=?) =>
 */
 @send
 external toBlob: (
-  htmlCanvasElement,
-  ~callback: blobCallback,
+  DomTypes.htmlCanvasElement,
+  ~callback: FileTypes.blob => unit,
   ~type_: string=?,
   ~quality: JSON.t=?,
 ) => unit = "toBlob"
@@ -77,12 +73,14 @@ external toBlob: (
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/HTMLCanvasElement/transferControlToOffscreen)
 */
 @send
-external transferControlToOffscreen: htmlCanvasElement => offscreenCanvas =
+external transferControlToOffscreen: DomTypes.htmlCanvasElement => CanvasTypes.offscreenCanvas =
   "transferControlToOffscreen"
 
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/HTMLCanvasElement/captureStream)
 */
 @send
-external captureStream: (htmlCanvasElement, ~frameRequestRate: float=?) => mediaStream =
-  "captureStream"
+external captureStream: (
+  DomTypes.htmlCanvasElement,
+  ~frameRequestRate: float=?,
+) => MediaCaptureAndStreamsTypes.mediaStream = "captureStream"

package/src/{CanvasAPI → Canvas}/ImageBitmap.res

@@ -1,8 +1,6 @@
-open CanvasAPI
-
 /**
 Releases imageBitmap's underlying bitmap data.
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/ImageBitmap/close)
 */
 @send
-external close: imageBitmap => unit = "close"
+external close: CanvasTypes.imageBitmap => unit = "close"

package/src/{CanvasAPI → Canvas}/ImageBitmapRenderingContext.res

@@ -1,9 +1,9 @@
-open CanvasAPI
-
 /**
 Transfers the underlying bitmap data from imageBitmap to context, and the bitmap becomes the contents of the canvas element to which context is bound.
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/ImageBitmapRenderingContext/transferFromImageBitmap)
 */
 @send
-external transferFromImageBitmap: (imageBitmapRenderingContext, imageBitmap) => unit =
-  "transferFromImageBitmap"
+external transferFromImageBitmap: (
+  CanvasTypes.imageBitmapRenderingContext,
+  CanvasTypes.imageBitmap,
+) => unit = "transferFromImageBitmap"

package/src/{CanvasAPI → Canvas}/OffscreenCanvas.res

@@ -1,13 +1,10 @@
-open CanvasAPI
-open FileAPI
-
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/OffscreenCanvas)
 */
 @new
-external make: (~width: int, ~height: int) => offscreenCanvas = "OffscreenCanvas"
+external make: (~width: int, ~height: int) => CanvasTypes.offscreenCanvas = "OffscreenCanvas"
 
-include EventTarget.Impl({type t = offscreenCanvas})
+include EventTarget.Impl({type t = CanvasTypes.offscreenCanvas})
 
 /**
 Returns an object that exposes an API for drawing on the OffscreenCanvas object. contextId specifies the desired API: "2d", "bitmaprenderer", "webgl", or "webgl2". options is handled by that API.
@@ -19,10 +16,10 @@ Returns null if the canvas has already been initialized with another context typ
 */
 @send
 external getContext2D: (
-  offscreenCanvas,
+  CanvasTypes.offscreenCanvas,
   @as("2d") _,
   ~options: JSON.t=?,
-) => offscreenCanvasRenderingContext2D = "getContext"
+) => CanvasTypes.offscreenCanvasRenderingContext2D = "getContext"
 
 /**
 Returns an object that exposes an API for drawing on the OffscreenCanvas object. contextId specifies the desired API: "2d", "bitmaprenderer", "webgl", or "webgl2". options is handled by that API.
@@ -34,10 +31,10 @@ Returns null if the canvas has already been initialized with another context typ
 */
 @send
 external getContextWebGL: (
-  offscreenCanvas,
+  CanvasTypes.offscreenCanvas,
   @as("webgl") _,
-  ~options: webGLContextAttributes=?,
-) => webGLRenderingContext = "getContext"
+  ~options: CanvasTypes.webGLContextAttributes=?,
+) => CanvasTypes.webGLRenderingContext = "getContext"
 
 /**
 Returns an object that exposes an API for drawing on the OffscreenCanvas object. contextId specifies the desired API: "2d", "bitmaprenderer", "webgl", or "webgl2". options is handled by that API.
@@ -49,10 +46,10 @@ Returns null if the canvas has already been initialized with another context typ
 */
 @send
 external getContextWebGL2: (
-  offscreenCanvas,
+  CanvasTypes.offscreenCanvas,
   @as("webgl2") _,
-  ~options: webGLContextAttributes=?,
-) => webGL2RenderingContext = "getContext"
+  ~options: CanvasTypes.webGLContextAttributes=?,
+) => CanvasTypes.webGL2RenderingContext = "getContext"
 
 /**
 Returns an object that exposes an API for drawing on the OffscreenCanvas object. contextId specifies the desired API: "2d", "bitmaprenderer", "webgl", or "webgl2". options is handled by that API.
@@ -64,17 +61,18 @@ Returns null if the canvas has already been initialized with another context typ
 */
 @send
 external getContextBitmapRenderer: (
-  offscreenCanvas,
+  CanvasTypes.offscreenCanvas,
   @as("bitmaprenderer") _,
-  ~options: imageBitmapRenderingContextSettings=?,
-) => imageBitmapRenderingContext = "getContext"
+  ~options: CanvasTypes.imageBitmapRenderingContextSettings=?,
+) => CanvasTypes.imageBitmapRenderingContext = "getContext"
 
 /**
 Returns a newly created ImageBitmap object with the image in the OffscreenCanvas object. The image in the OffscreenCanvas object is replaced with a new blank image.
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/transferToImageBitmap)
 */
 @send
-external transferToImageBitmap: offscreenCanvas => imageBitmap = "transferToImageBitmap"
+external transferToImageBitmap: CanvasTypes.offscreenCanvas => CanvasTypes.imageBitmap =
+  "transferToImageBitmap"
 
 /**
 Returns a promise that will fulfill with a new Blob object representing a file containing the image in the OffscreenCanvas object.
@@ -83,5 +81,7 @@ The argument, if provided, is a dictionary that controls the encoding options of
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/convertToBlob)
 */
 @send
-external convertToBlob: (offscreenCanvas, ~options: imageEncodeOptions=?) => promise<blob> =
-  "convertToBlob"
+external convertToBlob: (
+  CanvasTypes.offscreenCanvas,
+  ~options: CanvasTypes.imageEncodeOptions=?,
+) => promise<Blob.t> = "convertToBlob"

package/src/{CanvasAPI → Canvas}/Path2D.res

@@ -1,49 +1,83 @@
-open CanvasAPI
-open DOMAPI
+type domMatrix2DInit = DomTypes.domMatrix2DInit
 
 /**
+`make()`
+
+Creates a new empty `Path2D`.
+
+```res
+let path = Path2D.make()
+```
+
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Path2D)
 */
 @new
-external make: (~path: path2D=?) => path2D = "Path2D"
+external make: unit => CanvasTypes.path2D = "Path2D"
 
 /**
+`fromPath2D(path2D)`
+
+Creates a new `Path2D` by copying another `Path2D`.
+
+```res
+let copiedPath = Path2D.fromPath2D(existingPath)
+```
+
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Path2D)
 */
 @new
-external make2: (~path: string=?) => path2D = "Path2D"
+external fromPath2D: CanvasTypes.path2D => CanvasTypes.path2D = "Path2D"
+
+/**
+`fromString(string)`
+
+Creates a new `Path2D` from SVG path data text.
+
+```res
+let path = Path2D.fromString("M0 0 L10 10")
+```
+
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Path2D)
+*/
+@new
+external fromString: string => CanvasTypes.path2D = "Path2D"
 
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/closePath)
 */
 @send
-external closePath: path2D => unit = "closePath"
+external closePath: CanvasTypes.path2D => unit = "closePath"
 
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/moveTo)
 */
 @send
-external moveTo: (path2D, ~x: float, ~y: float) => unit = "moveTo"
+external moveTo: (CanvasTypes.path2D, ~x: float, ~y: float) => unit = "moveTo"
 
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineTo)
 */
 @send
-external lineTo: (path2D, ~x: float, ~y: float) => unit = "lineTo"
+external lineTo: (CanvasTypes.path2D, ~x: float, ~y: float) => unit = "lineTo"
 
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/quadraticCurveTo)
 */
 @send
-external quadraticCurveTo: (path2D, ~cpx: float, ~cpy: float, ~x: float, ~y: float) => unit =
-  "quadraticCurveTo"
+external quadraticCurveTo: (
+  CanvasTypes.path2D,
+  ~cpx: float,
+  ~cpy: float,
+  ~x: float,
+  ~y: float,
+) => unit = "quadraticCurveTo"
 
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/bezierCurveTo)
 */
 @send
 external bezierCurveTo: (
-  path2D,
+  CanvasTypes.path2D,
   ~cp1x: float,
   ~cp1y: float,
   ~cp2x: float,
@@ -56,21 +90,27 @@ external bezierCurveTo: (
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/arcTo)
 */
 @send
-external arcTo: (path2D, ~x1: float, ~y1: float, ~x2: float, ~y2: float, ~radius: float) => unit =
-  "arcTo"
+external arcTo: (
+  CanvasTypes.path2D,
+  ~x1: float,
+  ~y1: float,
+  ~x2: float,
+  ~y2: float,
+  ~radius: float,
+) => unit = "arcTo"
 
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/rect)
 */
 @send
-external rect: (path2D, ~x: float, ~y: float, ~w: float, ~h: float) => unit = "rect"
+external rect: (CanvasTypes.path2D, ~x: float, ~y: float, ~w: float, ~h: float) => unit = "rect"
 
 /**
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/roundRect)
 */
 @send
 external roundRect: (
-  path2D,
+  CanvasTypes.path2D,
   ~x: float,
   ~y: float,
   ~w: float,
@@ -83,7 +123,7 @@ external roundRect: (
 */
 @send
 external roundRect2: (
-  path2D,
+  CanvasTypes.path2D,
   ~x: float,
   ~y: float,
   ~w: float,
@@ -96,7 +136,7 @@ external roundRect2: (
 */
 @send
 external roundRect3: (
-  path2D,
+  CanvasTypes.path2D,
   ~x: float,
   ~y: float,
   ~w: float,
@@ -109,7 +149,7 @@ external roundRect3: (
 */
 @send
 external arc: (
-  path2D,
+  CanvasTypes.path2D,
   ~x: float,
   ~y: float,
   ~radius: float,
@@ -123,7 +163,7 @@ external arc: (
 */
 @send
 external ellipse: (
-  path2D,
+  CanvasTypes.path2D,
   ~x: float,
   ~y: float,
   ~radiusX: float,
@@ -139,4 +179,8 @@ Adds to the path the path given by the argument.
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Path2D/addPath)
 */
 @send
-external addPath: (path2D, ~path: path2D, ~transform: domMatrix2DInit=?) => unit = "addPath"
+external addPath: (
+  CanvasTypes.path2D,
+  ~path: CanvasTypes.path2D,
+  ~transform: domMatrix2DInit=?,
+) => unit = "addPath"