From 11954d99b17e50cc6a2f72f7677ae0175b8abea3 Mon Sep 17 00:00:00 2001
From: Daniel Compton <desk@danielcompton.net>
Date: Fri, 9 Feb 2018 20:57:00 +1300
Subject: [PATCH] Calculate count of subscription traces

---
 src/day8/re_frame/trace/preload.cljs |  4 +++-
 src/day8/re_frame/trace/subs.cljs    | 10 +++++-----
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/src/day8/re_frame/trace/preload.cljs b/src/day8/re_frame/trace/preload.cljs
index e207625..68d37d9 100644
--- a/src/day8/re_frame/trace/preload.cljs
+++ b/src/day8/re_frame/trace/preload.cljs
@@ -1,9 +1,11 @@
 (ns day8.re-frame.trace.preload
-  (:require [day8.re-frame.trace :as trace]))
+  (:require [day8.re-frame.trace :as trace]
+            [mranderson047.re-frame.v0v10v2.re-frame.core :as rf]))
 
 
 ;; Use this namespace with the :preloads compiler option to perform the necessary setup for enabling tracing:
 ;; {:compiler {:preloads [day8.re-frame.trace.preload] ...}}
+(rf/clear-subscription-cache!)
 (trace/init-db!)
 (defonce _ (trace/init-tracing!))
 (trace/inject-devtools!)
diff --git a/src/day8/re_frame/trace/subs.cljs b/src/day8/re_frame/trace/subs.cljs
index dde7d20..a8c3806 100644
--- a/src/day8/re_frame/trace/subs.cljs
+++ b/src/day8/re_frame/trace/subs.cljs
@@ -517,32 +517,32 @@
   :<- [:subs/visible-subs]
   (fn [subs _]
     (->> subs
-         (map :type)
+         (mapcat :order)
          (frequencies))))
 
 (rf/reg-sub
   :subs/created-count
   :<- [:subs/sub-counts]
   (fn [counts]
-    (get counts :created 0)))
+    (get counts :sub/create 0)))
 
 (rf/reg-sub
   :subs/re-run-count
   :<- [:subs/sub-counts]
   (fn [counts]
-    (get counts :re-run 0)))
+    (get counts :sub/run 0)))
 
 (rf/reg-sub
   :subs/destroyed-count
   :<- [:subs/sub-counts]
   (fn [counts]
-    (get counts :destroyed 0)))
+    (get counts :sub/dispose 0)))
 
 (rf/reg-sub
   :subs/not-run-count
   :<- [:subs/sub-counts]
   (fn [counts]
-    (get counts :not-run 0)))
+    (get counts :sub/not-run 0)))
 
 (rf/reg-sub
   :subs/unchanged-l2-subs-count