status-im
/
re-frame-10x
mirror of https://github.com/status-im/re-frame-10x.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Refactor naming for render state tab

This commit is contained in:
Saskia Lindner 2017-09-21 11:46:16 +02:00 committed by Daniel Compton
parent 8c1d39b006
commit 0ab47c5029
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/day8/re_frame/trace.cljs
View File

@ -402,7 +402,7 @@
:traces [render-trace-panel] :traces [render-trace-panel]
:subvis [subvis/render-subvis traces :subvis [subvis/render-subvis traces
[:div.panel-content-scrollable]] [:div.panel-content-scrollable]]
:app-state [app-state/tab @db/app-db])]]]))}))) :app-state [app-state/render-state db/app-db])]]]))})))
(defn panel-div [] (defn panel-div []
(let [id "--re-frame-trace--" (let [id "--re-frame-trace--"
panel (.getElementById js/document id)] panel (.getElementById js/document id)]

8
src/day8/re_frame/trace/app_state.cljs
View File

@ -1,9 +1,7 @@
(ns day8.re-frame.trace.app-state (ns day8.re-frame.trace.app-state
(:require [reagent.core :as r] (:require [reagent.core :as r]
[clojure.string :as str] [clojure.string :as str]
[devtools.formatters.core :as cljs-devtools] [devtools.formatters.core :as cljs-devtools]))
[cljs.pprint :refer [pprint]]))
(defn string->css [css-string] (defn string->css [css-string]
(->> (str/split (get css-string "style") #";") (->> (str/split (get css-string "style") #";")
@ -45,7 +43,7 @@
:else jsonml)))) :else jsonml))))
(defn tab [data] (defn render-state [data]
[:div {:style {:flex "1 0 auto" :width "100%" :height "100%" :display "flex" :flex-direction "column"}} [:div {:style {:flex "1 0 auto" :width "100%" :height "100%" :display "flex" :flex-direction "column"}}
[:div.panel-content-scrollable [:div.panel-content-scrollable
(jsonml->hiccup (cljs-devtools/header-api-call data))]]) (jsonml->hiccup (cljs-devtools/header-api-call @data))]])