From 9919bc2702c89168d1805eaa0db9e4baff091260 Mon Sep 17 00:00:00 2001
From: Hayleigh Thompson <me@hayleigh.dev>
Date: Sat, 19 Aug 2023 22:21:19 +0100
Subject: :truck: Shift things around to accomodate a monorepo.

---
 lib/test/examples/nested.gleam | 57 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 lib/test/examples/nested.gleam

(limited to 'lib/test/examples/nested.gleam')

diff --git a/lib/test/examples/nested.gleam b/lib/test/examples/nested.gleam
new file mode 100644
index 0000000..47bb9d5
--- /dev/null
+++ b/lib/test/examples/nested.gleam
@@ -0,0 +1,57 @@
+// IMPORTS ---------------------------------------------------------------------
+
+import examples/counter
+import gleam/list
+import gleam/map.{Map}
+import gleam/pair
+import lustre
+import lustre/element.{Element}
+import lustre/element/html.{div}
+
+// MAIN ------------------------------------------------------------------------
+
+pub fn main() {
+  // A `simple` lustre application doesn't produce `Effect`s. These are best to 
+  // start with if you're just getting started with lustre or you know you don't
+  // need the runtime to manage any side effects.
+  let app = lustre.simple(init, update, render)
+  let assert Ok(_) = lustre.start(app, "[data-lustre-app]")
+
+  Nil
+}
+
+// MODEL -----------------------------------------------------------------------
+
+type Model =
+  Map(Int, counter.Model)
+
+fn init() -> Model {
+  use counters, id <- list.fold(list.range(1, 10), map.new())
+
+  map.insert(counters, id, counter.init())
+}
+
+// UPDATE ----------------------------------------------------------------------
+
+type Msg =
+  #(Int, counter.Msg)
+
+fn update(model: Model, msg: Msg) -> Model {
+  let #(id, counter_msg) = msg
+  let assert Ok(counter) = map.get(model, id)
+
+  map.insert(model, id, counter.update(counter, counter_msg))
+}
+
+// RENDER ----------------------------------------------------------------------
+
+fn render(model: Model) -> Element(Msg) {
+  let counters = {
+    use rest, id, counter <- map.fold(model, [])
+    let el = element.map(counter.render(counter), pair.new(id, _))
+
+    [el, ..rest]
+  }
+
+  div([], counters)
+}
-- 
cgit v1.2.3