Fix inspector not using the appropriate REPL connection

Author: ak-coram

cider-inspector.el

@@ -268,15 +268,17 @@ In particular, it does not read `cider-sexp-at-point'."
 (defun cider-inspector-pop ()
   "Pop the last value off the inspector stack and render it."
   (interactive)
-  (let ((result (cider-nrepl-send-sync-request `("op" "inspect-pop"))))
+  (let ((result (cider-nrepl-send-sync-request `("op" "inspect-pop")
+                                               (cider-current-repl))))
     (when (nrepl-dict-get result "value")
       (cider-inspector--render-value result :pop))))
 
 (defun cider-inspector-push (idx)
   "Inspect the value at IDX in the inspector stack and render it."
   (interactive)
   (let ((result (cider-nrepl-send-sync-request `("op" "inspect-push"
-                                                 "idx" ,idx))))
+                                                 "idx" ,idx)
+                                               (cider-current-repl))))
     (when (nrepl-dict-get result "value")
       (push (point) cider-inspector-location-stack)
       (cider-inspector--render-value result :next-inspectable))))
@@ -290,29 +292,33 @@ If EX-DATA is true, inspect ex-data of the exception instead."
                  `("op" "inspect-last-exception"
                    "index" ,index
                    ,@(when ex-data
-                       `("ex-data" "true"))))))
+                       `("ex-data" "true")))
+                 (cider-current-repl))))
     (when (nrepl-dict-get result "value")
       (setq cider-inspector-location-stack nil)
       (cider-inspector--render-value result :next-inspectable))))
 
 (defun cider-inspector-previous-sibling ()
   "Inspect the previous sibling value within a sequential parent."
   (interactive)
-  (let ((result (cider-nrepl-send-sync-request `("op" "inspect-previous-sibling"))))
+  (let ((result (cider-nrepl-send-sync-request `("op" "inspect-previous-sibling")
+                                               (cider-current-repl))))
     (when (nrepl-dict-get result "value")
       (cider-inspector--render-value result))))
 
 (defun cider-inspector-next-sibling ()
   "Inspect the next sibling value within a sequential parent."
   (interactive)
-  (let ((result (cider-nrepl-send-sync-request `("op" "inspect-next-sibling"))))
+  (let ((result (cider-nrepl-send-sync-request `("op" "inspect-next-sibling")
+                                               (cider-current-repl))))
     (when (nrepl-dict-get result "value")
       (cider-inspector--render-value result))))
 
 (defun cider-inspector--refresh-with-opts (&rest opts)
   "Invokes `inspect-refresh' op with supplied extra OPTS.
 Re-renders the currently inspected value."
-  (let ((result (cider-nrepl-send-sync-request `("op" "inspect-refresh" ,@opts))))
+  (let ((result (cider-nrepl-send-sync-request `("op" "inspect-refresh" ,@opts)
+                                               (cider-current-repl))))
     (when (nrepl-dict-get result "value")
       (cider-inspector--render-value result))))
 
@@ -326,7 +332,8 @@ Re-renders the currently inspected value."
 
 Does nothing if already on the last page."
   (interactive)
-  (let ((result (cider-nrepl-send-sync-request '("op" "inspect-next-page"))))
+  (let ((result (cider-nrepl-send-sync-request '("op" "inspect-next-page")
+                                               (cider-current-repl))))
     (when (nrepl-dict-get result "value")
       (cider-inspector--render-value result))))
 
@@ -335,7 +342,8 @@ Does nothing if already on the last page."
 
 Does nothing if already on the first page."
   (interactive)
-  (let ((result (cider-nrepl-send-sync-request '("op" "inspect-prev-page"))))
+  (let ((result (cider-nrepl-send-sync-request '("op" "inspect-prev-page")
+                                               (cider-current-repl))))
     (when (nrepl-dict-get result "value")
       (cider-inspector--render-value result))))
 
@@ -369,7 +377,8 @@ MAX-NESTED-DEPTH is the new value."
   ;; Disable hint about analytics feature so that it is never displayed again.
   (when cider-inspector-display-analytics-hint
     (customize-set-variable 'cider-inspector-display-analytics-hint nil))
-  (let ((result (cider-nrepl-send-sync-request `("op" "inspect-display-analytics"))))
+  (let ((result (cider-nrepl-send-sync-request `("op" "inspect-display-analytics")
+                                               (cider-current-repl))))
     (when (nrepl-dict-get result "value")
       (cider-inspector--render-value result :next-inspectable))))
 
@@ -397,7 +406,8 @@ MAX-NESTED-DEPTH is the new value."
 (defun cider-inspector-toggle-view-mode ()
   "Toggle the view mode of the inspector between normal and object view mode."
   (interactive)
-  (let ((result (cider-nrepl-send-sync-request `("op" "inspect-toggle-view-mode"))))
+  (let ((result (cider-nrepl-send-sync-request `("op" "inspect-toggle-view-mode")
+                                               (cider-current-repl))))
     (when (nrepl-dict-get result "value")
       (cider-inspector--render-value result :next-inspectable))))
 
@@ -431,7 +441,8 @@ current-namespace."
                        ns)))
   (when-let* ((result (cider-nrepl-send-sync-request `("op" "inspect-def-current-value"
                                                        "ns" ,ns
-                                                       "var-name" ,var-name))))
+                                                       "var-name" ,var-name)
+                                                     (cider-current-repl))))
     (cider-inspector--render-value result)
     (message "Defined current inspector value as #'%s/%s" ns var-name)))
 
@@ -449,7 +460,8 @@ current-namespace."
 (defun cider-inspector-tap-current-val ()
   "Sends the current Inspector current value to `tap>'."
   (interactive)
-  (let ((response (cider-nrepl-send-sync-request '("op" "inspect-tap-current-value"))))
+  (let ((response (cider-nrepl-send-sync-request '("op" "inspect-tap-current-value")
+                                                 (cider-current-repl))))
     (nrepl-dbind-response response (value err)
       (if value
           (message "Successfully tapped the current Inspector value")
@@ -463,7 +475,8 @@ current-namespace."
       (`cider-value-idx
        (cl-assert value)
        (nrepl-dbind-response (cider-nrepl-send-sync-request `("op" "inspect-tap-indexed"
-                                                              "idx" ,value))
+                                                              "idx" ,value)
+                                                            (cider-current-repl))
            (value err)
          (if value
              (message "Successfully tapped the Inspector item at point")
@@ -493,7 +506,7 @@ MAX-COLL-SIZE if non nil."
               "pretty-print" ,(if cider-inspector-pretty-print "true" "false")
               "sort-maps" ,(if cider-inspector-sort-maps "true" "false")
               "only-diff" ,(if cider-inspector-only-diff "true" "false")))
-    (cider-nrepl-send-sync-request)))
+    (cider-nrepl-send-sync-request (cider-current-repl))))
 
 (declare-function cider-set-buffer-ns "cider-mode")