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

Remove debugging code

This commit is contained in:
Daniel Compton 2018-02-09 14:17:58 +13:00
parent 930ecc68f4
commit 4081c80810
4 changed files with 24 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
project.clj
View File

@ -9,7 +9,7 @@
[binaryage/devtools "0.9.4"]
[cljsjs/react-flip-move "2.9.17-0"]
[com.yahoo.platform.yui/yuicompressor "2.4.8" :exclusions [rhino/js]]
[expound "0.4.0"]
;[expound "0.4.0"]
]
:plugins [[thomasa/mranderson "0.4.7"]
[lein-less "RELEASE"]]

3
src/day8/re_frame/trace/events.cljs
View File

@ -377,7 +377,8 @@
:app-db/create-path
app-db-path-mw
(fn [paths _]
(assoc paths (js/Date.now) {:diff? false :open? true :path nil :path-str "[]" :valid-path? true})))
(assoc paths (js/Date.now) {:diff? false :open? true :path nil :path-str "" :valid-path? true})))

50
src/day8/re_frame/trace/subs.cljs
View File

@ -3,8 +3,7 @@
[day8.re-frame.trace.metamorphic :as metam]
[day8.re-frame.trace.utils.utils :as utils]
[clojure.string :as str]
[cljs.spec.alpha :as s]
[expound.alpha :as expound]))
[cljs.spec.alpha :as s]))
(rf/reg-sub
:settings/root
@ -408,9 +407,6 @@
:opt-un [:sub/value :sub/previous-value]))
(s/def :subs/view-subs (s/coll-of :subs/view-panel-sub))
(defn sub-type-value
[sub-type]
(case sub-type
@ -460,31 +456,25 @@
(let [remove-fn (if (= subscription :subs/inter-epoch-subs)
(fn [me] (nil? (:order (val me))))
(constantly false))
subx (->> sub-state
(remove remove-fn)
(map (fn [me] (let [state (val me)
subscription (:subscription state)
sub {:id (key me)
:reagent-id (key me)
:layer (get-in sub-info [(first subscription) :layer])
:path-data subscription
:path (pr-str subscription)
:order (or (:order state) [:sub/not-run])
:sub/traits (:sub/traits state)}
sub (if (contains? state :value)
(assoc sub :value (:value state))
sub)
sub (if (contains? state :previous-value)
(assoc sub :previous-value (:previous-value state))
sub)]
sub)))
(sort-by :order sub-sort-val))
]
#_(utils/spy "subx" subx)
#_(when-not (s/valid? :subs/view-subs subx)
(js/console.error (expound/expound-str :subs/view-subs subx)))
subx (->> sub-state
(remove remove-fn)
(map (fn [me] (let [state (val me)
subscription (:subscription state)
sub {:id (key me)
:reagent-id (key me)
:layer (get-in sub-info [(first subscription) :layer])
:path-data subscription
:path (pr-str subscription)
:order (or (:order state) [:sub/not-run])
:sub/traits (:sub/traits state)}
sub (if (contains? state :value)
(assoc sub :value (:value state))
sub)
sub (if (contains? state :previous-value)
(assoc sub :previous-value (:previous-value state))
sub)]
sub)))
(sort-by :order sub-sort-val))]
subx))
(rf/reg-sub

2
src/day8/re_frame/trace/view/subs.cljs
View File

@ -289,7 +289,7 @@
:style {:margin "19px 0px"}]
^{:key "inter-epoch-title"}
[:h2 {:class "bm-heading-text"
:style {:margin "19px 0px"}} "Inter-epoch subscriptions"]
:style {:margin "19px 0px"}} "Inter-Epoch Subscriptions"]
(for [p inter-epoch-subs]
^{:key (:id p)}
[pod (merge p (get sub-expansions (:id p)))])))