 ;; global atom referencing the current state of the app
 (def app-state (atom nil))
 
-;; global atom referencing the total history graph
-(def app-history (atom [@app-state]))
-
 
 (defn init-history [init-state]
   (reset! app-state init-state)

      :else
      (let [b @(@current-branch :data)]
        (when-not (= (last b) n)
          (swap! (@current-branch :data) conj n))
        (let [c (len @(@current-branch :data))]
            (prn (str c " Saved " (pluralize c "State")))))))

; (om/root

  @branch-count)

;; global atom referencing the branch that we currently operate on
(def current-branch (atom {:id (generate-uuid) :data (atom [])}))

;; global atom referencing the total history graph
(def app-history (@current-branch :data))

;; ffd
(def history-view)
