forked from OmniSharp/omnisharp-emacs
-
Notifications
You must be signed in to change notification settings - Fork 0
/
omnisharp-solution-actions.el
139 lines (125 loc) · 6.56 KB
/
omnisharp-solution-actions.el
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
129
130
131
132
133
134
135
136
137
138
139
;; -*- lexical-binding: t -*-
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(defun omnisharp--prepare-solution-errors-buffer ()
"Makes a new *omnisharp-solution-errors* buffer or creates a new one
and enabled compilation-mode on the buffer."
(let ((existing-buffer (get-buffer "*omnisharp-solution-errors*"))
(solution-root-dir (cdr (assoc :project-root omnisharp--server-info))))
(if existing-buffer
(progn
(with-current-buffer existing-buffer
(setq buffer-read-only nil)
(erase-buffer)
(setq buffer-read-only t)
(setq default-directory solution-root-dir))
existing-buffer)
(let ((buffer (get-buffer-create "*omnisharp-solution-errors*")))
(with-current-buffer buffer
(setq default-directory solution-root-dir)
(compilation-mode)
buffer)))))
(defun omnisharp-solution-errors (&optional errors-only)
"Opens a new buffer *omnisharp-solution-errors* (or updates existing one)
with solution errors. This is the same error list as emitted by flycheck only
for the whole solution."
(interactive "P")
(if omnisharp--server-info
;; we want to show solutions error buffer early
(let ((buffer (omnisharp--prepare-solution-errors-buffer))
(time-started (current-time)))
(with-current-buffer buffer
(setq buffer-read-only nil)
(insert "omnisharp-solution-errors: waiting for omnisharp server ...")
(setq buffer-read-only t))
(display-buffer buffer)
;; actually invoke the request
(omnisharp--send-command-to-server
"codecheck"
`((FileName . nil))
(lambda (response)
(let ((buffer (omnisharp--prepare-solution-errors-buffer))
(error-list (omnisharp--vector-to-list (cdr (assoc 'QuickFixes response))))
(time-elapsed-seconds (time-to-seconds (time-subtract (current-time) time-started))))
(display-buffer buffer)
(save-window-excursion
(with-current-buffer buffer
(setq buffer-read-only nil)
(dolist (item error-list)
(let ((log-level (if (string= (cdr (assoc 'LogLevel item)) "Error") "error" "warning"))
(filename (string-remove-prefix (concat default-directory "/") (cdr (assoc 'FileName item))))
(line (cdr (assoc 'Line item)))
(col (cdr (assoc 'Column item)))
(text (cdr (assoc 'Text item)))
(id (or (cdr (assoc 'Id item)) "CS0000")))
(if (or (not errors-only)
(string= log-level "error"))
(insert (concat filename
"(" (number-to-string line) "," (number-to-string col) "): "
log-level " " id ": "
text
"\n")))))
(insert (concat "\nomnisharp-solution-errors: finished, "
"took " (number-to-string time-elapsed-seconds) " seconds to complete.\n"))
(setq buffer-read-only t)))))))))
(defun omnisharp-run-code-action-refactoring ()
"Gets a list of refactoring code actions for the current editor
position and file from the server. Asks the user what kind of
refactoring they want to run. Then runs the action."
(interactive)
(let ((code-actions-request (omnisharp--get-code-actions-request)))
(omnisharp--send-command-to-server
"v2/getcodeactions"
code-actions-request
(-lambda ((&alist 'CodeActions code-actions))
(let* ((code-actions (omnisharp--vector-to-list code-actions))
(action-names (--map (cdr (assoc 'Name it))
code-actions)))
(if (<= (length action-names) 0)
(message "No refactorings available at this position.")
(with-local-quit
(let* ((chosen-action-name (omnisharp--completing-read
"Run code action: "
action-names))
(chosen-action
(--first (equal (cdr (assoc 'Name it))
chosen-action-name)
code-actions)))
(omnisharp-run-code-action-refactoring-worker
(cdr (assoc 'Identifier chosen-action))
code-actions-request)))))))))
(defun omnisharp-run-code-action-refactoring-worker (chosen-action-identifier
code-actions-request)
(let* ((run-code-action-request
(-concat code-actions-request
`((Identifier . ,chosen-action-identifier)
(WantsTextChanges . t)))))
(omnisharp--send-command-to-server-sync
"v2/runcodeaction"
run-code-action-request
(-lambda ((&alist 'Changes modified-file-responses))
(-map #'omnisharp--apply-text-changes
modified-file-responses)))))
(defun omnisharp--get-code-actions-request ()
"Returns an ICodeActionRequest for the current buffer position"
(if (region-active-p)
(-concat (omnisharp--get-request-object)
`((Selection . ((Start . ((Line . ,(omnisharp--region-start-line))
(Column . ,(omnisharp--region-start-column))))
(End . ((Line . ,(omnisharp--region-end-line))
(Column . ,(omnisharp--region-end-column))))))))
(omnisharp--get-request-object)))
(defun omnisharp--convert-backslashes-to-forward-slashes
(string-to-convert)
"Converts the given STRING-TO-CONVERT's backslashes to forward
slashes."
(replace-regexp-in-string "\\\\" "/" string-to-convert))
(provide 'omnisharp-solution-actions)