         (dom/div #js {:id progress-bar-id
                       :className "track-bar"
                       :style bar-style}
-          (let [percent-completed (ball-position)
+          (let [percent-completed ball-position
                 style #js {:left (str percent-completed "%")}]
               (dom/div #js {:id progress-ball-id
                             :className "bar-tracker"

      (apply dom/span nil
        (om/build-all track-view (:track-order data))))))

(defn render-track-bar [data root-id display-bar-id progress-bar-id progress-ball-id ball-position]
  (let [height 20]
    (dom/div nil
      (let [top (/ height 2)
            width (+ (.height (js/$ "#display-bar-id")))
            display-style #js {:height (str height "px")
                       :top (str top "px")
                       :borderRadius (str (/ height 2) "px")}]

  (reify
    om/IRender
    (render [this]
      (render-track-bar "#progress-track"
                        "progress-track-bar-display"
                        "progress-track-bar"
                        "progress-track-ball"
                        (if (nil? (:current-sound data))
                            0
                            (* 100 (/ (:current-sound-position data)
                                      (.-duration (:current-sound data)))))))

    om/IDidMount
    (did-mount [this]
     (track-bar-did-mount owner "#progress-track-ball"
                                "#progress-track-bar"
                                #(swap! player/app-state assoc
                                        :ball-being-dragged?
                                        true)
                                core/on-drag-stop))))

(defn play-pause-button [data owner]
  (reify
