emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix(corfu): bind cape-dabbrev eagerly

Browse source 
Set up cape-dabbrev in completion-at-point-functions before dabbrev is
loaded.
This commit is contained in:
StrawberryTea 2024-02-17 10:50:17 -06:00 • committed by Luigi Sartor Piucco
parent f3729174bd
commit 42f48ace69
No known key found for this signature in database
GPG key ID: 6FF1A01853A47A66
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
modules/completion/corfu/config.el
View file

@ -84,6 +84,10 @@
;; Set up `cape-dabbrev' options. ;; Set up `cape-dabbrev' options.
(defun +dabbrev-friend-buffer-p (other-buffer) (defun +dabbrev-friend-buffer-p (other-buffer)
(< (buffer-size other-buffer) +corfu-buffer-scanning-size-limit)) (< (buffer-size other-buffer) +corfu-buffer-scanning-size-limit))
(add-hook! (prog-mode text-mode conf-mode comint-mode minibuffer-setup
eshell-mode)
(defun +corfu-add-cape-dabbrev-h ()
(add-hook 'completion-at-point-functions #'cape-dabbrev 20 t)))
(after! dabbrev (after! dabbrev
(setq cape-dabbrev-check-other-buffers t (setq cape-dabbrev-check-other-buffers t
dabbrev-friend-buffer-function #'+dabbrev-friend-buffer-p dabbrev-friend-buffer-function #'+dabbrev-friend-buffer-p
@ -91,12 +95,7 @@
'("^ " '("^ "
"\\(TAGS\\|tags\\|ETAGS\\|etags\\|GTAGS\\|GRTAGS\\|GPATH\\)\\(<[0-9]+>\\)?") "\\(TAGS\\|tags\\|ETAGS\\|etags\\|GTAGS\\|GRTAGS\\|GPATH\\)\\(<[0-9]+>\\)?")
dabbrev-upcase-means-case-search t) dabbrev-upcase-means-case-search t)
(add-to-list 'dabbrev-ignored-buffer-modes 'pdf-view-mode) (add-to-list 'dabbrev-ignored-buffer-modes 'pdf-view-mode)))
(add-hook! (prog-mode text-mode conf-mode comint-mode minibuffer-setup
eshell-mode)
(defun +corfu-add-cape-dabbrev-h ()
(add-hook 'completion-at-point-functions #'cape-dabbrev 20 t)))))
;; Complete emojis :). ;; Complete emojis :).
(when (and (modulep! +emoji) (> emacs-major-version 28)) (when (and (modulep! +emoji) (> emacs-major-version 28))
(add-hook! (prog-mode conf-mode) (add-hook! (prog-mode conf-mode)