doom-corfu/config.el

144 lines
5.8 KiB
EmacsLisp
Raw Normal View History

;;; completion/corfu/config.el -*- lexical-binding: t; -*-
(use-package! corfu
:custom
(corfu-separator ?\s)
(corfu-auto t)
(corfu-auto-delay 0.3)
(corfu-on-exact-match nil)
(corfu-quit-no-match t)
(corfu-cycle t)
(corfu-auto-prefix 2)
(completion-cycle-threshold 1)
(tab-always-indent 'complete)
(corfu-min-width 80)
(corfu-max-width corfu-min-width)
:hook
(doom-first-buffer . global-corfu-mode)
:config
(when (modulep! +minibuffer)
(add-hook 'minibuffer-setup-hook #'+corfu--enable-in-minibuffer))
;; Reset lsp-completion provider
(add-hook 'doom-init-modules-hook
(lambda ()
(after! lsp-mode
(setq lsp-completion-provider :none))))
;; Set orderless filtering for LSP-mode completions
(add-hook 'lsp-completion-mode-hook
(lambda ()
(setf (alist-get 'lsp-capf completion-category-defaults) '((styles . (orderless flex))))))
(map! :map corfu-map
"C-SPC" #'corfu-insert-separator
"C-n" #'corfu-next
"C-p" #'corfu-previous
(:prefix "C-x"
"C-k" #'cape-dict
"C-f" #'cape-file))
(after! evil
(advice-add 'corfu--setup :after 'evil-normalize-keymaps)
(advice-add 'corfu--teardown :after 'evil-normalize-keymaps)
(evil-make-overriding-map corfu-map))
(defadvice! +corfu--org-return (orig) :around '+org/return
(if (and (modulep! :completion corfu)
corfu-mode
(>= corfu--index 0))
(corfu-insert)
(funcall orig)))
(unless (display-graphic-p)
(corfu-doc-terminal-mode)
(corfu-terminal-mode)))
(use-package! orderless
:when (modulep! +orderless)
:init
(setq completion-styles '(orderless partial-completion)
completion-category-defaults nil
completion-category-overrides '((file (styles . (partial-completion))))))
(use-package! kind-icon
:after corfu
:when (modulep! +icons)
:custom
(kind-icon-default-face 'corfu-default)
:config
(setq kind-icon-use-icons t
svg-lib-icons-dir (expand-file-name "svg-lib" doom-cache-dir)
kind-icon-mapping
'((array "a" :icon "code-brackets" :face font-lock-variable-name-face)
(boolean "b" :icon "circle-half-full" :face font-lock-builtin-face)
(class "c" :icon "view-grid-plus-outline" :face font-lock-type-face)
(color "#" :icon "palette" :face success)
(constant "co" :icon "pause-circle" :face font-lock-constant-face)
(constructor "cn" :icon "table-column-plus-after" :face font-lock-function-name-face)
(enum "e" :icon "format-list-bulleted-square" :face font-lock-builtin-face)
(enum-member "em" :icon "format-list-checks" :face font-lock-builtin-face)
(event "ev" :icon "lightning-bolt-outline" :face font-lock-warning-face)
(field "fd" :icon "application-braces-outline" :face font-lock-variable-name-face)
(file "f" :icon "file" :face font-lock-string-face)
(folder "d" :icon "folder" :face font-lock-doc-face)
(function "f" :icon "sigma" :face font-lock-function-name-face)
(interface "if" :icon "video-input-component" :face font-lock-type-face)
(keyword "kw" :icon "image-filter-center-focus" :face font-lock-keyword-face)
(macro "mc" :icon "lambda" :face font-lock-keyword-face)
(method "m" :icon "sigma" :face font-lock-function-name-face)
(module "{" :icon "view-module" :face font-lock-preprocessor-face)
(numeric "nu" :icon "numeric" :face font-lock-builtin-face)
(operator "op" :icon "plus-circle-outline" :face font-lock-comment-delimiter-face)
(param "pa" :icon "cog" :face default)
(property "pr" :icon "tune-vertical" :face font-lock-variable-name-face)
(reference "rf" :icon "bookmark-box-multiple" :face font-lock-variable-name-face)
(snippet "S" :icon "text-short" :face font-lock-string-face)
(string "s" :icon "sticker-text-outline" :face font-lock-string-face)
(struct "%" :icon "code-braces" :face font-lock-variable-name-face)
(t "." :icon "crosshairs-question" :face shadow)
(text "tx" :icon "script-text-outline" :face shadow)
(type-parameter "tp" :icon "format-list-bulleted-type" :face font-lock-type-face)
(unit "u" :icon "ruler-square" :face shadow)
(value "v" :icon "numeric-1-box-multiple-outline" :face font-lock-builtin-face)
(variable "va" :icon "adjust" :face font-lock-variable-name-face)))
(add-hook 'doom-load-theme-hook #'kind-icon-reset-cache)
(add-to-list 'corfu-margin-formatters #'kind-icon-margin-formatter))
(use-package! cape
:defer t
:init
(map!
[remap dabbrev-expand] 'cape-dabbrev)
(add-hook! 'latex-mode-hook (defun +corfu--latex-set-capfs ()
(add-to-list 'completion-at-point-functions #'cape-tex)))
(when (modulep! :checkers spell)
(add-to-list 'completion-at-point-functions #'cape-dict)
(add-to-list 'completion-at-point-functions #'cape-ispell))
(add-to-list 'completion-at-point-functions #'cape-file)
(add-to-list 'completion-at-point-functions #'cape-keyword t)
(add-to-list 'completion-at-point-functions #'cape-dabbrev t))
(use-package! corfu-history
:after corfu
:hook (corfu-mode . (lambda ()
(corfu-history-mode 1)
(savehist-mode 1)
(add-to-list 'savehist-additional-variables 'corfu-history))))
(use-package! corfu-quick
:after corfu
:bind (:map corfu-map
("C-q" . corfu-quick-insert)))
(use-package! evil-collection-corfu
:when (modulep! :editor evil +everywhere)
:defer t
:init (setq evil-collection-corfu-key-themes '(default magic-return))
:config
(evil-collection-corfu-setup))