 
 
 
-
 (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

  (om/transact! (player-queue)
                (fn [v] (vec (concat (subvec v 0 index)
                                     (subvec v (inc index)))))))

(defn dequeue-all []
  (om/transact! (player-queue) (fn [v] [])))

                         {:init-state {:string ""}})
               (om/build results-view (:results search))))))

#_
(defn print-debuggy-stuff []
  (let [p (player-el)]
    (println [(.-currentTime p)
