From f2c191e9737c50659f0891dc36349c7b0539932f Mon Sep 17 00:00:00 2001 From: Florian Diebold Date: Wed, 29 May 2019 22:57:25 +0200 Subject: Add status buffer function to emacs integration Also fix a minor race condition in the 'extend selection' initialization. --- editors/emacs/ra-emacs-lsp.el | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) (limited to 'editors/emacs') diff --git a/editors/emacs/ra-emacs-lsp.el b/editors/emacs/ra-emacs-lsp.el index 84c018b66..71bc20f17 100644 --- a/editors/emacs/ra-emacs-lsp.el +++ b/editors/emacs/ra-emacs-lsp.el @@ -134,6 +134,13 @@ '(rust-analyzer-extend-selection)))) (with-eval-after-load 'expand-region + ;; add the expansion for all existing rust-mode buffers. If expand-region is + ;; loaded lazily, it might be loaded when the first rust buffer is opened, and + ;; then it's too late for the hook for that buffer + (dolist (buf (buffer-list)) + (with-current-buffer buf + (when (eq 'rust-mode major-mode) + (rust-analyzer--add-er-expansion)))) (add-hook 'rust-mode-hook 'rust-analyzer--add-er-expansion)) ;; runnables @@ -170,5 +177,32 @@ (rust-analyzer--select-runnable)))) (rust-analyzer-run (or runnable rust-analyzer--last-runnable))) +;; analyzer status buffer +(define-derived-mode rust-analyzer-status-mode special-mode "Rust-Analyzer-Status" + "Mode for the rust-analyzer status buffer.") + +(defvar-local rust-analyzer--status-buffer-workspace nil) + +(defun rust-analyzer-status () + "Displays status information for rust-analyzer." + (interactive) + (let* ((workspace (lsp-find-workspace 'rust-analyzer (buffer-file-name))) + (buf (get-buffer-create (concat "*rust-analyzer status " (with-lsp-workspace workspace (lsp-workspace-root)) "*")))) + (with-current-buffer buf + (rust-analyzer-status-mode) + (setq rust-analyzer--status-buffer-workspace workspace) + (rust-analyzer-status-buffer-refresh)) + (pop-to-buffer buf))) + +(defun rust-analyzer-status-buffer-refresh () + (interactive) + (when rust-analyzer--status-buffer-workspace + (let ((inhibit-read-only t)) + (erase-buffer) + (insert (with-lsp-workspace rust-analyzer--status-buffer-workspace + (lsp-send-request (lsp-make-request + "rust-analyzer/analyzerStatus"))))))) + + (provide 'ra-emacs-lsp) ;;; ra-emacs-lsp.el ends here -- cgit v1.2.3