From 645e815ebe11dbb86781c3eb645d3d67cd62cf7c Mon Sep 17 00:00:00 2001 From: polwex Date: Fri, 27 Jun 2025 16:34:09 +0700 Subject: nice nice. lsp still doesnt work tho --- lib/pages/components/Navbar.mlx | 34 ++++++++++++++++++++++++++++++++++ lib/pages/components/SiteTitle.mlx | 10 ++++++++++ 2 files changed, 44 insertions(+) create mode 100644 lib/pages/components/Navbar.mlx create mode 100644 lib/pages/components/SiteTitle.mlx (limited to 'lib/pages/components') diff --git a/lib/pages/components/Navbar.mlx b/lib/pages/components/Navbar.mlx new file mode 100644 index 0000000..68003fe --- /dev/null +++ b/lib/pages/components/Navbar.mlx @@ -0,0 +1,34 @@ +module Link = struct + let[@react.component] make ~children ~href ?(className = "") = + let base_class = "hover:text-gray-300 transition-colors" in + let clas = Printf.sprintf "%s %s" base_class className in + children + ;; +end + +let rs = React.string + +let[@react.component] make () = +
+
+ + + + +
+ (rs "SEARCH") + (rs "LOGIN") +
+
+
+;; diff --git a/lib/pages/components/SiteTitle.mlx b/lib/pages/components/SiteTitle.mlx new file mode 100644 index 0000000..cfee4f3 --- /dev/null +++ b/lib/pages/components/SiteTitle.mlx @@ -0,0 +1,10 @@ +let[@react.component] make () = +
+ +

+ (React.string "BLOODY SHOVEL 5") +

+
+

(React.string "Nemo nos Salvabit")

+
+;; -- cgit v1.2.3