mirror of
https://git.sr.ht/~magic_rb/dotfiles
synced 2024-11-29 11:36:16 +01:00
102 lines
2.5 KiB
Org Mode
102 lines
2.5 KiB
Org Mode
|
:PROPERTIES:
|
||
|
|
:ID: a4eab1d7-8928-438e-9ccc-1e3a65765534
|
||
|
|
:END:
|
||
|
|
#+title: Corfu
|
||
|
|
#+filetags: emacs-load
|
||
|
|
|
||
|
|
# SPDX-FileCopyrightText: 2022 Richard Brežák <richard@brezak.sk>
|
||
|
|
#
|
||
|
|
# SPDX-License-Identifier: LGPL-3.0-or-later
|
||
|
|
|
||
|
|
#+begin_quote
|
||
|
|
Corfu enhances completion at point with a small completion popup. The current candidates are shown in a popup below or above the point. Corfu is the minimalistic completion-in-region counterpart of the Vertico minibuffer UI.
|
||
|
|
#+end_quote
|
||
|
|
|
||
|
|
#+begin_src emacs-lisp
|
||
|
|
(use-package corfu
|
||
|
|
:straight t
|
||
|
|
:custom
|
||
|
|
(corfu-separator ?\s) ;; M-SPC
|
||
|
|
:general
|
||
|
|
("C-c c" 'completion-at-point)
|
||
|
|
:init
|
||
|
|
(global-corfu-mode))
|
||
|
|
#+end_src
|
||
|
|
|
||
|
|
* Company
|
||
|
|
|
||
|
|
#+begin_src emacs-lisp :noweb yes :exports none
|
||
|
|
(use-package company
|
||
|
|
:defer t
|
||
|
|
:init
|
||
|
|
<<company-global-modes>>)
|
||
|
|
#+end_src
|
||
|
|
|
||
|
|
Disable ~company~ globally, because company enables itself...
|
||
|
|
|
||
|
|
#+name: company-init
|
||
|
|
#+begin_src emacs-lisp
|
||
|
|
(setq company-global-modes nil)
|
||
|
|
#+end_src
|
||
|
|
|
||
|
|
* LSP Mode
|
||
|
|
|
||
|
|
#+begin_src emacs-lisp :noweb yes :exports none
|
||
|
|
(use-package corfu-lsp-mode
|
||
|
|
:no-require t
|
||
|
|
:after (lsp-mode corfu)
|
||
|
|
:init
|
||
|
|
<<lsp-completion-provider>>)
|
||
|
|
#+end_src
|
||
|
|
|
||
|
|
Make ~lsp-mode~ not turn on ~company~ first thing after start, so annoying.
|
||
|
|
|
||
|
|
#+name: lsp-completion-provider
|
||
|
|
#+begin_src emacs-lisp :tangle no
|
||
|
|
(setq lsp-completion-provider :none)
|
||
|
|
#+end_src
|
||
|
|
|
||
|
|
* Cape
|
||
|
|
|
||
|
|
~cape~ provides useful ~capfs~, such as file and ispell completion, stuff that ~company~ has built-in.
|
||
|
|
|
||
|
|
#+begin_src emacs-lisp :noweb yes :exports none
|
||
|
|
(use-package cape
|
||
|
|
:straight t
|
||
|
|
:after (corfu)
|
||
|
|
:init
|
||
|
|
<<cape-hooks>>)
|
||
|
|
#+end_src
|
||
|
|
|
||
|
|
Hook ~cape~ onto both ~text-mode~ and ~prog-mode~.
|
||
|
|
|
||
|
|
#+name: cape-hooks
|
||
|
|
#+begin_src emacs-lisp :tangle no
|
||
|
|
(defun cape-setup-capf-prog ()
|
||
|
|
"Setup cape completions for prog-mode"
|
||
|
|
(cape-setup-capf))
|
||
|
|
|
||
|
|
(defun cape-setup-capf-text ()
|
||
|
|
"Setup cape completions for text-mode"
|
||
|
|
(add-hook 'completion-at-point-functions #'cape-ispell)
|
||
|
|
(cape-setup-capf))
|
||
|
|
|
||
|
|
(defun cape-setup-capf ()
|
||
|
|
"Setup cape completions"
|
||
|
|
(add-hook 'completion-at-point-functions #'cape-file)
|
||
|
|
(add-hook 'completion-at-point-functions #'cape-tex))
|
||
|
|
:hook
|
||
|
|
((prog-mode . cape-setup-capf-prog)
|
||
|
|
(text-mode . cape-setup-capf-text))
|
||
|
|
#+end_src
|
||
|
|
|
||
|
|
~lsp-mode~ completely wipes ~completion-at-point-functions~, so we need re-add ~cape~ after it removes everything.
|
||
|
|
|
||
|
|
#+begin_src emacs-lisp
|
||
|
|
(use-package cape-lsp-mode
|
||
|
|
:no-require t
|
||
|
|
:after (cape lsp-mode)
|
||
|
|
:hook
|
||
|
|
((lsp-mode . #'cape-setup-capf)))
|
||
|
|
#+end_src
|