let-def · voodoos · May 10, 2026 · May 10, 2026
diff --git a/examples/break-brr/Makefile → examples/break-brr/counter/Makefile b/examples/break-brr/Makefile → examples/break-brr/counter/Makefile
diff --git a/examples/break-brr/dune → examples/break-brr/counter/dune b/examples/break-brr/dune → examples/break-brr/counter/dune
diff --git a/examples/break-brr/index.html → examples/break-brr/counter/index.html b/examples/break-brr/index.html → examples/break-brr/counter/index.html
diff --git a/examples/break-brr/main.ml → examples/break-brr/counter/main.ml b/examples/break-brr/main.ml → examples/break-brr/counter/main.ml
diff --git a/examples/break-brr/details/Makefile b/examples/break-brr/details/Makefile
@@ -0,0 +1,9 @@
+ROOT=$(realpath $(PWD)/../..)
+NAME=$(subst $(ROOT)/,,$(realpath $(PWD)))
+
+all:
+	dune build index.html main.js
+	@echo "open $(ROOT)/_build/default/$(NAME)/index.html"
+
+clean:
+	dune clean
diff --git a/examples/break-brr/details/dune b/examples/break-brr/details/dune
@@ -0,0 +1,21 @@
+(executables
+ (names main)
+ (libraries js_of_ocaml brr lwd brr-lwd)
+ (modes byte))
+
+(rule
+ (targets main.js)
+ (action
+  (run
+   %{bin:js_of_ocaml}
+   --noruntime
+   %{lib:js_of_ocaml-compiler:runtime.js}
+   --source-map
+   %{dep:main.bc}
+   -o
+   %{targets}
+   --pretty)))
+
+(alias
+ (name default)
+ (deps main.js index.html))
diff --git a/examples/break-brr/details/index.html b/examples/break-brr/details/index.html
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
+	  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml">
+  <head>
+    <title>Test</title>
+    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
+    <script type="text/javascript" src="main.js"></script>
+  </head>
+  <body>
+  </body>
+</html>
diff --git a/examples/break-brr/details/main.ml b/examples/break-brr/details/main.ml
@@ -0,0 +1,37 @@
+open Brr
+open Brr_lwd
+
+let accordion ~name ~title content =
+  (* TODO there might a bug in lwd: the open attribute disapears.
+      This does not happen if we use an Elwd.details *)
+  let at =[
+    At.name (Jstr.v name);
+    At.v (Jstr.v "open") (Jstr.v "true") ]
+  in
+  El.details ~at
+    ((El.summary [ title ]) :: [ (El.section content) ])
+
+let score = Lwd.var "Notes"
+
+let ui =
+  let e = Lwd.map (Lwd.get score) ~f:(fun score ->
+    accordion ~name:"test-acc" ~title:(El.txt' "Bandonéon" )
+      [El.txt' score])
+  in
+  Elwd.div [ `R e]
+
+let () =
+  let ui = Lwd.observe ui in
+  let on_invalidate _ =
+    ignore @@ G.request_animation_frame
+    @@ fun _ -> ignore @@ Lwd.quick_sample ui
+  in
+  let on_load _ =
+    El.append_children (Document.body G.document) [ Lwd.quick_sample ui ];
+    Lwd.set_on_invalidate ui on_invalidate;
+    (* This triggers the bug, the text gets replaced but the <details> element
+       loses it's "open" attirbute. *)
+    Lwd.set score "Plus de notes"
+  in
+  ignore @@ Ev.listen Ev.dom_content_loaded on_load (Window.as_target G.window)
+