File tree Expand file tree Collapse file tree 2 files changed +10
-2
lines changed Expand file tree Collapse file tree 2 files changed +10
-2
lines changed Original file line number Diff line number Diff line change 39
39
(depends-on "markdown-mode")
40
40
(depends-on "lv")
41
41
(depends-on "eldoc")
42
+ (depends-on "uuidgen")
42
43
43
44
(development
44
45
(depends-on "flycheck")
Original file line number Diff line number Diff line change 25
25
; ; LSP client for the Copilot Language Server:
26
26
; ; https://www.npmjs.com/package/@github/copilot-language-server
27
27
28
- ; ; Package-Requires: (lsp-mode secrets s compile dash cl-lib request company )
28
+ ; ; Package-Requires: (lsp-mode secrets s compile dash cl-lib request uuidgen )
29
29
30
30
; ; Code:
31
31
32
32
(require 'dash )
33
33
(require 'lsp-mode )
34
34
(require 's )
35
+ (require 'uuidgen )
36
+ (require 'lsp-inline-completion )
35
37
36
38
(defgroup lsp-copilot ()
37
39
" Copilot LSP configuration"
@@ -94,6 +96,11 @@ The input are the file name and the major mode of the buffer."
94
96
95
97
; ;; Panel Completion
96
98
99
+ (declare-function company--active-p " ext:company" )
100
+ (declare-function company-cancel " ext:company" (&optional result))
101
+ (declare-function org-forward-heading-same-level " ext:org" (arg &optional invisible-ok))
102
+ (declare-function org-backward-heading-same-level " ext:org" (arg &optional invisible-ok))
103
+ (declare-function org-down-element " ext:org" )
97
104
(defvar-local lsp-copilot-panel-completion-items nil
98
105
" A list of completion items returned by the Panel Completion call" )
99
106
@@ -249,7 +256,7 @@ The input are the file name and the major mode of the buffer."
249
256
(lsp-copilot--panel-display-buffer (buffer-name ) lsp-copilot-panel-completion-items lsp-copilot-panel-modification-tick)
250
257
(lsp--error " No completions to display" )))
251
258
252
- (defun lsp-copilot--panel-completions-progress-handler (workspace params )
259
+ (defun lsp-copilot--panel-completions-progress-handler (_ params )
253
260
(-let* (((&ProgressParams :token :value ) params)
254
261
((action completing-buffer-name panel-completion-token) (string-split token " /// " )))
255
262
(pcase action
You can’t perform that action at this time.
0 commit comments