diff options
author | Bozhidar Batsov <bozhidar@batsov.com> | 2015-11-25 09:47:53 +0200 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@batsov.com> | 2015-11-25 09:47:53 +0200 |
commit | 8dd3267361efaeb85725a6008b2f0367f94973d1 (patch) | |
tree | 4224a5306ff527aa097c2ecd162f3e7673ffe5af /cider-client.el | |
parent | b816b7e807f30886ee78ce2ef514de24f464a31c (diff) |
Add a session to a few middleware requests
Diffstat (limited to 'cider-client.el')
-rw-r--r-- | cider-client.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/cider-client.el b/cider-client.el index 70c26a7c..47405107 100644 --- a/cider-client.el +++ b/cider-client.el @@ -613,6 +613,7 @@ loaded. If CALLBACK is nil, use `cider-load-file-handler'." (defun cider-sync-request:apropos (query &optional search-ns docs-p privates-p case-sensitive-p) "Send \"apropos\" op with args SEARCH-NS, DOCS-P, PRIVATES-P, CASE-SENSITIVE-P." (thread-first `("op" "apropos" + "session" ,(cider-current-session) "ns" ,(cider-current-ns) "query" ,query ,@(when search-ns `("search-ns" ,search-ns)) @@ -684,19 +685,22 @@ loaded. If CALLBACK is nil, use `cider-load-file-handler'." (defun cider-sync-request:resource (name) "Perform nREPL \"resource\" op with resource name NAME." (thread-first (list "op" "resource" + "session" (cider-current-session) "name" name) (cider-nrepl-send-sync-request) (nrepl-dict-get "resource-path"))) (defun cider-sync-request:resources-list () "Perform nREPL \"resource\" op with resource name NAME." - (thread-first (list "op" "resources-list") + (thread-first (list "op" "resources-list" + "session" (cider-current-session)) (cider-nrepl-send-sync-request) (nrepl-dict-get "resources-list"))) (defun cider-sync-request:format-code (code) "Perform nREPL \"format-code\" op with CODE." (thread-first (list "op" "format-code" + "session" (cider-current-session) "code" code) (cider-nrepl-send-sync-request) (nrepl-dict-get "formatted-code"))) @@ -704,6 +708,7 @@ loaded. If CALLBACK is nil, use `cider-load-file-handler'." (defun cider-sync-request:format-edn (edn &optional right-margin) "Perform \"format-edn\" op with EDN and RIGHT-MARGIN." (let* ((response (thread-first (list "op" "format-edn" + "session" (cider-current-session) "edn" edn) (append (and right-margin (list "right-margin" right-margin))) (cider-nrepl-send-sync-request))) |