status-im/re-frame-10x
2
0
Fork 0
mirror of https://github.com/status-im/re-frame-10x.git synced 2025-02-16 16:06:23 +00:00
Code Issues Projects Releases Wiki Activity

A few fixes in the subs screen for panel opening/closing

Browse Source
This commit is contained in:
Gregg8 2018-01-11 18:20:45 +11:00
parent f0ce08c77d
commit 13b20bc511
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/day8/re_frame/trace/view/subs.cljs
View File

@ -23,11 +23,11 @@
;; TODO: START ========== LOCAL DATA - REPLACE WITH SUBS AND EVENTS
(def *pods (r/atom [{:type :destroyed :layer "3" :path [:todo/blah] :open? true :diff? true}
{:type :created :layer "3" :path [:todo/completed] :open? true :diff? true}
{:type :re-run :layer "3" :path [:todo/completed] :open? true :diff? true}
{:type :re-run :layer "2" :path [:todo/blah] :open? true :diff? true}
{:type :not-run :layer "3" :path [:todo/blah] :open? true :diff? true}]
(def *pods (r/atom [{:id (gensym) :type :destroyed :layer "3" :path [:todo/blah] :open? true :diff? true}
{:id (gensym) :type :created :layer "3" :path [:todo/completed] :open? true :diff? true}
{:id (gensym) :type :re-run :layer "3" :path [:todo/completed] :open? true :diff? true}
{:id (gensym) :type :re-run :layer "2" :path [:todo/blah] :open? true :diff? true}
{:id (gensym) :type :not-run :layer "3" :path [:todo/blah] :open? true :diff? true}]
#_[]))
(defn update-pod-field
@ -35,7 +35,7 @@
(let [f (fn [pod]
(if (= id (:id pod))
(do
;(println "Updated" field "in" (:id pod) "from" (get pod field) "to" new-val)
(println "Updated" field "in" (:id pod) "from" (get pod field) "to" new-val)
(assoc pod field new-val))
pod))]
(reset! *pods (mapv f @*pods))))
@ -122,9 +122,7 @@
:class "noselect"
:style {:cursor "pointer"}
:attr {:title (str (if open? "Close" "Open") " the pod bay doors, HAL")
:on-click (rc/handler-fn
(swap! open? not)
(println "Clicked [arrow]"))}
:on-click (rc/handler-fn (update-pod-field id :open? (not open?)))}
:child [rc/box
:margin "auto"
:child [:span.arrow (if open? "▼" "▶")]]]