syncing speaker notes to speaker window after figwheel reload

Makefile

@@ -12,6 +12,7 @@ clean:
 	@echo ":: Clean"
 	rm -rf target/
 	rm -rf resources/public/node_modules
+	rm -rf resources/public/cljs-out
 
 web: install
 	mkdir -p resources/public/cljs-out

src/reveal/core.cljs

@@ -32,5 +32,12 @@
   (let [state (and (.isReady js/Reveal) (.getState js/Reveal))]
     (-> (.initialize js/Reveal options)
         (.then #(when state (.setState js/Reveal state)))
+        (.then #(if (.isSpeakerNotes js/Reveal)
+                  ;; disable figwheel connection for speaker notes
+                  (when (.hasOwnProperty js/window "figwheel")
+                    (set! (.-connect js/figwheel.repl) (constantly "Disabled for speaker notes")))
+
+                  ;; trigger an event which will update the speaker notes
+                  (.dispatchEvent js/Reveal (clj->js {:type "resumed"}))))
         (.then (fn [] "call your own init code from here")))))
 (main)

src/reveal/slides.cljs

@@ -5,7 +5,9 @@
    [:h1 "reveal-cljs"]
    [:h5 "Create awesome Web-Presentations with ClojureScript"]
    [:p "Based on "
-    [:a {:href "http://lab.hakim.se/reveal-js/"} "reveal.js"]]])
+    [:a {:href "http://lab.hakim.se/reveal-js/"} "reveal.js"]]
+   [:aside.notes
+    [:ul [:li "Some notes"]]]])
 
 (def ^:private argument
   [:div.argument