   [: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)]
-    [:div
-     [:i.fa.fa-music]
-     [:span (if track
-              (str (:artist track) " - " (:title track))
-              [:em "Nothing is 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)]

         [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."))]]]

       (for [[k upload] (@app-state :uploads)]
        ^{:key k} [upload-info upload])])))

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

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

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