                                           :last-refresh-send-time now
                                           :timer timer
                                           :next-ping-timer next-ping-timer}))))))
-
-(defn websocket-active-updated [ws]
-  (let [timer (:next-ping-timer @websocket-config)]
-    (when timer
-      (.clearTimeout js/window timer)))
-  (start-websocket-ping ws))
 
 (defn handle-websocket-message [ws msg]
   (case (:type msg)

      ((:error-fn @active-config) error-p))))

(defn set-is-active [active-p]
  (swap! active-config #(conj % {:is-active active-p}))
  (let [updated (:active-updated-fn @active-config)]
    (updated)))

;;; sec:poll


  (let [req (make-xhr-io-req)]
    (notify-fail false)
    (swap! poll-config #(conj % {:channel cid :event event}))
    (run-polling-request-loop req)))

;;; sec:ws
