 (defn find-app-container [top-level-node]
   (sel1 top-level-node "#om-app"))
 
-(defn main [state top-level-node history-imp]
+(defn main [state top-level-node history-imp instrument?]
   (let [comms       (:comms @state)
         container   (find-app-container top-level-node)
         uri-path    (.getPath utils/parsed-uri)

        ws-tap (chan)
        errors-tap (chan)]
    (routes/define-routes! state)
    (install-om state container comms)

    (async/tap (:controls-mult comms) controls-tap)
    (async/tap (:nav-mult comms) nav-tap)

    (println "value for" test-name "is now" (get-in @debug-state test-path))))

(defn reinstall-om! []
  (install-om debug-state (find-app-container (find-top-level-node)) (:comms @debug-state) true))

(defn refresh-css! []
  (let [is-app-css? #(re-matches #"/assets/css/app.*?\.css(?:\.less)?" (dommy/attr % :href))
