   (defonce scratch (atom {}))
   (-> @scratch :adaptor (.. getSession getUpgradeRequest) build-request-map)
   )
+
+
 
 #_(def server (run-jetty
                (fn [ring-request]

    HandlerList]
   [org.eclipse.jetty.websocket.servlet
    WebSocketServletFactory WebSocketCreator
    ServletUpgradeRequest ServletUpgradeResponse]))

;; ------------------------------------------------------
;; Jetty 9 Websockets

                                   ws-proxy-handlers
                                   async-proxy-handlers
                                   [existing-handler]))))]
      (.setHandler server contexts)
      server)))

(defn run-jetty [handler {:keys [websockets async-handlers log-level] :as options}]
  (jt/run-jetty
   handler
   (if (or (not-empty websockets) (not-empty async-handlers))
     (assoc options :configurator
            (fn [server]
              (set-log-level! log-level)
              ((async-websocket-configurator
                (select-keys options [:websockets :async-handlers])) server)))
     (assoc options
            :configurator
            (fn [server]
              (set-log-level! log-level))))))

;; Figwheel REPL adapter

