Use session metadata for inspector state

The bindings map is no longer reliably updated due to changes in nREPL – it is
now possible for the inspector state to be overwritten if we use it. Use the
session's metadata instead (as the session middleware itself does).

Author: cichli

src/cider/nrepl/middleware/inspect.clj

@@ -10,13 +10,11 @@
   (:import
    nrepl.transport.Transport))
 
-(def ^:dynamic *inspector* (inspect/fresh))
-
 (defn swap-inspector!
   [{:keys [session] :as msg} f & args]
   (-> session
-      (swap! update-in [#'*inspector*] #(apply f % args))
-      (get #'*inspector*)))
+      (alter-meta! update ::inspector #(apply f % args))
+      (get ::inspector)))
 
 (defn inspect-reply
   [{:keys [page-size transport] :as msg} eval-response]
@@ -75,7 +73,7 @@
   (inspector-response msg (swap-inspector! msg #(or % (inspect/fresh)))))
 
 (defn get-path-reply [{:keys [session] :as msg}]
-  (:path (get session #'*inspector*)))
+  (get-in (meta session) [::inspector :path]))
 
 (defn next-page-reply [msg]
   (inspector-response msg (swap-inspector! msg inspect/next-page)))