73 lines
2.4 KiB
EmacsLisp
73 lines
2.4 KiB
EmacsLisp
;;; priime-completion.el --- Completion configuration
|
|
;;; Commentary:
|
|
;; Provides configuration for completion-related packages.
|
|
;;; Code:
|
|
|
|
(use-package corfu :straight t
|
|
:custom
|
|
(completion-styles '(orderless basic))
|
|
(completion-category-overrides '((file (styles partial-completion))))
|
|
(corfu-auto t)
|
|
(corfu-popupinfo-delay 1)
|
|
:bind (:map corfu-map
|
|
("C-n" . corfu-next)
|
|
("C-p" . corfu-previous)
|
|
("<tab>" . corfu-insert)
|
|
("RET" . nil))
|
|
:init
|
|
(global-corfu-mode)
|
|
(corfu-popupinfo-mode))
|
|
(use-package cape :straight t
|
|
:bind ("M-p" . cape-prefix-map)
|
|
:init
|
|
(add-hook 'completion-at-point-functions #'cape-dabbrev)
|
|
(add-hook 'completion-at-point-functions #'cape-file)
|
|
(add-hook 'completion-at-point-functions #'cape-elisp-block)
|
|
(add-hook 'completion-at-point-functions #'cape-keyword))
|
|
(use-package vertico :straight t
|
|
:init
|
|
(add-hook 'after-init-hook 'vertico-mode))
|
|
(use-package vertico-posframe :straight t
|
|
:init
|
|
(vertico-posframe-mode 1))
|
|
(use-package marginalia :straight t
|
|
:init
|
|
(add-hook 'after-init-hook 'marginalia-mode))
|
|
(use-package orderless :straight t
|
|
:custom
|
|
(orderless-matching-styles '(orderless-literal-prefix orderless-literal orderless-regexp)))
|
|
(use-package yasnippet :straight t
|
|
:hook ((prog-mode . yas-minor-mode)))
|
|
(use-package yasnippet-snippets :straight t)
|
|
|
|
(use-package consult :straight t
|
|
:bind (("C-c r r" . consult-ripgrep)
|
|
("C-c r g" . consult-grep)
|
|
("C-c r f" . consult-ripgrep-file)))
|
|
|
|
(defun consult-ripgrep-file (&optional initial)
|
|
"Search with `rg' in the current file with INITIAL input."
|
|
(interactive)
|
|
(cond
|
|
((buffer-file-name)
|
|
(let* ((file (buffer-file-name))
|
|
(builder (consult--ripgrep-make-builder (list file))))
|
|
(consult--read
|
|
(consult--process-collection builder
|
|
:transform (consult--grep-format builder)
|
|
:file-handler t)
|
|
:prompt "Ripgrep (current file): "
|
|
:lookup #'consult--lookup-member
|
|
:state (consult--grep-state)
|
|
:initial initial
|
|
:add-history (thing-at-point 'symbol)
|
|
:require-match t
|
|
:category 'consult-grep
|
|
:group #'consult--prefix-group
|
|
:history '(:input consult--grep-history)
|
|
:sort nil)))
|
|
(t (user-error "Buffer not visiting a file"))))
|
|
|
|
(provide 'priime-completion)
|
|
|
|
;;; priime-completion.el ends here
|