 
 
 (def app-state
-  {:channels {}
+  {:channels []
    :geolocation nil})
 
 (def routes ["new" ::new])

  (reify
    om/IInitState
    (init-state [_]
      {:comm (chan)})
    om/IWillMount
    (will-mount [_]
      (let [comm (om/get-state owner :comm)
            core-comm (om/get-state owner :core-comm)]
        (go
          (while true
            (let [[msg msg-data] (<! comm)]
              (case msg

    om/IRenderState
    (render-state [_ {:keys [comm]}]
      (let [m {:init-state {:comm comm}}]
        (if (om/get-state owner :loading)
          (om/build loading nil)
          (case page
            ::new (om/build new-channel nil m)
            ::home (om/build channel-list {:params params :data data} m)))))))
