From 69312f5133734237edaea6ca29e2de9bf3203050 Mon Sep 17 00:00:00 2001
From: polwex <polwex@sortug.com>
Date: Sun, 15 Jun 2025 01:44:45 +0700
Subject: checkpoint here...

---
 bs5/universal/native/shared/Promise_renderer.re | 28 +++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 bs5/universal/native/shared/Promise_renderer.re

(limited to 'bs5/universal/native/shared/Promise_renderer.re')

diff --git a/bs5/universal/native/shared/Promise_renderer.re b/bs5/universal/native/shared/Promise_renderer.re
new file mode 100644
index 0000000..94ec072
--- /dev/null
+++ b/bs5/universal/native/shared/Promise_renderer.re
@@ -0,0 +1,28 @@
+[@warning "-33"];
+
+open Melange_json.Primitives;
+
+module Reader = {
+  [@react.component]
+  let make = (~promise: Js.Promise.t(string)) => {
+    let value = React.Experimental.use(promise);
+    let%browser_only onMouseOver = _ev => {
+      Js.log("Over the promise!");
+    };
+    <div className="cursor-pointer" onMouseOver> <Text> value </Text> </div>;
+  };
+};
+
+[@react.client.component]
+let make = (~promise: Js.Promise.t(string)) => {
+  <div className={Cx.make([Theme.text(Theme.Color.Gray4)])}>
+    <React.Suspense
+      fallback={
+        <div className={Cx.make([Theme.text(Theme.Color.Gray14)])}>
+          {React.string("Loading...")}
+        </div>
+      }>
+      <Reader promise />
+    </React.Suspense>
+  </div>;
+};
-- 
cgit v1.2.3