Improve experimental API

Author: ghivert

sketch_lustre_experimental/README.md

@@ -18,16 +18,16 @@ import sketch/lustre/experimental as sketch_lustre
 
 pub fn main() {
   // Initialise the cache. Two strategies can be used. Ephemeral caches are designed as throw-away caches.
-  let assert Ok(stylesheet) = sketch.stylesheet(strategy: sketch.Ephemeral)
+  let assert Ok(_) = sketch.stylesheet(strategy: sketch.Ephemeral)
   // Generate the partial view function, compatible with Lustre's runtime.
-  lustre.simple(init, update, view(_, stylesheet))
+  lustre.simple(init, update, view)
   // And voilà!
   |> lustre.start("#app", Nil)
 }
 
-fn view(model, stylesheet) {
+fn view(model) {
   // Add the sketch CSS generation "view middleware".
-  use <- sketch_lustre.render(stylesheet, [sketch_lustre.node()])
+  use <- sketch_lustre.render(in: [sketch_lustre.node()])
   // Run your actual view function.
   my_view(model)
 }

sketch_lustre_experimental/package.json

@@ -5,6 +5,6 @@
     "clean": "gleam clean"
   },
   "devDependencies": {
-    "@chouqueth/gleam": "^1.6.3"
+    "@chouqueth/gleam": "^1.8.1"
   }
 }

sketch_lustre_experimental/src/sketch/lustre/experimental.gleam

@@ -61,11 +61,11 @@ pub fn setup(stylesheet: sketch.StyleSheet) -> Result(sketch.StyleSheet, Nil) {
 /// }
 /// ```
 pub fn render(
-  stylesheet stylesheet: sketch.StyleSheet,
   in outputs: List(Container),
   after view: fn() -> el.Element(msg),
 ) -> el.Element(msg) {
   let new_view = view()
+  let assert Ok(stylesheet) = global.get_stylesheet()
   let content = sketch.render(stylesheet)
   use view, stylesheet <- list.fold(outputs, new_view)
   case stylesheet {
@@ -117,11 +117,9 @@ pub fn render(
 ///   html.div([], [])
 /// }
 /// ```
-pub fn ssr(
-  stylesheet: sketch.StyleSheet,
-  view: fn() -> el.Element(a),
-) -> el.Element(a) {
+pub fn ssr(view: fn() -> el.Element(a)) -> el.Element(a) {
   let new_view = view()
+  let assert Ok(stylesheet) = global.get_stylesheet()
   let content = sketch.render(stylesheet)
   case contains_head(new_view) {
     True -> put_in_head(new_view, content)