 ;; Data
 
 (defonce app-db (atom {:x 360 :y 360 :radius 50 :fill "black" :clicks 0}))
-(defonce history (atom {:states [] :count 0 :current 0}))
+(defonce history (atom {:states [] :current 0}))
 (defonce event-handlers (atom {}))
 
 ;;; Utilities

(defn history-component
  [db]
  (let [h (r/cursor db [:states])
        state-count (r/cursor db [:count])
        current (r/cursor db [:current])]
    (fn [db]
      [:div {:class "wrapper"}

          (let [states (r/cursor history [:states])
                current (r/cursor history [:current])]
            (when-let [chosen (get @states index)]
              (reset! current index)
              (reset! db chosen))
            true)))

;;; Components
