blob: b590060ba89eda04574f0cc878034ac0f18f4036 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(ns ^:dev/always user ; recompile (macroexpand) electric-main when any cljs src changes
(:require
app.sudoku
hyperfiddle.electric
hyperfiddle.electric-dom2))
(def electric-main
(hyperfiddle.electric/boot ; Electric macroexpansion - Clojure to signals compiler
(binding [hyperfiddle.electric-dom2/node js/document.body]
(app.sudoku/App.))))
(defonce reactor nil)
(defn ^:dev/after-load ^:export start! []
(assert (nil? reactor) "reactor already running")
(set! reactor (electric-main
#(js/console.log "Reactor success:" %)
#(js/console.error "Reactor failure:" %))))
(defn ^:dev/before-load stop! []
(when reactor (reactor)) ; teardown
(set! reactor nil))
|
