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

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

diff --git a/bs5/universal/native/shared/Cx.re b/bs5/universal/native/shared/Cx.re
new file mode 100644
index 0000000..caafd0a
--- /dev/null
+++ b/bs5/universal/native/shared/Cx.re
@@ -0,0 +1,21 @@
+let make = cns =>
+  cns->Belt.List.keep(x => x !== "") |> String.concat(" ") |> String.trim;
+
+let ifTrue = (cn, x) => x ? cn : "";
+
+let ifSome = (cn, x) =>
+  switch (x) {
+  | Some(_) => cn
+  | None => ""
+  };
+
+let mapSome = (x, fn) =>
+  switch (x) {
+  | Some(x) => fn(x)
+  | None => ""
+  };
+
+let unpack =
+  fun
+  | Some(x) => x
+  | None => "";
-- 
cgit v1.2.3