DeCarabas/Init-Files
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[emacs] cider tramp what

Browse source
This commit is contained in:
John Doty 2020-04-30 09:42:44 -07:00
parent 84b4903d1c
commit b64b3f7d77
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
site-lisp/cider-buck.el
View file

@ -27,9 +27,10 @@
(defun cider-buck--nrepl-target ()
"Get the nrepl buck target of the specified file name."
(let ((src-file (buffer-file-name (current-buffer))))
(let ((src-file (file-local-name (buffer-file-name (current-buffer)))))
(prin1 src-file)
(with-temp-buffer
(let ((status (call-process "buck" nil (current-buffer) nil
(let ((status (process-file "buck" nil (current-buffer) nil
"query" "owner('%s')" src-file)))
(unless (eq status 0)
(error (buffer-string)))