Add profiling for athens.posh operations

athensresearch · Mar 9, 2021 · d0f18d3 · d0f18d3
1 parent 75b1d57
commit d0f18d3
Show file tree

Hide file tree

Showing 2 changed files with 27 additions and 20 deletions.
diff --git a/src/cljs/athens/effects.cljs b/src/cljs/athens/effects.cljs
@@ -13,7 +13,8 @@
     [day8.re-frame.async-flow-fx]
     [goog.dom.selection :refer [setCursorPosition]]
     [re-frame.core :refer [dispatch reg-fx]]
-    [stylefy.core :as stylefy]))
+    [stylefy.core :as stylefy]
+    [taoensso.tufte :as tufte]))
 
 
 ;;; Effects
@@ -237,7 +238,7 @@
 (reg-fx
   :transact!
   (fn [tx-data]
-    (walk-transact tx-data)))
+    (tufte/profile {} (walk-transact tx-data))))
 
 
 (reg-fx

diff --git a/src/cljs/athens/posh.cljs b/src/cljs/athens/posh.cljs
@@ -2,7 +2,8 @@
   (:require
    [athens.dbrx :as dbrx]
    [datascript.core :as d]
-   [posh.reagent :as posh]))
+   [posh.reagent :as posh]
+   [taoensso.tufte :as tufte]))
 
 
 (def version
@@ -11,32 +12,37 @@
 
 
 (defn create-conn [schema]
-  (case version
-    :posh (let [conn (d/create-conn schema)]
-            (posh/posh! conn)
-            conn)
-    :dbrx (dbrx/create-conn schema)))
+  (tufte/p ::create-conn
+     (case version
+       :posh (let [conn (d/create-conn schema)]
+               (posh/posh! conn)
+               conn)
+       :dbrx (dbrx/create-conn schema))))
 
 
 (defn pull [conn selector eid]
-  (case version
-    :posh (posh/pull conn selector eid)
-    :dbrx (dbrx/pull conn selector eid)))
+  (tufte/p ::pull
+     (case version
+       :posh (posh/pull conn selector eid)
+       :dbrx (dbrx/pull conn selector eid))))
 
 
 (defn pull-many [conn selector eids]
-  (case version
-    :posh (posh/pull-many conn selector eids)
-    :dbrx (dbrx/pull-many conn selector eids)))
+  (tufte/p ::pull-many
+     (case version
+       :posh (posh/pull-many conn selector eids)
+       :dbrx (dbrx/pull-many conn selector eids))))
 
 
 (defn q [query conn & args]
-  (case version
-    :posh (apply posh/q query conn args)
-    :dbrx (apply dbrx/q query conn args)))
+  (tufte/p ::q
+     (case version
+       :posh (apply posh/q query conn args)
+       :dbrx (apply dbrx/q query conn args))))
 
 
 (defn transact! [conn tx-data]
-  (case version
-    :posh (posh/transact! conn tx-data)
-    :dbrx (dbrx/transact! conn tx-data)))
+  (tufte/p ::transact!
+     (case version
+       :posh (posh/transact! conn tx-data)
+       :dbrx (dbrx/transact! conn tx-data))))