Add cider-sync-tooling-eval

1 files changed, 19 insertions, 1 deletions

diff --git a/cider-client.el b/cider-client.el
index 5e1e874c..76833b7e 100644
--- a/cider-client.el
+++ b/cider-client.el
@@ -782,7 +782,11 @@ result, and is included in the request if non-nil."
 
 (defun cider-tooling-eval (input callback &optional ns)
   "Send the request INPUT and register the CALLBACK as the response handler.
-NS specifies the namespace in which to evaluate the request."
+NS specifies the namespace in which to evaluate the request.
+
+Requests evaluated in the tooling nREPL session don't affect the
+thread-local bindings of the primary eval nREPL session (e.g. this is not
+going to clobber *1/2/3)."
   ;; namespace forms are always evaluated in the "user" namespace
   (nrepl-request:eval input
                       callback
@@ -790,6 +794,20 @@ NS specifies the namespace in which to evaluate the request."
                       ns nil nil nil t  ; tooling
                       ))
 
+(defun cider-sync-tooling-eval (input &optional ns)
+  "Send the request INPUT and evaluate in synchronously.
+NS specifies the namespace in which to evaluate the request.
+
+Requests evaluated in the tooling nREPL session don't affect the
+thread-local bindings of the primary eval nREPL session (e.g. this is not
+going to clobber *1/2/3)."
+  ;; namespace forms are always evaluated in the "user" namespace
+  (nrepl-sync-request:eval input
+                           (cider-current-connection)
+                           ns
+                           t  ; tooling
+                           ))
+
 (defalias 'cider-current-repl-buffer #'cider-current-connection
   "The current REPL buffer.
 Return the REPL buffer given by `cider-current-connection'.")