               (let [new-filter (<! channel)]
                 (println [:new-filter new-filter])
                 (om/transact! app [:filters] #(merge % new-filter))
-                (send-query
+                #_ (send-query
                  (om/get-state owner :search-term)
                  (:filters @app)
                  (om/get-state owner :new-results))

    om/IRenderState
    (render-state [this state]
      (let [chan (:update-filters state)
            filters (:filters app)]
        (dom/div nil
                 (dom/h1

                 [title artist album duration button]
                 [artist album title duration button]))))))


(defn xhr-search [term]
  (let [channel (chan)]
    (.send XhrIo (string/join "?" ["/tracks.json" ])
           (fn [e]
             (let [xhr (.-target e)
                   o (.getResponseJson xhr)
                   r (js->clj o)]
               (put! channel r)))
           "POST"
           term
           {"Content-Type" "text/plain"}
           )
    channel))

(defn results-view [app owner]
  (reify
    om/IWillMount
    (will-mount [_]
      (let [channel (om/get-shared owner :search-channel)]
        (go (loop []
              (let [search-for (<! channel)
                    tracks (<! (xhr-search search-for))
                    sorted (sort-by
                            #(vector (get % "artist")
                                     (get % "album")
