   (fn []
     (go
       (loop []
-        (log "Wait for messages on [ws-only-send-chan].")
-        (log "ws-only-send-chan: >> " (:ws-only-send-chan aws) " <<" )
+        ;; (log "Wait for messages on [ws-only-send-chan].")
+        ;; (log "ws-only-send-chan: >> " (:ws-only-send-chan aws) " <<" )
         (let [msg (<! (:ws-only-send-chan aws))]
-          (log "Popped message, off websocket only send channel: >> " msg " <<")
-          (log "Will now send over websocket.")
-          (log "Websocket State: >> " (ws-state aws) " <<")
+          ;; (log "Popped message, off websocket only send channel: >> " msg " <<")
+          ;; (log "Will now send over websocket.")
+          ;; (log "Websocket State: >> " (ws-state aws) " <<")
           (.send (:websocket aws) msg)
-          (log "Sent message over websocket.  Now will wait for next message to send."))
+          ;; (log "Sent message over websocket.  Now will wait for next message to send.")
+          )
         (recur)))))
 
 (defn on-message [aws event]

            ;; [cljs.core.async :refer [<! >! chan timeout take! put!]]
            [cljs.core.async :as async :refer [chan >! <! timeout]]
            [clojure.core.async.impl.protocols :as impl]))

;; We break up the send channel into two, one specifically for the
;; application we call this the app-send-chan.  This channel is

        (log "Putting message on app receive channel.")
        (>! (:app-recv-chan aws) recvd-msg)))))

(defn dummy-on-msg [event]
  "Callback.  When WS receives a message."
  ;; (.log js/console "!!!!!! got a mesage back!!!!!!!!!")
  (log "Got message from websocket: >> " (aget event "data") " << !!!!!!!!!!"))

(defn new-websocket! [aws]
  "Make new websocket, wire up send/recv channels."
  ;; (log "NWS: Using websocket url: >> " (:ws-url aws) " <<")
  (let [new-aws (assoc aws :websocket (js/WebSocket. (:ws-url aws)))]
    (aset (:websocket new-aws) "onopen" (on-open new-aws))
    ;; (aset (:websocket new-aws) "onmessage" (partial on-message new-aws))
    (aset (:websocket new-aws) "onmessage" dummy-on-msg)
    ;; (log "NWS: Finished configuring and instantiating websocket.")
    new-aws))
(defn monitor-send-msg-queue!
  [aws]
  "We need to check if websocket has timed out before we try to send
