awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

refactor(corfu): conform to conventions

Browse Source
This commit is contained in:
Henrik Lissner
2025-03-30 18:30:55 -04:00
parent 2eca701615
commit dfe5b8d4e9
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
modules/completion/corfu/autoload.el
View File

@ -1,5 +1,13 @@
;;; completion/corfu/autoload.el -*- lexical-binding: t; -*- ;;; completion/corfu/autoload.el -*- lexical-binding: t; -*-
;;;###autoload
(defun +corfu-dabbrev-friend-buffer-p (other-buffer)
(< (buffer-size other-buffer) +corfu-buffer-scanning-size-limit))
;;
;;; Commands
;;;###autoload ;;;###autoload
(defun +corfu/move-to-minibuffer () (defun +corfu/move-to-minibuffer ()
"Move the current list of candidates to your choice of minibuffer completion UI." "Move the current list of candidates to your choice of minibuffer completion UI."

8
modules/completion/corfu/config.el
View File

@ -144,8 +144,6 @@ See `+corfu-want-minibuffer-completion'."
(when (modulep! +dabbrev) (when (modulep! +dabbrev)
(setq cape-dabbrev-check-other-buffers t) (setq cape-dabbrev-check-other-buffers t)
;; Set up `cape-dabbrev' options. ;; Set up `cape-dabbrev' options.
(defun +dabbrev-friend-buffer-p (other-buffer)
(< (buffer-size other-buffer) +corfu-buffer-scanning-size-limit))
(add-hook! '(prog-mode-hook (add-hook! '(prog-mode-hook
text-mode-hook text-mode-hook
conf-mode-hook conf-mode-hook
@ -155,7 +153,7 @@ See `+corfu-want-minibuffer-completion'."
(defun +corfu-add-cape-dabbrev-h () (defun +corfu-add-cape-dabbrev-h ()
(add-hook 'completion-at-point-functions #'cape-dabbrev 20 t))) (add-hook 'completion-at-point-functions #'cape-dabbrev 20 t)))
(after! dabbrev (after! dabbrev
(setq dabbrev-friend-buffer-function #'+dabbrev-friend-buffer-p (setq dabbrev-friend-buffer-function #'+corfu-dabbrev-friend-buffer-p
dabbrev-ignored-buffer-regexps dabbrev-ignored-buffer-regexps
'("\\` " '("\\` "
"\\(?:\\(?:[EG]?\\|GR\\)TAGS\\|e?tags\\|GPATH\\)\\(<[0-9]+>\\)?") "\\(?:\\(?:[EG]?\\|GR\\)TAGS\\|e?tags\\|GPATH\\)\\(<[0-9]+>\\)?")
@ -173,8 +171,8 @@ See `+corfu-want-minibuffer-completion'."
;; From the `cape' readme. Without this, Eshell autocompletion is broken on ;; From the `cape' readme. Without this, Eshell autocompletion is broken on
;; Emacs28. ;; Emacs28.
(when (< emacs-major-version 29) (when (< emacs-major-version 29)
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-silent) (advice-add #'pcomplete-completions-at-point :around #'cape-wrap-silent)
(advice-add 'pcomplete-completions-at-point :around #'cape-wrap-purify)) (advice-add #'pcomplete-completions-at-point :around #'cape-wrap-purify))
(when (modulep! :lang latex) (when (modulep! :lang latex)
;; Allow file completion on latex directives. ;; Allow file completion on latex directives.