                          {:init-state {:string ""}})
                (om/build results-view (:results search))))))
 
-(defn music-in-queue? [tracknum]
-  (let [queue (player-queue)]
-    (nth queue tracknum nil)))
-
+#_
 (defn print-debuggy-stuff []
   (let [p (player-el)]
     (println [(.-currentTime p)





(defn update-term [[command new-terms] previous]
  (case command
    :add (set/union previous (set new-terms))
    :drop (set/difference previous new-terms)))


(defn search-view [search owner]
  (reify

(defn sync-transport [_ ref o n]
  (let [desired (:player n)
        actual (player-el)
        urls (queue-current-entry (:queue desired))]

    ;; find out what track we should be playing
    (let [bits (best-media-url urls)
