Move tooling-file-p and ensure-op-supported out of cider-interaction.el

1 files changed, 7 insertions, 0 deletions

diff --git a/cider-util.el b/cider-util.el
index 55bcc404..0d11c6ad 100644
--- a/cider-util.el
+++ b/cider-util.el
@@ -91,6 +91,13 @@ prompt if that throws an error."
       #'cider-read-symbol-name
     #'cider-try-symbol-at-point))
 
+(defun cider--tooling-file-p (file-name)
+  "Return t if FILE-NAME is not a 'real' source file.
+Currently, only check if the relative file name starts with 'form-init'
+which nREPL uses for temporary evaluation file names."
+  (let ((fname (file-name-nondirectory file-name)))
+    (string-match-p "^form-init" fname)))
+
 ;;; Text properties
 
 (defun cider-maybe-intern (name)