aboutsummaryrefslogtreecommitdiff
path: root/editors/emacs
diff options
context:
space:
mode:
Diffstat (limited to 'editors/emacs')
-rw-r--r--editors/emacs/rust-analyzer.el13
1 files changed, 11 insertions, 2 deletions
diff --git a/editors/emacs/rust-analyzer.el b/editors/emacs/rust-analyzer.el
index 06db4f15f..9b426fcae 100644
--- a/editors/emacs/rust-analyzer.el
+++ b/editors/emacs/rust-analyzer.el
@@ -38,7 +38,9 @@
38 38
39(defconst rust-analyzer--action-handlers 39(defconst rust-analyzer--action-handlers
40 '(("rust-analyzer.applySourceChange" . 40 '(("rust-analyzer.applySourceChange" .
41 (lambda (p) (rust-analyzer--apply-source-change-command p))))) 41 (lambda (p) (rust-analyzer--apply-source-change-command p)))
42 ("rust-analyzer.selectAndApplySourceChange" .
43 (lambda (p) (rust-analyzer--select-and-apply-source-change-command p)))))
42 44
43(defun rust-analyzer--uri-filename (text-document) 45(defun rust-analyzer--uri-filename (text-document)
44 (lsp--uri-to-path (gethash "uri" text-document))) 46 (lsp--uri-to-path (gethash "uri" text-document)))
@@ -71,6 +73,12 @@
71 (let ((data (-> p (ht-get "arguments") (lsp-seq-first)))) 73 (let ((data (-> p (ht-get "arguments") (lsp-seq-first))))
72 (rust-analyzer--apply-source-change data))) 74 (rust-analyzer--apply-source-change data)))
73 75
76(defun rust-analyzer--select-and-apply-source-change-command (p)
77 (let* ((options (-> p (ht-get "arguments") (lsp-seq-first)))
78 (chosen-option (lsp--completing-read "Select option:" options
79 (-lambda ((&hash "label")) label))))
80 (rust-analyzer--apply-source-change chosen-option)))
81
74(lsp-register-client 82(lsp-register-client
75 (make-lsp-client 83 (make-lsp-client
76 :new-connection (lsp-stdio-connection (lambda () rust-analyzer-command)) 84 :new-connection (lsp-stdio-connection (lambda () rust-analyzer-command))
@@ -143,7 +151,8 @@
143 151
144(defun rust-analyzer-run (runnable) 152(defun rust-analyzer-run (runnable)
145 (interactive (list (rust-analyzer--select-runnable))) 153 (interactive (list (rust-analyzer--select-runnable)))
146 (-let (((&hash "env" "bin" "args" "label") runnable)) 154 (-let* (((&hash "env" "bin" "args" "label") runnable)
155 (compilation-environment (-map (-lambda ((k v)) (concat k "=" v)) (ht-items env))))
147 (compilation-start 156 (compilation-start
148 (string-join (append (list bin) args '()) " ") 157 (string-join (append (list bin) args '()) " ")
149 ;; cargo-process-mode is nice, but try to work without it... 158 ;; cargo-process-mode is nice, but try to work without it...