                                                                       ;; TODO: This can likely be moved out to a user-land handler
                                                                       (assoc (:session data) :db/id local-session-id)
                                                                       {:local/current-session {:db/id local-session-id}}]))
-                                               (js/console.log "app-db: " app-db)
                                                (reset! cast-bootstrapped? true))
                                              conn)]
-                                    (js/console.log "Something")
                                     (put! dato-ch [:dato/bootstrap-succeeded session-id])
                                     (loop []
                                       (let [msg (<! ws-ch)]

                              ([intent tx meta]
                               (transact! intent tx meta nil))
                              ([intent tx meta cb]
                               (js/console.log "cast!")
                               (cast! {:event :db/updated
                                       :data  {:intent intent
                                               ;; TODO: Decide on where the cb goes, and stick to it.

                                                                          (.readAsText fr (.-data event))))
                                                          :on-error   (fn [event] (js/console.log ":on-error :" event))})
        dato-send!         (fn [event data]
                             (.send ws (transit/write transit-writer [event data])))
        controls-ch        (async/chan)
        comms              {:controls controls-ch
