139 lines
4.4 KiB
EmacsLisp
139 lines
4.4 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")))
|
||
|
||
(add-hook 'eglot-managed-mode-hook ;; 在scheme模式禁用eglot补全，保留其他功能
|
||
(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 corfu-move-to-minibuffer)
|
||
: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
|
||
(add-hook 'after-init-hook #'global-corfu-mode)
|
||
;;Quit completion before saving
|
||
(add-hook 'before-save-hook #'corfu-quit)
|
||
(advice-add #'persistent-scratch-save :before #'corfu-quit)
|
||
|
||
;; Move completions to minibuffer
|
||
(defun corfu-move-to-minibuffer ()
|
||
(interactive)
|
||
(pcase completion-in-region--data
|
||
(`(,beg ,end ,table ,pred ,extras)
|
||
(let ((completion-extra-properties extras)
|
||
completion-cycle-threshold completion-cycling)
|
||
(consult-completion-in-region beg end table pred)))))
|
||
(keymap-set corfu-map "M-m" #'corfu-move-to-minibuffer)
|
||
(add-to-list 'corfu-continue-commands #'corfu-move-to-minibuffer)
|
||
|
||
:bind (:map corfu-map
|
||
("RET" . nil)))
|
||
|
||
(unless (or (display-graphic-p)
|
||
(featurep 'tty-child-frames))
|
||
(use-package corfu-terminal
|
||
:hook (global-corfu-mode . 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 nerd-icons-completion
|
||
:hook (marginalia-mode . nerd-icons-completion-marginalia-setup))
|
||
|
||
(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 'lsp-completion-at-point :around #'cape-wrap-noninterruptible)
|
||
(advice-add 'lsp-completion-at-point :around #'cape-wrap-nonexclusive)
|
||
(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))
|
||
|
||
;; lua
|
||
(use-package lua-ts-mode
|
||
:mode ("\\.lua\\'" . lua-ts-mode)
|
||
:config
|
||
(add-to-list 'auto-mode-alist '("\\.lua\\'" . lua-ts-mode)))
|
||
|
||
(use-package ahk-mode)
|
||
|
||
;; tree-sitter
|
||
(use-package treesit-auto
|
||
:demand t
|
||
:config
|
||
(setq treesit-auto-install 'prompt)
|
||
(global-treesit-auto-mode)
|
||
(setq treesit-font-lock-level 4))
|
||
|
||
(use-package geiser
|
||
:config
|
||
(with-eval-after-load 'geiser
|
||
(setq geiser-default-implementation 'guile)))
|
||
|
||
(use-package geiser-guile)
|
||
|
||
(provide 'init-completion)
|
||
|
||
;;; init-completion.el ends here
|