boot-single

hyperfiddle · Aug 2, 2024 · 72ca639 · 72ca639
1 parent 6e2465e
commit 72ca639
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/hyperfiddle/electric_de.cljc b/src/hyperfiddle/electric_de.cljc
@@ -281,6 +281,12 @@ A mount point can be :
     `(r/client (hyperfiddle.electric-client-de/connector hyperfiddle.electric-client-de/*ws-server-url*)
        (r/->defs {::Main ~source}) ::Main)))
 
+(defmacro boot-single [opts Main & args]
+  (let [env (merge (lang/normalize-env &env) web-config opts)
+        source (lang/->source env ::Main `(fn [] ($ ~Main ~@args)))]
+    `(r/client (constantly m/never)
+       (r/->defs {::Main ~source}) ::Main)))
+
 ;; (cc/defn -snapshot [flow] (->> flow (m/eduction (contrib.data/take-upto (complement #{r/pending})))))
 (cc/defn -snapshot [flow] (->> flow (m/eduction (contrib.data/take-upto (comp pos-int? :degree)))))