Fix ra-emacs-lsp for newest lsp-mode with native json support

This commit is contained in:
Florian Diebold 2019-03-14 22:08:37 +01:00
parent eb4d6cf25f
commit c656bf3946

View file

@ -58,17 +58,16 @@
(defun rust-analyzer--apply-source-change (data)
;; TODO fileSystemEdits
(--each (-> data (ht-get "workspaceEdit") (ht-get "documentChanges"))
(seq-doseq (it (-> data (ht-get "workspaceEdit") (ht-get "documentChanges")))
(rust-analyzer--apply-text-document-edit it))
(-when-let (cursor-position (ht-get data "cursorPosition"))
(let ((filename (rust-analyzer--uri-filename (ht-get cursor-position "textDocument")))
(position (ht-get cursor-position "position")))
(find-file filename)
(rust-analyzer--goto-lsp-loc position)
)))
(rust-analyzer--goto-lsp-loc position))))
(defun rust-analyzer--apply-source-change-command (p)
(let ((data (-> p (ht-get "arguments") (car))))
(let ((data (-> p (ht-get "arguments") (seq-first))))
(rust-analyzer--apply-source-change data)))
(lsp-register-client
@ -126,7 +125,7 @@
"rust-analyzer/extendSelection"
(rust-analyzer--extend-selection-params)))
(ht-get "selections")
(car)))
(seq-first)))
(defun rust-analyzer--add-er-expansion ()
(make-variable-buffer-local 'er/try-expand-list)