ea8d9945fa
- Replace projectile with built-in project.el - Add cal-china-x for Chinese lunar calendar support - Add dired-gitignore integration with dirvish - Add mwim for smarter line navigation - Add keycast mode for key display - Add ef-themes theme collection - Improve corfu terminal handling for Emacs 31+ - Add gptel-agent-project and consult-ripgrep-project helpers - Remove custom.el from repo, support init-local.el for local config - Update theme faces for transient, keycast, and calendar holidays - Various keybinding additions and cleanup
104 lines
3.1 KiB
EmacsLisp
104 lines
3.1 KiB
EmacsLisp
;;; init-completion.el --- completion config -*- lexical-binding: t -*-
|
||
|
||
;;; Commentary:
|
||
|
||
;;; Code:
|
||
|
||
;; eglot
|
||
(use-package eglot
|
||
:hook
|
||
((python-mode . eglot-ensure)
|
||
;; (scheme-mode . eglot-ensure)
|
||
)
|
||
:config
|
||
(setq eglot-send-changes-idle-time 0.25)
|
||
(add-to-list 'eglot-server-programs
|
||
'(scheme-mode . ("guile-lsp-server")))
|
||
|
||
;; 在scheme模式禁用eglot补全，保留其他功能
|
||
(add-hook 'eglot-managed-mode-hook
|
||
(lambda ()
|
||
(when (derived-mode-p 'scheme-mode)
|
||
(setq-local completion-at-point-functions
|
||
(remq 'eglot-completion-at-point
|
||
completion-at-point-functions))))))
|
||
|
||
;; corfu
|
||
(use-package corfu
|
||
:autoload
|
||
(corfu-quit consult-completion-in-region)
|
||
:functions
|
||
(persistent-scratch-save)
|
||
:custom
|
||
(corfu-auto t)
|
||
(corfu-auto-prefix 2)
|
||
(corfu-count 12)
|
||
(corfu-preview-current nil)
|
||
(corfu-on-exact-match nil)
|
||
(corfu-auto-delay 0.2)
|
||
(corfu-popupinfo-delay '(0.4 . 0.2))
|
||
(global-corfu-modes '((not erc-mode
|
||
circe-mode
|
||
help-mode
|
||
gud-mode
|
||
vterm-mode)
|
||
t))
|
||
:init
|
||
(global-corfu-mode)
|
||
(corfu-popupinfo-mode)
|
||
(corfu-history-mode)
|
||
:config
|
||
;;Quit completion before saving
|
||
(add-hook 'before-save-hook #'corfu-quit)
|
||
(advice-add #'persistent-scratch-save :before #'corfu-quit)
|
||
:bind
|
||
(:map corfu-map
|
||
("RET" . nil)))
|
||
|
||
(use-package corfu-terminal
|
||
:if (not (and (display-graphic-p)
|
||
(>= emacs-major-version 31)))
|
||
:init
|
||
(corfu-terminal-mode))
|
||
|
||
;; 在eshell中使用tab打开补全
|
||
(add-hook 'eshell-mode-hook
|
||
(lambda ()
|
||
(setq-local corfu-auto nil)
|
||
(local-set-key (kbd "TAB") 'completion-at-point)))
|
||
|
||
(use-package emacs
|
||
:custom
|
||
(tab-always-indent 'complete)
|
||
|
||
;; Emacs 30 and newer: Disable Ispell completion function.
|
||
;; Try `cape-dict' as an alternative.
|
||
(text-mode-ispell-word-completion nil)
|
||
|
||
;; Hide commands in M-x which do not apply to the current mode. Corfu
|
||
;; commands are hidden, since they are not used via M-x. This setting is
|
||
;; useful beyond Corfu.
|
||
(read-extended-command-predicate #'command-completion-default-include-p))
|
||
|
||
;; cape
|
||
(use-package cape
|
||
:commands (cape-file cape-elisp-block cape-keyword)
|
||
:autoload (cape-wrap-noninterruptible cape-wrap-nonexclusive cape-wrap-buster)
|
||
:autoload (cape-wrap-silent)
|
||
:init
|
||
;; (add-to-list 'completion-at-point-functions #'cape-dabbrev)
|
||
(add-to-list 'completion-at-point-functions #'cape-file)
|
||
(add-to-list 'completion-at-point-functions #'cape-elisp-block)
|
||
(add-to-list 'completion-at-point-functions #'cape-keyword)
|
||
;; (add-to-list 'completion-at-point-functions #'cape-abbrev)
|
||
|
||
;; Make these capfs composable.
|
||
(advice-add 'comint-completion-at-point :around #'cape-wrap-nonexclusive)
|
||
(advice-add 'eglot-completion-at-point :around #'cape-wrap-buster)
|
||
(advice-add 'eglot-completion-at-point :around #'cape-wrap-nonexclusive)
|
||
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-nonexclusive))
|
||
|
||
(provide 'init-completion)
|
||
|
||
;;; init-completion.el ends here
|