mirror of
https://github.com/status-im/re-frame-10x.git
synced 2025-01-27 06:34:59 +00:00
Update to support new API
This commit is contained in:
parent
9335c3963c
commit
c253ad9c83
@ -1,6 +1,6 @@
|
||||
(ns day8.re-frame.trace
|
||||
(:require [day8.re-frame.trace.subvis :as subvis]
|
||||
[re-frame.tracing :as trace :include-macros true]
|
||||
[re-frame.trace :as trace :include-macros true]
|
||||
[cljs.pprint :as pprint]
|
||||
[clojure.string :as str]
|
||||
[reagent.core :as r]
|
||||
@ -94,12 +94,17 @@
|
||||
|
||||
(def traces (interop/ratom []))
|
||||
(defn log-trace? [trace]
|
||||
(let [render-type? (= (:type trace) :render)]
|
||||
(not (and render-type?
|
||||
(str/includes? (or (get-in trace [:tags :component-path]) "") "day8.re_frame.trace")))))
|
||||
(let [rendering? (= (:op-type trace) :render)]
|
||||
(if-not rendering?
|
||||
true
|
||||
(not (str/includes? (or (get-in trace [:tags :component-path]) "") "day8.re_frame.trace")))
|
||||
|
||||
|
||||
#_ (if-let [comp-p (get-in trace [:tags :component-path])]
|
||||
(println comp-p))))
|
||||
|
||||
(defn init-tracing! []
|
||||
(re-frame.tracing/register-trace-cb ::cb (fn [new-traces]
|
||||
(re-frame.trace/register-trace-cb ::cb (fn [new-traces]
|
||||
(let [new-traces (filter log-trace? new-traces)]
|
||||
(swap! traces #(reduce conj % new-traces)))))
|
||||
(monkey-patch-reagent)
|
||||
@ -129,7 +134,7 @@
|
||||
(let [slower-than-ms-int (js/parseInt @slower-than-ms)
|
||||
slower-than-bold-int (js/parseInt @slower-than-bold)
|
||||
op-filter (when-not (str/blank? @search)
|
||||
(filter #(str/includes? (str (:operation %) " " (:type %)) @search)))
|
||||
(filter #(str/includes? (str (:operation %) " " (:op-type %)) @search)))
|
||||
ms-filter (when-not (str/blank? @slower-than-ms)
|
||||
(filter #(< slower-than-ms-int (:duration %))))
|
||||
transducers (apply comp (remove nil? [ms-filter op-filter]))
|
||||
@ -154,19 +159,19 @@
|
||||
[:th "meta"]]
|
||||
[:tbody
|
||||
(doall
|
||||
(for [{:keys [type id operation tags duration] :as trace} showing-traces]
|
||||
(let [row-style (merge padding {:border-top (case type :event "1px solid lightgrey" nil)})
|
||||
(for [{:keys [op-type id operation tags duration] :as trace} showing-traces]
|
||||
(let [row-style (merge padding {:border-top (case op-type :event "1px solid lightgrey" nil)})
|
||||
#_ #_ _ (js/console.log (devtools/header-api-call tags))
|
||||
]
|
||||
(list [:tr {:key id
|
||||
:style {:color (case type
|
||||
:style {:color (case op-type
|
||||
:sub/create "green"
|
||||
:sub/run "red"
|
||||
:event "blue"
|
||||
:render "purple"
|
||||
:re-frame.router/fsm-trigger "red"
|
||||
nil)}}
|
||||
[:td {:style row-style} (str type)]
|
||||
[:td {:style row-style} (str op-type)]
|
||||
[:td {:style row-style} operation]
|
||||
[:td
|
||||
{:style (merge row-style {:font-weight (if (< slower-than-bold-int duration)
|
||||
@ -193,7 +198,6 @@
|
||||
dragging? (r/atom false)
|
||||
pin-to-bottom? (r/atom true)
|
||||
selected-tab (r/atom :subvis)
|
||||
_ (js/console.log "Rendering devtools")
|
||||
handle-keys (fn [e]
|
||||
(let [combo-key? (or (.-ctrlKey e) (.-metaKey e) (.-altKey e))
|
||||
tag-name (.-tagName (.-target e))
|
||||
|
@ -2,7 +2,7 @@
|
||||
(:require [clojure.set :as set]))
|
||||
|
||||
(defn select-type [type traces]
|
||||
(filter #(= type (:type %)) traces))
|
||||
(filter #(= type (:op-type %)) traces))
|
||||
|
||||
(defn get-reaction [trace]
|
||||
(get-in trace [:tags :reaction]))
|
||||
|
@ -42,7 +42,6 @@
|
||||
svg-a (atom nil)
|
||||
simulation-a (atom nil)]
|
||||
(fn []
|
||||
(println "Render subvis")
|
||||
[:div
|
||||
{:style {:padding "10px"}}
|
||||
[:h1 "SUBVIS"]
|
||||
@ -68,9 +67,7 @@
|
||||
:d3-update (fn [ratom]
|
||||
(let [old-g @prev-graph ;; TODO: is this working?
|
||||
graph (reset! prev-graph (graph/trace->sub-graph @ratom [app-db-node]))]
|
||||
(js/console.log (clojure.data/diff old-g graph))
|
||||
(when (not= old-g graph)
|
||||
(println "Running")
|
||||
(let [simulation @simulation-a
|
||||
color @color-a
|
||||
svg @svg-a
|
||||
|
Loading…
x
Reference in New Issue
Block a user