bind-match-events.cljs

(defn subscribe-to-match [owner match-id]
  (let [pusher (om/get-shared owner :pusher)
        previous-channel (om/get-state owner :match-pusher-chan)
        new-channel (.subscribe pusher (str "match-" match-id))
        events-chan (om/get-shared owner :match-events-chan)
        events-list ["draft_character" "begin" "update_score"
                     "set_turn_number" "add_target" "remove_target"
                     "change_round" "change_turn" "update_health"]]
    (when previous-channel (.unbind previous-channel))
    (doseq [event-name events-list]
      (.bind new-channel event-name #(match-event % events-chan event-name)))
    (om/set-state! owner :match-pusher-chan new-channel)))