      :STORAGE pickle-states-chan
      :WEB     request-chan}))
 
-(cycle/run
-  plongeur-main
-  {:DOM     (dom/make-dom-driver "plongeur-app")
-   :SIGMA   (sig/make-sigma-driver)
-   :STORAGE (st/make-storage-driver "plongeur" m/default-state)
-   ;:WEB    (ws/make-websocket-driver "/chsk")
-   })+(defn launch-plongeur []
+  (cycle/run plongeur-main
+             {:DOM     (dom/make-dom-driver "plongeur-app")
+              ;:WEB    (ws/make-websocket-driver "/chsk")
+              :SIGMA   (sig/make-sigma-driver)
+              :STORAGE (st/make-storage-driver "plongeur" m/default-state)}))
        states-chan        (m/model saved-state-chan intent-chans)
        states-mult        (mult states-chan)

        pickle-states-chan (->> (sliding-buffer 1) (chan) (tap states-mult))

        view-states-chan   (->> (chan 10) (tap states-mult))

        request-chan       (chan 10)


            [plongeur.model  :as m]
            [plongeur.view   :as v]
            [plongeur.sigma-driver :as sig]
            [kierros.quiescent-dom-driver :as dom]
            [kierros.sente-client-driver :as ws]
            [kierros.local-storage-driver :as st]))

(enable-console-print!)

(defn plongeur-main
  "Cycle main."
  [{dom-event-chan       :DOM
    sigma-event-chan     :SIGMA
    saved-state-chan     :STORAGE
    websocket-event-chan :WEB}]
  (let [sigma-chan         (chan 10)
        intent-chans       (-> (i/intents)
                               (assoc :sigma-ctrl sigma-chan))
