 
 (defn results-view [app owner]
   (reify
+    om/IWillMount
+    (will-mount [_]
+      (let [channel (om/get-state owner :new-results)]
+        (go (loop []
+              (let [tracks (<! channel)]
+                ;(println [:got :tracks tracks])
+                (om/update! app :results tracks)
+                (recur))))))
     om/IRenderState
     (render-state [this {:keys [enqueue]}]
       (apply dom/div nil

                           {:init-state {:dequeue dequeue}})
             ))))

(defn handle-change [e owner {:keys [search-term]}]
  (om/set-state! owner :search-term (.. e -target -value)))

(defn player-view [app owner]
  (reify

;;; -*- Clojure -*- mode
(ns sledge.core
  (:require-macros [cljs.core.async.macros :refer [go alt!]])
  (:import [goog.net XhrIo])
  (:require [goog.events :as events]
            [clojure.string :as string]
            [cljs.core.async :as async :refer [>! <! put! chan]]
