Move cider-expected-ns to cider-common.el

1 files changed, 26 insertions, 0 deletions

diff --git a/cider-common.el b/cider-common.el
index 7bd8de51..b03b4138 100644
--- a/cider-common.el
+++ b/cider-common.el
@@ -224,5 +224,31 @@ existing file ending with URL has been found."
       (16 t) ; empty empty
       (_ nil))))
 
+(defun cider-expected-ns (&optional path)
+  "Return the namespace string matching PATH, or nil if not found.
+
+PATH is expected to be an absolute file path.
+If PATH is nil, use the path to the file backing the current buffer.
+
+The command falls back to `clojure-expected-ns' in the absence of an
+active nREPL connection."
+  (if (cider-connected-p)
+      (let* ((path (or path (file-truename (buffer-file-name))))
+             (relpath (thread-last (cider-sync-request:classpath)
+                        (seq-map
+                         (lambda (cp)
+                           (when (string-prefix-p cp path)
+                             (substring path (length cp)))))
+                        (seq-filter #'identity)
+                        (seq-sort (lambda (a b)
+                                    (< (length a) (length b))))
+                        (car))))
+        (when relpath
+          (thread-last (substring relpath 1) ; remove leading /
+            (file-name-sans-extension)
+            (replace-regexp-in-string "/" ".")
+            (replace-regexp-in-string "_" "-"))))
+    (clojure-expected-ns path)))
+
 (provide 'cider-common)
 ;;; cider-common.el ends here