dnrops
/
rust
mirror of https://github.com/rust-lang/rust.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

eglot worksapce symbol

This commit is contained in:
Aleksey Kladov 2018-11-08 17:40:04 +03:00
parent 0952b928ad
commit c69ff08dc9
2 changed files with 60 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
crates/ra_lsp_server/src/main.rs
View File

@ -29,7 +29,6 @@ fn main() -> Result<()> {
}
}
}
fn main_inner() -> Result<()> {
let (receiver, sender, threads) = stdio_transport();
let cwd = ::std::env::current_dir()?;
@ -50,3 +49,27 @@ fn main_inner() -> Result<()> {
info!("... IO is down");
Ok(())
}
/*
(let ((backend (eglot-xref-backend)))
(mapcar
(lambda (xref)
(let ((loc (xref-item-location xref)))
(propertize
(concat
(when (xref-file-location-p loc)
(with-slots (file line column) loc
(format "%s:%s:%s:"
(propertize (file-relative-name file)
'face 'compilation-info)
(propertize (format "%s" line)
'face 'compilation-line
)
column)))
(xref-item-summary xref))
'xref xref)))
(xref-backend-apropos backend "Analysis"))
)
*/

36
editors/emacs/ra.el
View File

@ -83,5 +83,41 @@
"Set selections cache for current buffer state and START END."
(setq ra--selections-cache `(,(buffer-modified-tick) 0 ,(ra--selections start end))))
(require 'eglot)
(require 'ivy)
(require 'counsel)
(defun workspace-symbols ()
(interactive)
(let ((buf (current-buffer)))
(ivy-read "Symbol name: "
(lambda (str)
(with-current-buffer buf
(let ((backend (eglot-xref-backend)))
(mapcar
(lambda (xref)
(let ((loc (xref-item-location xref)))
(propertize
(concat
(when (xref-file-location-p loc)
(with-slots (file line column) loc
(format "%s:%s:%s:"
(propertize (file-relative-name file)
'face 'compilation-info)
(propertize (format "%s" line)
'face 'compilation-line
)
column)))
(xref-item-summary xref))
'xref xref)))
(xref-backend-apropos backend str))
)))
:dynamic-collection t
:action (lambda (item)
(xref--pop-to-location (get-text-property 0 'xref item))))))
(add-to-list 'eglot-server-programs '(rust-mode . ("ra_lsp_server")))
(provide 'ra)
;;; ra.el ends here