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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
;; 由于doom 中add 了一个 :hook (doom-first-input . global-company-mode)
;; 所以在第一下输入时就会 执行 global-company-mode 所以只能把不想要company 的模式加入到 company-global-modes 里了
(after! company
(setq company-global-modes '(not erc-mode circe-mode message-mode help-mode gud-mode vterm-mode c-mode c++-mode python-mode emacs-lisp-mode verilog-mode))
)
(use-package! corfu
:hook ((lsp-completion-mode . kb/corfu-setup-lsp) ; Use corfu for lsp completion
(verilog-mode . corfu-mode)
(c-mode . corfu-mode)
(c++-mode . corfu-mode)
(emacs-lisp-mode . corfu-mode)
(python-mode . corfu-mode)
(citre-mode . corfu-mode)
)
:general
(:keymaps 'corfu-map
:states 'insert
"C-n" #'corfu-next
"C-p" #'corfu-previous
"<escape>" #'corfu-quit
"<return>" #'corfu-insert
"H-SPC" #'corfu-insert-separator
;; "SPC" #'corfu-insert-separator ; Use when `corfu-quit-at-boundary' is non-nil
"M-d" #'corfu-show-documentation
"C-g" #'corfu-quit
"M-l" #'corfu-show-location
[tab] #'cape-dabbrev
"\t" #'cape-dabbrev ;; 使用 TAB 补全 dabbrev
)
:custom
;; Works with `indent-for-tab-command'. Make sure tab doesn't indent when you
;; want to perform completion
;; (tab-always-indent 'complete)
(completion-cycle-threshold nil) ; Always show candidates in menu
;; (corfu-auto nil)
(corfu-auto t)
(corfu-auto-prefix 2)
(corfu-auto-delay 0.25)
(corfu-min-width 80)
(corfu-max-width corfu-min-width) ; Always have the same width
(corfu-count 14)
(corfu-scroll-margin 4)
(corfu-cycle nil)
;; `nil' means to ignore `corfu-separator' behavior, that is, use the older
;; `corfu-quit-at-boundary' = nil behavior. Set this to separator if using
;; `corfu-auto' = `t' workflow (in that case, make sure you also set up
;; `corfu-separator' and a keybind for `corfu-insert-separator', which my
;; configuration already has pre-prepared). Necessary for manual corfu usage with
;; orderless, otherwise first component is ignored, unless `corfu-separator'
;; is inserted.
(corfu-quit-at-boundary nil)
(corfu-separator ?\s) ; Use space
(corfu-quit-no-match 'separator) ; Don't quit if there is `corfu-separator' inserted
(corfu-preview-current 'insert) ; Preview first candidate. Insert on input if only one
(corfu-preselect-first t) ; Preselect first candidate?
;; Other
(corfu-echo-documentation nil) ; Already use corfu-doc
(lsp-completion-provider :none) ; Use corfu instead for lsp completions
:init
;; (global-corfu-mode)
:config
(general-add-advice '(corfu--setup corfu--teardown) :after 'evil-normalize-keymaps)
(evil-make-overriding-map corfu-map)
;; config minibuffer
(defun corfu-enable-always-in-minibuffer ()
"Enable Corfu in the minibuffer if Vertico/Mct are not active."
(unless (or (bound-and-true-p mct--active)
(bound-and-true-p vertico--input))
;; (setq-local corfu-auto nil) Enable/disable auto completion
(corfu-mode 1)))
(add-hook 'minibuffer-setup-hook #'corfu-enable-always-in-minibuffer 1)
;; Setup lsp to use corfu for lsp completion
(defun kb/corfu-setup-lsp ()
"Use orderless completion style with lsp-capf instead of the
default lsp-passthrough."
(setf (alist-get 'styles (alist-get 'lsp-capf completion-category-defaults))
'(orderless))))
;; Add extensions
(use-package! cape
;; Bind dedicated completion commands
;; Alternative prefix keys: C-c p, M-p, M-+, ...
:bind (("C-c p p" . completion-at-point) ;; capf
("C-c p t" . complete-tag) ;; etags
("C-c p d" . cape-dabbrev) ;; or dabbrev-completion
("C-c p h" . cape-history)
("C-c p f" . cape-file)
("C-c p k" . cape-keyword)
("C-c p s" . cape-symbol)
("C-c p a" . cape-abbrev)
("C-c p i" . cape-ispell)
("C-c p l" . cape-line)
("C-c p w" . cape-dict)
("C-c p \\" . cape-tex)
("C-c p _" . cape-tex)
("C-c p ^" . cape-tex)
("C-c p &" . cape-sgml)
("C-c p r" . cape-rfc1345))
:init
;; Add `completion-at-point-functions', used by `completion-at-point'.
(add-to-list 'completion-at-point-functions #'cape-file)
(add-to-list 'completion-at-point-functions #'cape-dabbrev)
;;(add-to-list 'completion-at-point-functions #'cape-history)
(add-to-list 'completion-at-point-functions #'cape-keyword)
;;(add-to-list 'completion-at-point-functions #'cape-tex)
;;(add-to-list 'completion-at-point-functions #'cape-sgml)
;;(add-to-list 'completion-at-point-functions #'cape-rfc1345)
(add-to-list 'completion-at-point-functions #'cape-abbrev)
;; (add-to-list 'completion-at-point-functions #'cape-ispell)
;;(add-to-list 'completion-at-point-functions #'cape-dict)
(add-to-list 'completion-at-point-functions #'cape-symbol)
;;(add-to-list 'completion-at-point-functions #'cape-line)
)
(use-package! corfu-history
;; 记录最近一次补全 在下一次出现同样的触发按键时排第一位
:load-path "~/.doom.d/elisp/corfu-extensions/"
:after savehist
:config
(corfu-history-mode 1)
(savehist-mode 1)
(add-to-list 'savehist-additional-variables 'corfu-history))
(use-package! kind-icon
:after corfu
:custom
(kind-icon-default-face 'corfu-default) ; Have background color be the same as `corfu' face background
(kind-icon-blend-background nil) ; Use midpoint color between foreground and background colors ("blended")?
(kind-icon-blend-frac 0.08)
:config
;; (when *is-windows*
;; (setq kind-icon-use-icons nil)) ;; 由于 Windows 上的svg 显示有问题 所以关掉
(add-to-list 'corfu-margin-formatters #'kind-icon-margin-formatter) ; Enable `kind-icon'
)
;; (use-package! kind-all-the-icons
;; :load-path "~/.doom.d/elisp/kind-all-the-icons"
;; :config
;; (add-to-list 'corfu-margin-formatters #'kind-all-the-icons-margin-formatter))
(use-package corfu-doc
;; NOTE 2022-02-05: At the time of writing, `corfu-doc' is not yet on melpa
:after corfu
:hook (corfu-mode . corfu-doc-mode)
:general (:keymaps 'corfu-map
;; This is a manual toggle for the documentation popup.
[remap corfu-show-documentation] #'corfu-doc-toggle ; Remap the default doc command
;; Scroll in the documentation window
"M-n" #'corfu-doc-scroll-up
"M-p" #'corfu-doc-scroll-down)
:custom
(corfu-doc-delay 0.5)
(corfu-doc-max-width 70)
(corfu-doc-max-height 20)
;; NOTE 2022-02-05: I've also set this in the `corfu' use-package to be
;; extra-safe that this is set when corfu-doc is loaded. I do not want
;; documentation shown in both the echo area and in the `corfu-doc' popup.
(corfu-echo-documentation nil))
;; Use Dabbrev with Corfu!
(use-package! dabbrev
;; Swap M-/ and C-M-/
;;
:bind (("M-/" . dabbrev-completion)
("C-M-/" . dabbrev-expand))
;; Other useful Dabbrev configurations.
:custom
(dabbrev-ignored-buffer-regexps '("\\.\\(?:pdf\\|jpe?g\\|png\\)\\'")))
;; Optionally use the `orderless' completion style.
|
