 
 (defn track-tr [track action-button]
   [:tr.track
-   [:td
-    (when action-button
-      [action-button track])]
-   [:td (track :title)] [:td (track :artist)] [:td (track :album)]])
+    [:td
+      (when action-button
+        [action-button track])]
+    [:td (track :title)] [:td (track :artist)] [:td (track :album)]])
 
 ;; -------------------------
 ;; Playlist
 
 (defn playlist-section []
   [:section#playlist
-   [:h2 "Playlist"]
-   (if-let [tracks (not-empty (@app-state :playlist))]
-     [:table.pure-table.pure-table-striped
-      [:thead
-       [:tr [:th] [:th  "Title"] [:th "Artist"] [:th "Album"]]]
-      [:tbody (for [track tracks]
-                ^{:key track} [track-tr track playlist-remove-button])]]
-     "The playlist is empty.")])
+    [:h2 "Playlist"]
+    (if-let [tracks (not-empty (@app-state :playlist))]
+      [:table.pure-table.pure-table-striped
+        [:thead
+          [:tr [:th] [:th  "Title"] [:th "Artist"] [:th "Album"]]]
+        [:tbody (for [track tracks]
+                  ^{:key track} [track-tr track playlist-remove-button])]]
+      "The playlist is empty.")])
 
 ;; -------------------------
 ;; Search


(defn header []
  (let [cursor  (r/cursor app-state [:info])
        title   (@cursor :name)
        message (@cursor :greet_message)]
    [:header
     [:h1 title]
     [:p message]]))

;; -------------------------
;; Player

;; Main

(defn page-component []
  [:main.pure-g
    [:div.pure-u-1.pure-u-md-1-2
      [header]
      [player-section]
      [upload-section]
      [playlist-section]]
    [:div.pure-u-1.pure-u-md-1-2
      [library-section]]])
