     (when (empty? (connections-available repl-env))
       (Thread/sleep 500)
       (recur))))
-
-
-
-
 
 (defn send-for-eval [{:keys [focus-session-name ;; just here for consideration
                              broadcast] :as repl-env} connections js]

       :response response-body}
    uuid (assoc :uuid uuid)))

(defn respond-to [{:keys [websocket http-url] :as old-msg} response-body]
  (let [response (response-for old-msg response-body)]
    (cond
      websocket
      (.send websocket (pr-str response))
      http-url
      (xhrio/send http-url
                  (fn [e] (debug "Response Posted"))
                  "POST"
                  (pr-str response)))))

(defn respond-to-connection [response-body]
  (respond-to (:connection @state) response-body))

#?(:cljs (do

;; TODO dev only

;; --------------------------------------------------
;; Logging
