 (defn player-el []
   (aget (.getElementsByTagName js/document "audio") 0))
 
-(defn transport-buttons-view [app owner]
+(defn transport-buttons-view [wanted owner]
   (reify
     om/IRender
     (render [this]
-      (let [wanted (:player app)
-            queue (:queue wanted)
+      (let [queue (:queue wanted)
             actual (player-el)
             want-play (:playing (:audio-el wanted))
             actually-playing (and actual (not (.-paused actual)))

       [:div
        [:header {:className "default-primary-color" } "sledge"]
        (om/build search-view (:search state))
        (if (:viewing-queue? state)
          [:div {:className "queue queue-open tracks" }
           (om/build queue-view (:queue (:player state)))]
          [:div {:className "queue tracks" } " "])
        (om/build transport-buttons-view state)
        (om/build audio-el (:audio-el (:player state)))
        ]))))


            track (queue-current-entry queue)]
        (html
         [:div {:id "transport"
                :onClick #(om/transact! wanted [:viewing-queue?] not)
                }
          [:span {:className "index"}
           [:span {:className "current"} (:next-track queue)]
