diff options
author | Vitalie Spinu <spinuvit@gmail.com> | 2014-09-14 23:42:41 -0700 |
---|---|---|
committer | Vitalie Spinu <spinuvit@gmail.com> | 2014-09-15 20:14:27 -0700 |
commit | d201a438218b154edd7630abb4bedc715caa7849 (patch) | |
tree | f77d4951acd5afc402056f9095d7e2252b2e51ea /cider-classpath.el | |
parent | 0278169d03a59cd8b59521a3552bb3b111968101 (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.el | 11 |
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)) |