 ;;  mostly for use from the REPL
 
 (defn list-connections []
-  (let [conns (map second (connections-available cljs.repl/*repl-env*))
+  (let [conns (connections-available cljs.repl/*repl-env*)
         longest-name (apply max (cons (count "Session Name")
                                       (map (comp count :session-name) conns)))]
     (println (format (str "%-" longest-name "s %7s %s")

                       c))
(defonce init-logger (do (.setCapturing log-console true) true))

;; --------------------------------------------------------------
;; Bootstrap goog require reloading
;; --------------------------------------------------------------

      (println (format (str "%-" longest-name "s %6sm %s")
                       session-name
                       (Math/round (/ (- (System/currentTimeMillis) created-at) 60000.0))
                       uri)))))

(defn will-eval-on []
  (if-let [n @(:focus-session-name cljs.repl/*repl-env*)]
    (println "Focused On: " n)
    (println "Will Eval On: " (->> (connections-available cljs.repl/*repl-env*)
                                  first
                                  :session-name))))

(defn conns* []
