       (.pause actual))))
 
 
-(defn app-view [app owner]
-  (reify
-    om/IRender
-    (render [this]
-      (dom/div nil
-               (dom/header
-                #js {:id "sledge"
-                     :className "default-primary-color"
-                     }
-                "sledge"
-                (om/build tab-selector-view app))
-               (dom/div #js {:className "scrolling"}
-                        (om/build search-view (:search app))
-                        (om/build queue-view app))
-               (dom/footer #js {}
-                           #_#_#_
-                           (dom/span #js {:onClick print-debuggy-stuff }
-                                     "debug")
-                           "  "
-                           (dom/span #js {:onClick sync-transport }
-                                     "sync")
-                           (om/build player-view app))
-               ))))
+(defn app-view [state owner]
+  (reify
+    om/IRender
+    (render [this]
+      (html
+       [:div
+        [:header {:className "default-primary-color" } "sledge"]
+        (om/build search-view (:search state))
+        (if (:viewing-queue? state)
+          (om/build queue-view state)
+          (om/build minimised-queue-view state))]))))
 
 (defn init []
   (add-watch app-state :transport sync-transport)

                    (map (partial get urls) ["ogg" "mp3" "wma" "wav"])))
     "href")))

(defn player-view [app owner]
  (reify
    om/IDidMount
    (did-mount [this]

                (recur))))))
    om/IRender
    (render [this]
      (dom/div nil
               (om/build search-entry-view (:term search)
                         {:init-state {:string ""}})
               (om/build results-view (:results search))))))

(defn show-tab [cursor tab-name]
  (om/update! cursor [:tab-on-view] [tab-name]))
