                                  })
                  )))))
 
+(defn detect-platform []
+  (let [w (.-innerWidth js/window)]
+    (condp > w
+      480 :phone
+      600 :tablet
+      :desktop)))
+
 (defn app-view [app owner]
   (reify
     om/IInitState

          (apply dom/div #js {:className "results tracks" }
                 (dom/div #js {:className "track"}
                          (dom/span {:id "queue-all-tracks"}
                                    "Queue all tracks"}
                          button)
                 track-components)
          (apply dom/div #js {:className "results tracks" }

       :dequeue (chan)})
    om/IRenderState
    (render-state [this state]
      (dom/div nil
               (om/build filters-view app
                         {:init-state state})
               (dom/h2 nil "results")
               (om/build results-view app {:init-state state})
               (dom/h2 nil "queue")
               (om/build queue-view app {:init-state state})
               (om/build player-view app {:init-state state})
               ))))

(defn init []
  (let [el (. js/document (getElementById "om-app"))]
