diff options
| author | Guangxiong Lin <[email protected]> | 2022-03-19 23:59:32 +0800 |
|---|---|---|
| committer | Guangxiong Lin <[email protected]> | 2022-03-19 23:59:32 +0800 |
| commit | ed50afc6a8b01f3f766e11b76f06f6d0b8d33d71 (patch) | |
| tree | 8cbe042c2eef6c1f6d7b5ac80cbbf5c5f96b1a56 | |
| parent | 1f5be956ef77ebaaf425bc7a4de5a49f5a8e63ca (diff) | |
| download | dotfiles-ed50afc6a8b01f3f766e11b76f06f6d0b8d33d71.tar.gz dotfiles-ed50afc6a8b01f3f766e11b76f06f6d0b8d33d71.tar.bz2 dotfiles-ed50afc6a8b01f3f766e11b76f06f6d0b8d33d71.zip | |
Use corfu to complete in emacs gui
| -rw-r--r-- | .emacs.d/init.el | 1 | ||||
| -rw-r--r-- | .emacs.d/lisp/init-company.el | 3 | ||||
| -rw-r--r-- | .emacs.d/lisp/init-corfu.el | 25 |
3 files changed, 28 insertions, 1 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 22c9e7f..8fad1fc 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -22,6 +22,7 @@ (require 'init-evil) (require 'init-minibuffer) (require 'init-company) +(require 'init-corfu) (require 'init-flycheck) (require 'init-org) (require 'init-lang) diff --git a/.emacs.d/lisp/init-company.el b/.emacs.d/lisp/init-company.el index 58e4de4..12e409e 100644 --- a/.emacs.d/lisp/init-company.el +++ b/.emacs.d/lisp/init-company.el @@ -1,5 +1,6 @@ (when (gx/maybe-require-package 'company) - (add-hook 'after-init-hook 'global-company-mode)) + (when (not (display-graphic-p)) + (add-hook 'after-init-hook 'global-company-mode))) (with-eval-after-load 'company (company-tng-configure-default) diff --git a/.emacs.d/lisp/init-corfu.el b/.emacs.d/lisp/init-corfu.el new file mode 100644 index 0000000..fb92857 --- /dev/null +++ b/.emacs.d/lisp/init-corfu.el @@ -0,0 +1,25 @@ +;; -*- lexical-binding: t; -*- + +(when (gx/maybe-require-package 'corfu) + (autoload 'corfu-mode "corfu") + (when (display-graphic-p) + (add-hook 'prog-mode-hook #'corfu-mode))) + +(setq corfu-cycle t + corfu-auto t + corfu-quit-no-match t + corfu-preselect-first nil) + +(with-eval-after-load 'corfu + (define-key corfu-map (kbd "TAB") 'corfu-next) + (define-key corfu-map (kbd "<tab>") 'corfu-next) + (define-key corfu-map (kbd "S-TAB") 'corfu-previous) + (define-key corfu-map (kbd "<backtab>") 'corfu-previous)) + +(when (gx/maybe-require-package 'orderless) + (setq completion-styles '(orderless) + completion-category-defaults nil + completion-category-overrides + '((file (styles . (partial-completion)))))) + +(provide 'init-corfu) |