 
 (defn header []
   (let [cursor  (r/cursor app-state [:info])
-        title   (@cursor :name)
-        message (@cursor :greet_message)]
+                title   (@cursor :name)
+                message (@cursor :greet_message)]
     [:header
-     [:h1 title]
-     [:p message]]))
+      [: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]]])


(defn sorting-th [field caption]
  [:th {:on-click #(update-sort-field! field)}
       caption
       [:span.sorting-arrow (when (= field (@app-state :sort-field))
                              (if (@app-state :ascending)
                                " ▲"
                                " ▼"))]])

(defn library-section []
  (let [tracks (@app-state :library)]
