                                           :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)

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

;;; sec:ws

(defonce active-config (atom {:callback-fn #()
                              :error-fn #()
                              :error-p false
                              :is-active true}))

(defonce current-index (atom 0))

