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/Link.re | 58 +++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 bs5/universal/native/shared/Link.re

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

diff --git a/bs5/universal/native/shared/Link.re b/bs5/universal/native/shared/Link.re
new file mode 100644
index 0000000..c4965a5
--- /dev/null
+++ b/bs5/universal/native/shared/Link.re
@@ -0,0 +1,58 @@
+let defaultSize = Text.Medium;
+
+module Base = {
+  [@react.component]
+  let make = (~size, ~color, ~href, ~children, ~underline, ~target=?) => {
+    <a
+      href
+      ?target
+      className={Cx.make([
+        Text.size_to_string(size),
+        "inline-flex items-center",
+        underline ? "underline" : "",
+        "transition-colors duration-250 ease-out",
+        Theme.text(color),
+        Theme.hover([
+          Theme.text(Theme.Color.oneScaleUp(color)),
+          underline ? "underline" : "",
+        ]),
+      ])}>
+      children
+    </a>;
+  };
+};
+
+module Text = {
+  [@react.component]
+  let make =
+      (
+        ~color=Theme.Color.Gray12,
+        ~size=defaultSize,
+        ~href,
+        ~children,
+        ~target=?,
+      ) => {
+    <Base size href color ?target underline=true>
+      {React.string(children)}
+    </Base>;
+  };
+};
+
+module WithArrow = {
+  [@react.component]
+  let make =
+      (
+        ~color=Theme.Color.Gray13,
+        ~size=defaultSize,
+        ~href,
+        ~children,
+        ~target=?,
+      ) => {
+    <Base size href color ?target underline=false>
+      {React.array([|
+        React.string(children),
+        <Arrow />
+      |])}
+    </Base>;
+  };
+};
-- 
cgit v1.2.3