Skip to content

Commit d2e22e7

Browse files
vspinubbatsov
authored andcommitted
Move cider-sync-request:ns-path to cider-client.el
1 parent b13a70c commit d2e22e7

File tree

2 files changed

+7
-7
lines changed

2 files changed

+7
-7
lines changed

cider-client.el

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1007,6 +1007,13 @@ CONTEXT represents a completion context for compliment."
10071007
(cider-nrepl-send-sync-request)
10081008
(nrepl-dict-get "ns-vars")))
10091009

1010+
(defun cider-sync-request:ns-path (ns)
1011+
"Get the path to the file containing NS."
1012+
(thread-first `("op" "ns-path"
1013+
"ns" ,ns)
1014+
(cider-nrepl-send-sync-request)
1015+
(nrepl-dict-get "path")))
1016+
10101017
(defun cider-sync-request:ns-vars-with-meta (ns)
10111018
"Get a map of the vars in NS to its metadata information."
10121019
(thread-first `("op" "ns-vars-with-meta"

cider-interaction.el

Lines changed: 0 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -465,13 +465,6 @@ Invert meaning of `cider-prompt-for-symbol' if PREFIX indicates it should be."
465465
(if (cider--prefix-invert-prompt-p prefix)
466466
(not cider-prompt-for-symbol) cider-prompt-for-symbol))
467467

468-
(defun cider-sync-request:ns-path (ns)
469-
"Get the path to the file containing NS."
470-
(thread-first `("op" "ns-path"
471-
"ns" ,ns)
472-
cider-nrepl-send-sync-request
473-
(nrepl-dict-get "path")))
474-
475468
(defun cider--find-ns (ns &optional other-window)
476469
"Find the file containing NS's definition.
477470
Optionally open it in a different window if OTHER-WINDOW is truthy."

0 commit comments

Comments
 (0)