From bc0825a5587979b12dfe28c5e7c2153372a6ff47 Mon Sep 17 00:00:00 2001
From: "chris (daiyi)" <daiyitastic@gmail.com>
Date: Tue, 25 Jul 2017 17:02:01 +0200
Subject: [PATCH] Only inject panel once

---
 src/day8/re_frame/trace.cljs | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/src/day8/re_frame/trace.cljs b/src/day8/re_frame/trace.cljs
index 12b999f..2435584 100644
--- a/src/day8/re_frame/trace.cljs
+++ b/src/day8/re_frame/trace.cljs
@@ -251,7 +251,15 @@
                                         :subvis [subvis/render-subvis traces]
                                         [render-traces])]]]))})))
 
+(defn panel-div []
+  (let [id    "--re-frame-trace--"
+        panel (.getElementById js/document id)]
+    (if panel
+      panel
+      (let [new-panel (.createElement js/document "div")]
+        (.setAttribute new-panel "id" id)
+        (.appendChild (.-body js/document) new-panel)
+        new-panel))))
+
 (defn inject-devtools! []
-  (let [div (.createElement js/document "div")]
-    (.appendChild (.-body js/document) div)
-    (r/render [devtools] div)))
+  (r/render [devtools] (panel-div)))