          [file-select-button file-input-ref]
          [upload-button form-ref file-input-ref]]
 
-        [:div
-         [:i.fa.fa-file-o]
-         [:span (when @file-input-ref
-                  (or (get-file-name file-input-ref)
-                      "No file selected."))]]]
+        [right-box [:i.fa.fa-file-o]
+         (when @file-input-ref
+           (or (get-file-name file-input-ref)
+               "No file selected."))]]
 
        (for [[k upload] (@app-state :uploads)]
         ^{:key k} [upload-info upload])])))

(defn info-done [track]
  [:div.upload-info
   [:div "Done!"]
   [:div
    [playlist-add-button track]
    [:span (str (:artist track) " - " (:title track))]]])

(defn info-error [status error-msg]
  [:div.upload-info
   [:div (str "Error " status)]
   [:div (str error-msg)]])

(defn upload-info [{loaded :loaded
                    total  :total

  [:a.pure-button.pure-u-1-4 {:title "Open stream" :href url :target "_blank"}
   [:i.fa.fa-external-link]])

(defn right-box [head body]
  [:div.right-box head [:span body]])

(defn now-playing []
  (let [track (@app-state :now-playing)]
    [right-box [:i.fa.fa-music]
     (if track
       (str (:artist track) " - " (:title track))
       [:em "Nothing is playing."])]))

(defn player-section []
  (let [audio-ref (r/atom nil)]
