blob: fb73451c1b316c23be368a85986a5dc635df73ee (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
;;; ra.el --- Rust analyzer emacs bindings -*- lexical-binding: t; -*-
;;; Commentary:
;;; Small utilities for interacting with Rust analyzer.
;;; Run
;;; cargo install --git https://github.com/matklad/rust-analyzer/ ra_cli
;;; to install the analyzer binary. Then copy-paste the bellow code to
;;; your `.init.el` and use `ra-extend-selection` and
;;; `ra-shrink-selection` functions.
;;; Code:
(defvar ra--selections-cache '(0 0 ()))
(defun ra--cache-tick ()
"Get buffer modification count for cache."
(nth 0 ra--selections-cache))
(defun ra--cache-sel ()
"Get current selection for cache."
(nth 1 ra--selections-cache))
(defun ra--cache-nth-sel (n)
"Get Nth selection."
(nth n (nth 2 ra--selections-cache)))
(defun ra--cache-set-nth-sel (n)
"Get Nth selection."
(setf (nth 1 ra--selections-cache) n)
(nth n (nth 2 ra--selections-cache)))
(defun ra-extend-selection ()
"Extend START END region to contain the encompassing syntactic construct."
(interactive)
(let* ((p (point))
(m (or (and mark-active (mark)) p))
(start (min p m))
(end (max p m)))
(ra--extend-selection start end)))
(defun ra-shrink-selection (start end)
"Shrink START END region to contain previous selection."
(interactive "r")
(ra--freshen-cache start end)
(let ((sel-id (ra--cache-sel)))
(if (not (= 0 sel-id))
(let* ((r (ra--cache-set-nth-sel (- sel-id 1))))
(push-mark (nth 0 r) t t)
(goto-char (nth 1 r))
(setq deactivate-mark nil)))))
; Add this to setup keybinding
; (require 'rust-mode)
; (define-key rust-mode-map (kbd "C-w") 'ra-extend-selection)
; (define-key rust-mode-map (kbd "C-S-w") 'ra-shrink-selection)
(defun ra--extend-selection (start end)
"Extend START END region to contain the encompassing syntactic construct."
(ra--freshen-cache start end)
(let* ((next-sel-idx (+ 1 (ra--cache-sel)))
(r (ra--cache-set-nth-sel next-sel-idx)))
(push-mark (nth 0 r) t t)
(goto-char (nth 1 r))
(setq deactivate-mark nil)))
(defun ra--selections (start end)
"Get list of selections for START END from Rust analyzer."
(read (with-output-to-string
(call-process-region
(point-min) (point-max)
"ra_cli" nil standard-output nil
"extend-selection"
(number-to-string start)
(number-to-string end)))))
(defun ra--freshen-cache (start end)
"Make selection cache up-to-date for current buffer state and START END."
(if (not (and
(= (buffer-modified-tick) (ra--cache-tick))
(equal `(,start ,end) (ra--cache-nth-sel (ra--cache-sel)))))
(ra--set-cache start end)))
(defun ra--set-cache (start end)
"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")))
; (require 'rust-mode)
; (define-key rust-mode-map (kbd "C-n") 'workspace-symbols)
(define-key)
(provide 'ra)
;;; ra.el ends here
|
