mathieu/os-rust
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improvements to emacs inlay hints

Browse source 
- only send request if workspace is initialized (emacs-lsp doesn't seem to
   prevent sending requests before the initialized notification is sent)
 - check whether we're still in the correct buffer before sending request
This commit is contained in:
Florian Diebold 2019-08-05 21:15:44 +02:00
parent e3f8e6023d
commit e51c1d6bff
1 changed files with 24 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
editors/emacs/ra-emacs-lsp.el
View file

@ -79,6 +79,10 @@
:ignore-messages nil :ignore-messages nil
:server-id 'rust-analyzer)) :server-id 'rust-analyzer))
(defun rust-analyzer--initialized? ()
(when-let ((workspace (lsp-find-workspace 'rust-analyzer (buffer-file-name))))
(eq 'initialized (lsp--workspace-status workspace))))
(with-eval-after-load 'company-lsp (with-eval-after-load 'company-lsp
;; company-lsp provides a snippet handler for rust by default that adds () after function calls, which RA does better ;; company-lsp provides a snippet handler for rust by default that adds () after function calls, which RA does better
(setq company-lsp--snippet-functions (cl-delete "rust" company-lsp--snippet-functions :key #'car :test #'equal))) (setq company-lsp--snippet-functions (cl-delete "rust" company-lsp--snippet-functions :key #'car :test #'equal)))
@ -229,7 +233,8 @@
(pop-to-buffer buf)))))) (pop-to-buffer buf))))))
;; inlay hints ;; inlay hints
(defun rust-analyzer--update-inlay-hints () (defun rust-analyzer--update-inlay-hints (buffer)
(if (and (rust-analyzer--initialized?) (eq buffer (current-buffer)))
(lsp-send-request-async (lsp-send-request-async
(lsp-make-request "rust-analyzer/inlayHints" (lsp-make-request "rust-analyzer/inlayHints"
(list :textDocument (lsp--text-document-identifier))) (list :textDocument (lsp--text-document-identifier)))
@ -243,7 +248,7 @@
(overlay-put overlay 'evaporate t) (overlay-put overlay 'evaporate t)
(overlay-put overlay 'after-string (propertize (concat ": " label) (overlay-put overlay 'after-string (propertize (concat ": " label)
'font-lock-face 'font-lock-comment-face))))) 'font-lock-face 'font-lock-comment-face)))))
'tick) 'tick))
nil) nil)
(defvar-local rust-analyzer--inlay-hints-timer nil) (defvar-local rust-analyzer--inlay-hints-timer nil)
@ -252,17 +257,19 @@
(when rust-analyzer--inlay-hints-timer (when rust-analyzer--inlay-hints-timer
(cancel-timer rust-analyzer--inlay-hints-timer)) (cancel-timer rust-analyzer--inlay-hints-timer))
(setq rust-analyzer--inlay-hints-timer (setq rust-analyzer--inlay-hints-timer
(run-with-idle-timer 0.1 nil #'rust-analyzer--update-inlay-hints))) (run-with-idle-timer 0.1 nil #'rust-analyzer--update-inlay-hints (current-buffer))))
(define-minor-mode rust-analyzer-inlay-hints-mode (define-minor-mode rust-analyzer-inlay-hints-mode
"Mode for showing inlay hints." "Mode for showing inlay hints."
nil nil nil nil nil nil
(cond (cond
(rust-analyzer-inlay-hints-mode (rust-analyzer-inlay-hints-mode
(rust-analyzer--update-inlay-hints) (rust-analyzer--update-inlay-hints (current-buffer))
(add-hook 'lsp-after-initialize-hook #'rust-analyzer--inlay-hints-change-handler nil t)
(add-hook 'after-change-functions #'rust-analyzer--inlay-hints-change-handler nil t)) (add-hook 'after-change-functions #'rust-analyzer--inlay-hints-change-handler nil t))
(t (t
(remove-overlays (point-min) (point-max) 'rust-analyzer--inlay-hint t) (remove-overlays (point-min) (point-max) 'rust-analyzer--inlay-hint t)
(remove-hook 'lsp-after-initialize-hook #'rust-analyzer--inlay-hints-change-handler t)
(remove-hook 'after-change-functions #'rust-analyzer--inlay-hints-change-handler t)))) (remove-hook 'after-change-functions #'rust-analyzer--inlay-hints-change-handler t))))