From 71c20233ff79e696d0eeca2ce1462d3083fbcfed Mon Sep 17 00:00:00 2001
From: polwex <polwex@sortug.com>
Date: Sun, 15 Jun 2025 04:59:49 +0700
Subject: and were done, just like that

---
 bs5/universal/js/ClientRouter.re | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 bs5/universal/js/ClientRouter.re

(limited to 'bs5/universal/js/ClientRouter.re')

diff --git a/bs5/universal/js/ClientRouter.re b/bs5/universal/js/ClientRouter.re
new file mode 100644
index 0000000..40083c2
--- /dev/null
+++ b/bs5/universal/js/ClientRouter.re
@@ -0,0 +1,22 @@
+type t = Router.t(Fetch.Response.t);
+
+external navigate: string => unit = "window.__navigate";
+external useAction:
+  (string, string) => ((Router.payload, Router.location, unit) => unit, bool) =
+  "window.__useAction";
+
+let useRouter: unit => t =
+  () => {
+    {
+      location: Router.initialLocation,
+      navigate: str => {
+        navigate(Router.locationToString(str));
+      },
+      useAction: (endpoint, method) => {
+        useAction(endpoint, method);
+      },
+      refresh: str => {
+        Js.log(str);
+      },
+    };
+  };
-- 
cgit v1.2.3