electric react

electric.cljc

(e/defn Main [dom-root]
  (binding [e.d/node dom-root]
    (e.d/pre (e.d/text "hi"))))

(defn start-electric [dom-root electric-component]
  (hooks/use-effect (fn []
                      (if dom-root
                        (binding [hyperfiddle.electric-client/*ws-server-url* "ws://the-endpoint"]
                          (let [electric-main (e/boot (electric-component. dom-root))
                                reactor       (electric-main
                                               #(js/console.log "Reactor success:" %)
                                               (fn [error]
                                                 (case (:hyperfiddle.electric/type (ex-data error))
                                                   :hyperfiddle.electric-client/stale-client (do (js/console.log "Server and client version mismatch. Refreshing page.")
                                                                                                 (.reload (.-location js/window)))
                                                   (js/console.error "Reactor failure:" error))))]
                            #(reactor)))
                        js/undefined))
                    [dom-root]))