From 307979b4a7f72e14c8686036fc99675f87eddb7e Mon Sep 17 00:00:00 2001 From: Daniel Compton Date: Sun, 11 Feb 2018 22:01:05 +1300 Subject: [PATCH] Add debug view panel --- src/day8/re_frame/trace/view/container.cljs | 5 +++-- src/day8/re_frame/trace/view/views.cljs | 16 ++++++++++++++-- 2 files changed, 17 insertions(+), 4 deletions(-) diff --git a/src/day8/re_frame/trace/view/container.cljs b/src/day8/re_frame/trace/view/container.cljs index 732207e..9a9b6af 100644 --- a/src/day8/re_frame/trace/view/container.cljs +++ b/src/day8/re_frame/trace/view/container.cljs @@ -136,7 +136,8 @@ :children [(tab-button :event "Event") (tab-button :app-db "app-db") (tab-button :subs "Subs") - ;(tab-button :views "Views") + (when (:debug? opts) + (tab-button :views "Views")) (tab-button :traces "Trace") (tab-button :timing "Timing") (when (:debug? opts) @@ -149,7 +150,7 @@ [rc/v-box :size "auto" :style {:margin-left common/gs-19s - :overflow-y (if (contains? #{:timing :debug :event :subs} @selected-tab) + :overflow-y (if (contains? #{:timing :debug :event :subs :views} @selected-tab) "auto" "initial") ;:overflow "auto" ;; TODO: Might have to put this back or add scrolling within the panels } diff --git a/src/day8/re_frame/trace/view/views.cljs b/src/day8/re_frame/trace/view/views.cljs index 645ba0f..3a9ebd2 100644 --- a/src/day8/re_frame/trace/view/views.cljs +++ b/src/day8/re_frame/trace/view/views.cljs @@ -1,3 +1,15 @@ -(ns day8.re-frame.trace.view.views) +(ns day8.re-frame.trace.view.views + (:require [mranderson047.re-frame.v0v10v2.re-frame.core :as rf] + [day8.re-frame.trace.metamorphic :as metam] + [day8.re-frame.trace.utils.re-com :as rc])) -(defn render []) +(defn render + [] + [:div + (for [x @(rf/subscribe [:traces/current-event-traces]) + :when (and (some #(or (= "rx88" %) + (= "rx193" %)) + (get-in x [:tags :input-signals])) + #_ (metam/render? x))] + ^{:key (:id x)} + [:pre {:style {:display "block" :border "1px solid black"}} (prn-str (metam/summarise-event x))])])