status-im
/
re-frame
mirror of https://github.com/status-im/re-frame.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Remove use of historian. An atom-watcher based approach complicates our life. Via middleware we will not explicitly snapshot.

This commit is contained in:
mike-thompson-day8 2015-02-25 00:24:31 +11:00
parent 506af80d02
commit a8a1dcd890
2 changed files with 45 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
project.clj
View File

@ -5,12 +5,10 @@
:dependencies [[org.clojure/clojure "1.6.0"]
[org.clojure/clojurescript "0.0-2760" :scope "provided"]
[org.clojure/core.async "0.1.346.0-17112a-alpha" :scope "provided"]
[reagent "0.5.0-alpha3" :scope "provided"]
[historian "1.0.7"]]
[reagent "0.5.0-alpha3" :scope "provided"]]
:profiles {:debug {:debug true}
:dev {:dependencies [[spellhouse/clairvoyant "0.0-48-gf5e59d3"]]
:plugins [[lein-cljsbuild "1.0.4"]]}}

74
src/re_frame/history.cljs
View File

@ -1,33 +1,38 @@
(ns re-frame.history
(:require-macros [reagent.ratom :refer [reaction]]
[historian.core :refer [off-the-record]])
(:require-macros [reagent.ratom :refer [reaction]])
(:require
[reagent.core :as r]
[re-frame.db :refer [app-db]]
[re-frame.db :refer [app-db]]
[re-frame.handlers :as handlers ]
[re-frame.subs :as subs ]
[historian.core :as historian]
))
[re-frame.subs :as subs ]))
;; -- data --------------------------------------------------------------------------------------
;; -- History -------------------------------------------------------------------------------------
;;
;;
(def ^:private max-undos (atom 50)) ;; maximum number of undo states maintained
(defn set-max-undos
[n]
(reset! max-undos n))
(historian/record! app-db :db)
(def undo-list (r/atom []))
(def redo-list (r/atom []))
(historian/replace-library! undo-list)
(historian/replace-prophecy! redo-list)
;;
(def ^:private undo-list (r/atom [])) ;; a list of history states
(def ^:private redo-list (r/atom [])) ;; a list of future states, caused by undoing
(defn reset-history!
"privileged protocol: should not be used by client code"
(defn clear-history!
[]
(historian/clear-history!)
(historian/trigger-record!))
(reset! undo-list [])
(reset! undo-list []))
(defn off-the-record!
"evaluate db mutation-fn without creating a history record"
[db mutation-fn]
(off-the-record (reset! db (mutation-fn @db))))
(defn store-now!
"stores the current state"
[state]
(reset! redo-list []) ;; clear and redo state created by previous undos
(reset! undo-list (vec (take
@max-undos
(conj @undo-list state)))))
;; -- subscriptions -----------------------------------------------------------------------------
@ -36,27 +41,36 @@
:undos?
(fn
[_ _]
"answer true is anything is stored in the undo list"
"return true is anything is stored in the undo list, otherwise false"
(reaction (> (count @undo-list) 1))))
(subs/register
:redos?
(fn
[_ _]
"answer true is anything is stored in the redo list"
"return true is anything is stored in the redo list, otherwise false"
(reaction (> (count @redo-list) 0))))
;; -- event handlers ----------------------------------------------------------------------------
(handlers/register
:undo
(fn
;; XXX get these right
(handlers/register ;; not pure
:undo ;; usage: (dispatch [:undo])
(fn handler
[_ _]
(historian/undo!))) ;; (dispatch [:undo])
(when (> (count @undo-list) 0)
(reset! app-db (last @undo-list))
(reset! redo-list (cons @app-db @redo-list))
(reset! undo-list (pop @undo-list)))))
(handlers/register
:redo
(fn
(handlers/register ;; not pure
:redo ;; usage: (dispatch [:redo])
(fn handler
[_ _]
(historian/redo!))) ;; (dispatch [:undo])
(when (> (count @redo-list) 0)
(reset! app-db (first @redo-list))
(reset! redo-list (rest @redo-list))
(reset! undo-list (conj @undo-list @app-db)))))