summaryrefslogtreecommitdiff
path: root/cider-classpath.el
diff options
context:
space:
mode:
authorVitalie Spinu <spinuvit@gmail.com>2014-09-14 23:42:41 -0700
committerVitalie Spinu <spinuvit@gmail.com>2014-09-15 20:14:27 -0700
commitd201a438218b154edd7630abb4bedc715caa7849 (patch)
treef77d4951acd5afc402056f9095d7e2252b2e51ea /cider-classpath.el
parent0278169d03a59cd8b59521a3552bb3b111968101 (diff)
Rewrite `sync-request` subsystem
Changes to `nrepl-send-sync-request`: - returned response is now a standard nREPL dict - returned response is a merged dict of all the responses received so far Other changes: - remove macroexpand-1 macroexpand-all from cider-required-nrepl-ops - Reduce redundancy in eval APIs by removing several eval functions on CIDER side. They were either not used or could be replaced with direct calls to nrepl API. - Enforce `cider-sync-request:OP` convention and move all requests into `cider-client.el`.
Diffstat (limited to 'cider-classpath.el')
-rw-r--r--cider-classpath.el11
1 files changed, 2 insertions, 9 deletions
diff --git a/cider-classpath.el b/cider-classpath.el
index 183ddba5..076378fd 100644
--- a/cider-classpath.el
+++ b/cider-classpath.el
@@ -79,13 +79,6 @@
(interactive "e")
(cider-classpath-operate-on-point))
-(defun cider--classpath-entries ()
- "Return a list of classpath entries."
- (plist-get
- (nrepl-send-sync-request (list "op" "classpath"
- "session" (nrepl-current-session)))
- :value))
-
;;;###autoload
(defun cider-classpath ()
"List all classpath entries."
@@ -94,13 +87,13 @@
(cider-classpath-list (current-buffer)
(mapcar (lambda (name)
(cider-classpath-properties name))
- (cider--classpath-entries)))))
+ (cider-sync-request:classpath)))))
;;;###autoload
(defun cider-open-classpath-entry ()
"Open a classpath entry."
(interactive)
- (-when-let (entry (completing-read "Classpath entries: " (cider--classpath-entries)))
+ (-when-let (entry (completing-read "Classpath entries: " (cider-sync-request:classpath)))
(find-file-other-window entry)))
(defvar cider-classpath-mouse-map (make-sparse-keymap))