Add dispose function

Author: ghivert

sketch/README.md

@@ -88,6 +88,8 @@ import sketch/lustre 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)
+  // Setup the cache. This should be done once before using the render.
+  let assert Ok(stylesheet) = sketch.setup(stylesheet)
   // Generate the partial view function, compatible with Lustre's runtime.
   lustre.simple(init, update, view(_, stylesheet))
   // And voilà!
@@ -96,7 +98,7 @@ pub fn main() {
 
 fn view(model, stylesheet) {
   // Add the sketch CSS generation "view middleware".
-  use <- sketch_lustre.render(stylesheet, [sketch_lustre.node()])
+  use <- sketch_lustre.render(stylesheet:, in: [sketch_lustre.node()])
   // Run your actual view function.
   my_view(model)
 }
@@ -149,24 +151,6 @@ And you're done! Enjoy your Lustre app, Sketch-enhanced!
 
 ### Final notes
 
-#### On Sketch Lustre Element
-
-A Sketch `Element(msg)` is extremely similar to a Lustre `Element(msg)`,
-excepted it carries styles information on top. Going from a
-`sketch/lustre/element.Element(msg)` to a `lustre/element.Element(msg)` is
-straightforward, by using `sketch/lustre/element.unstyled`. The opposite (going
-from a Lustre element to a Sketch Lustre element) is also possible by using
-`sketch/lustre/element.styled`!
-
-#### Sketch Lustre Experimental
-
-Because sometimes you may want to avoid the `Element(msg)` overhead, you can try
-the experimental Sketch Lustre runtime, `sketch_lustre_experimental`. That
-runtime works in the same way, excepts it does not implements its own `Element`
-type on top of Lustre's `Element`. Most of the time, you should not see any
-differences. Keep in mind that it can bug though, as it's still experimental. If
-you try to use it, please, report any bugs you can find.
-
 #### Usage with Shadow DOM
 
 In browser, Sketch can work with a Shadow DOM, in order to hide the compiled

sketch/src/sketch.gleam

@@ -110,6 +110,18 @@ pub fn stylesheet(
   StyleSheet(cache:, id:)
 }
 
+@target(javascript)
+/// Delete a persistent stylesheet. That function should be called for Persistent
+/// Erlang stylesheet, and won't have any effect otherwise.
+pub fn dispose(stylesheet: StyleSheet) {
+  Nil
+}
+
+@target(erlang)
+pub fn dispose(stylesheet: StyleSheet) {
+  actor.dispose(stylesheet.cache)
+}
+
 @external(erlang, "erlang", "unique_integer")
 @external(javascript, "./sketch.ffi.mjs", "uniqueId")
 fn unique_id() -> Int

sketch/src/sketch/internals/cache/actor.gleam

@@ -100,3 +100,14 @@ pub fn loop(msg: Request, cache: cache.Cache) -> actor.Next(a, cache.Cache) {
     }
   }
 }
+
+@target(erlang)
+pub fn dispose(cache: Cache) {
+  case cache {
+    Ephemeral(_) -> Nil
+    Persistent(proc:) -> {
+      process.subject_owner(proc)
+      |> process.send_exit
+    }
+  }
+}