gered/views.reagent
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

slight adjustment to the format of view refresh messages

Browse source
This commit is contained in:
Gered 2016-05-30 12:28:01 -04:00
parent 908082397e
commit 734edab0b8
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
reagent-data-views-browserchannel/src/reagent_data_views/browserchannel/server.clj
View file

@ -10,7 +10,7 @@
(defn- views-send-fn (defn- views-send-fn
[client-id [view-sig view-data]] [client-id [view-sig view-data]]
(log/trace client-id "refresh view" view-sig) (log/trace client-id "refresh view" view-sig)
(browserchannel/send-data! client-id [:views/refresh view-sig view-data])) (browserchannel/send-data! client-id [:views/refresh [view-sig view-data]]))
(defn init-views! (defn init-views!
"initializes the views system and adds browserchannel-specific configuration "initializes the views system and adds browserchannel-specific configuration

4
reagent-data-views/src/reagent_data_views/client/core.cljs
View file

@ -28,7 +28,7 @@
[view-sig] [view-sig]
(r/cursor view-data [view-sig :data])) (r/cursor view-data [view-sig :data]))
(defn- handle-view-refresh [view-sig data] (defn- handle-view-refresh [[view-sig data]]
(let [cursor (r/cursor view-data [view-sig])] (let [cursor (r/cursor view-data [view-sig])]
(swap! cursor (swap! cursor
#(assoc % :loading false #(assoc % :loading false
@ -107,7 +107,7 @@
(when (relevant-event? data) (when (relevant-event? data)
(let [[event & args] data] (let [[event & args] data]
(condp = event (condp = event
:views/refresh (handle-view-refresh (first args) (second args)) :views/refresh (handle-view-refresh (first args))
(js/console.log "unrecognized event" event "-- full received data:" data)) (js/console.log "unrecognized event" event "-- full received data:" data))
; indicating that we handled the received event ; indicating that we handled the received event
true))) true)))