Examples: add w-mlx (#330)

aantron · Oct 14, 2024 · 6a1a2f0 · 6a1a2f0
1 parent 91b470d
commit 6a1a2f0
Show file tree

Hide file tree

Showing 6 changed files with 76 additions and 0 deletions.
diff --git a/example/w-mlx/README.md b/example/w-mlx/README.md
@@ -0,0 +1,35 @@
+# `w-mlx`
+
+<br>
+
+[mlx](https://github.com/ocaml-mlx/mlx), an OCaml syntax dialect which adds JSX
+expressions, can be used with Dream for generating HTML. 
+
+```ocaml
+let greet ~who () =
+  <html>
+    <head>
+      <title>"Greeting"</title>
+    </head>
+    <body>
+      <h1>"Good morning, " (JSX.string who) "!"</h1>
+    </body>
+  </html>
+
+let () =
+  Dream.run
+  @@ Dream.logger
+  @@ Dream.router [
+    Dream.get "/" (fun _ ->
+      let html = JSX.render <greet who="world" /> in
+      Dream.html html)
+  ]
+```
+
+<pre><code><b>$ cd example/w-mlx</b>
+<b>$ opam install --deps-only --yes .</b>
+<b>$ dune exec --root . ./mlx.exe</b></code></pre>
+
+<br>
+
+[Up to the example index](../#examples)
diff --git a/example/w-mlx/dune b/example/w-mlx/dune
@@ -0,0 +1,4 @@
+(executable
+ (name mlx)
+ (libraries dream html_of_jsx)
+ (preprocess (pps html_of_jsx.ppx)))
diff --git a/example/w-mlx/dune-project b/example/w-mlx/dune-project
@@ -0,0 +1,10 @@
+(lang dune 3.16)
+
+(dialect
+ (name mlx)
+ (implementation
+  (merlin_reader mlx)
+  (extension mlx)
+  (preprocess
+   (run mlx-pp %{input-file}))))
+
diff --git a/example/w-mlx/dune-workspace b/example/w-mlx/dune-workspace
diff --git a/example/w-mlx/mlx.mlx b/example/w-mlx/mlx.mlx
@@ -0,0 +1,18 @@
+let greet ~who () =
+  <html>
+    <head>
+      <title>"Greeting"</title>
+    </head>
+    <body>
+      <h1>"Good morning, " (JSX.string who) "!"</h1>
+    </body>
+  </html>
+
+let () =
+  Dream.run
+  @@ Dream.logger
+  @@ Dream.router [
+    Dream.get "/" (fun _ ->
+      let html = JSX.render <greet who="world" /> in
+      Dream.html html)
+  ]
diff --git a/example/w-mlx/w-mlx.opam b/example/w-mlx/w-mlx.opam
@@ -0,0 +1,9 @@
+opam-version: "2.0"
+
+depends: [
+  "ocaml" {>= "4.08.0"}
+  "dream"
+  "dune" {>= "3.16.0"}
+  "mlx"
+  "html_of_jsx"
+]