Samples

astro.config.mjs

@@ -51,6 +51,10 @@ export default defineConfig({
         {
           slug: "design-philosophy",
         },
+        {
+          label: "Examples",
+          link: "examples",
+        },
         {
           slug: "project-status",
         },

docs/pages/examples.astro

@@ -0,0 +1,56 @@
+---
+import StarlightPage from "@astrojs/starlight/components/StarlightPage.astro";
+import { Tabs, TabItem, Code } from "@astrojs/starlight/components";
+import { testFiles } from "../utils";
+
+const frontmatter = {
+  title: "Examples",
+};
+
+const headings = testFiles.map(({ name }) => ({
+  depth: 2,
+  slug: name,
+  text: name,
+}));
+---
+
+<StarlightPage frontmatter={frontmatter} headings={headings}>
+  <p>
+    The best example of usage of these bindings are the <a href="./06-testing"
+      >tests</a
+    >. <br />
+    These typically contain tweaks made to the generated bindings to make them more
+    ergonomic.
+  </p>
+  {
+    testFiles.map(({ source, output, name }) => {
+      return (
+        <div class="example" id={name}>
+          <h2>{name}</h2>
+          <Tabs>
+            <TabItem label="ReScript">
+              <Code code={source} lang="ReScript" frame="none" />
+            </TabItem>
+            <TabItem label="JS Output">
+              <Code code={output} lang="js" frame="none" />
+            </TabItem>
+          </Tabs>
+        </div>
+      );
+    })
+  }
+</StarlightPage>
+<style>
+  .example {
+    margin-block: 4rem;
+
+    &:first-of-type {
+      margin-top: 4rem;
+    }
+
+    & h2 {
+      margin-bottom: 1rem;
+      font-size: var(--sl-text-2xl);
+    }
+  }
+</style>

docs/utils.js

@@ -1,7 +1,7 @@
 import * as path from "node:path";
 import { exec } from "node:child_process";
 import { promisify } from "node:util";
-import { readdirSync, existsSync } from "fs";
+import { readdirSync, existsSync, readFileSync } from "fs";
 import { micromark } from "micromark";
 
 const execAsync = promisify(exec);
@@ -140,4 +140,34 @@ export async function getDoc(absoluteFilePath) {
     values,
     valueHeadings,
   };
-}
+}
+
+function trimRescriptOutput(output) {
+  return output
+    .replace("// Generated by ReScript, PLEASE EDIT WITH CARE", "")
+    .replace("/* response Not a pure module */", "")
+    .trim();
+}
+
+const testDir = path.resolve(process.cwd(), "tests");
+export const testFiles =
+  readdirSync(testDir, { recursive: true })
+    .filter(f => f.endsWith(".res"))
+    .map(tf => {
+      const sourcePath = path.join(testDir, tf);
+      const source = readFileSync(sourcePath, "utf-8");
+      const outputPath = sourcePath.replace(".res", ".js");
+      const output = readFileSync(outputPath, "utf-8");
+
+      const parts = tf.split(path.sep);
+      const name = parts[parts.length - 1].replace("__tests.res", "");
+
+      return {
+        sourcePath: sourcePath.replace(testDir,""),
+        source,
+        output: trimRescriptOutput(output),
+        outputPath: outputPath.replace(testDir,""),
+        name,
+      };
+    })
+    .sort((a, b) => a.name.localeCompare(b.name));

src/DOMAPI.res

@@ -7131,6 +7131,13 @@ type range = {
   commonAncestorContainer: node,
 }
 
+/**
+[See StaticRange on MDN](https://developer.mozilla.org/docs/Web/API/StaticRange)
+*/
+type staticRange = {
+  ...abstractRange,
+}
+
 type nodeFilter = {}
 
 /**

src/EventAPI/EventTarget.res

@@ -32,8 +32,8 @@ The event listener is appended to target's event listener list and is not append
   @send
   external addEventListener: (
     T.t,
-    ~type_: eventType,
-    ~callback: eventListener<'event>,
+    eventType,
+    eventListener<'event>,
     ~options: addEventListenerOptions=?,
   ) => unit = "addEventListener"
 
@@ -56,8 +56,8 @@ The event listener is appended to target's event listener list and is not append
   @send
   external addEventListener_useCapture: (
     T.t,
-    ~type_: eventType,
-    ~callback: eventListener<'event>,
+    eventType,
+    eventListener<'event>,
     @as(json`true`) _,
   ) => unit = "addEventListener"
 
@@ -68,8 +68,8 @@ Removes the event listener in target's event listener list with the same type, c
   @send
   external removeEventListener: (
     T.t,
-    ~type_: eventType,
-    ~callback: eventListener<'event>,
+    eventType,
+    eventListener<'event>,
     ~options: eventListenerOptions=?,
   ) => unit = "removeEventListener"
 
@@ -80,8 +80,8 @@ Removes the event listener in target's event listener list with the same type, c
   @send
   external removeEventListener_useCapture: (
     T.t,
-    ~type_: eventType,
-    ~callback: eventListener<'event>,
+    eventType,
+    eventListener<'event>,
     @as(json`true`) _,
   ) => unit = "removeEventListener"
 

src/Global.res

@@ -535,8 +535,8 @@ The event listener is appended to target's event listener list and is not append
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/EventTarget/addEventListener)
 */
 external addEventListener: (
-  ~type_: eventType,
-  ~callback: eventListener<'event>,
+  eventType,
+  eventListener<'event>,
   ~options: addEventListenerOptions=?,
 ) => unit = "addEventListener"
 
@@ -557,8 +557,8 @@ The event listener is appended to target's event listener list and is not append
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/EventTarget/addEventListener)
 */
 external addEventListener_useCapture: (
-  ~type_: eventType,
-  ~callback: eventListener<'event>,
+  eventType,
+  eventListener<'event>,
   @as(json`true`) _,
 ) => unit = "addEventListener"
 
@@ -567,8 +567,8 @@ Removes the event listener in target's event listener list with the same type, c
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/EventTarget/removeEventListener)
 */
 external removeEventListener: (
-  ~type_: string,
-  ~callback: eventListener<'event>,
+  string,
+  eventListener<'event>,
   ~options: eventListenerOptions=?,
 ) => unit = "removeEventListener"
 
@@ -577,8 +577,8 @@ Removes the event listener in target's event listener list with the same type, c
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/EventTarget/removeEventListener)
 */
 external removeEventListener_useCapture: (
-  ~type_: eventType,
-  ~callback: eventListener<'event>,
+  eventType,
+  eventListener<'event>,
   @as(json`true`) _,
 ) => unit = "removeEventListener"