dom3/WithElement: site-free Body

hyperfiddle · Aug 13, 2024 · 1eb4aaa · 1eb4aaa
1 parent ac32d4f
commit 1eb4aaa
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/src/hyperfiddle/electric_dom3.cljc b/src/hyperfiddle/electric_dom3.cljc
@@ -363,12 +363,11 @@
   the context of the new Element."
   ([tag Body] ($ WithElement nil tag Body))
   ([ns tag Body]
-   (e/client
-     (let [mp   (e/mount-point)
-           elem (create-element ns tag mp)]
-       (e/input (attach! node (e/tag) elem))
-       (e/input (m/reductions mount-items elem mp))
-       (binding [node elem] ($ Body))))))
+   (let [mp   (e/client (e/mount-point))
+         elem (e/client (create-element ns tag mp))]
+     (e/client (e/input (attach! node (e/tag) elem)))
+     (e/client (e/input (m/reductions mount-items elem mp)))
+     (binding [node elem] ($ Body)))))
 
 ;; DONE what should `element*` return?
 ;; - nil :: no because we want UI to produce values