diff options
Diffstat (limited to 'cider-client.el')
-rw-r--r-- | cider-client.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/cider-client.el b/cider-client.el index 556cc492..2df238df 100644 --- a/cider-client.el +++ b/cider-client.el @@ -178,16 +178,16 @@ loaded. If CALLBACK is nil, use `cider-load-file-handler'." ,@(when docs-p '("docs?" "t")) ,@(when privates-p '("privates?" "t")) ,@(when case-sensitive-p '("case-sensitive?" "t"))) - (nrepl-send-sync-request) - (nrepl-dict-get "apropos-matches"))) + (nrepl-send-sync-request) + (nrepl-dict-get "apropos-matches"))) (defun cider-sync-request:classpath () "Return a list of classpath entries." (cider-ensure-op-supported "classpath") (-> (list "op" "classpath" "session" (nrepl-current-session)) - (nrepl-send-sync-request) - (nrepl-dict-get "classpath"))) + (nrepl-send-sync-request) + (nrepl-dict-get "classpath"))) (defun cider-sync-request:complete (str context) "Return a list of completions for STR using nREPL's \"complete\" op." @@ -196,8 +196,8 @@ loaded. If CALLBACK is nil, use `cider-load-file-handler'." "ns" (cider-current-ns) "symbol" str "context" context) - (nrepl-send-sync-request) - (nrepl-dict-get "completions"))) + (nrepl-send-sync-request) + (nrepl-dict-get "completions"))) (defun cider-sync-request:info (symbol &optional class member) "Send \"info\" op with parameters SYMBOL or CLASS and MEMBER." @@ -207,7 +207,7 @@ loaded. If CALLBACK is nil, use `cider-load-file-handler'." ,@(when symbol (list "symbol" symbol)) ,@(when class (list "class" class)) ,@(when member (list "member" member))) - (nrepl-send-sync-request)))) + (nrepl-send-sync-request)))) (if (member "no-info" (nrepl-dict-get var-info "status")) nil var-info))) @@ -220,7 +220,7 @@ loaded. If CALLBACK is nil, use `cider-load-file-handler'." ,@(when symbol (list "symbol" symbol)) ,@(when class (list "class" class)) ,@(when member (list "member" member))) - (nrepl-send-sync-request)))) + (nrepl-send-sync-request)))) (if (member "no-eldoc" (nrepl-dict-get eldoc "status")) nil eldoc))) @@ -237,8 +237,8 @@ The default for DISPLAY-NAMESPACES is taken from "display-namespaces" (or display-namespaces (symbol-name cider-macroexpansion-display-namespaces))) - (nrepl-send-sync-request) - (nrepl-dict-get "expansion"))) + (nrepl-send-sync-request) + (nrepl-dict-get "expansion"))) (defun cider-sync-request:ns-list () "Get a list of the available namespaces." @@ -255,8 +255,8 @@ The default for DISPLAY-NAMESPACES is taken from "Perform nREPL \"resource\" op with resource name NAME." (-> (list "op" "resource" "name" name) - (nrepl-send-sync-request) - (nrepl-dict-get "resource-path"))) + (nrepl-send-sync-request) + (nrepl-dict-get "resource-path"))) (provide 'cider-client) |