dotfiles-misc/protesilaos.dotfiles
1
0
Fork 0
mirror of https://github.com/protesilaos/dotfiles.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

emacs: include abbrev backend for completion-at-point-functions

Browse source
This commit is contained in:
Protesilaos 2026-08-12 06:41:04 +03:00
parent 48dd11f1d3
commit 5e1c88ec50
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/.emacs.d/prot-emacs-modules/prot-emacs-completion.el
View file

@ -294,13 +294,13 @@ INDIVIDUAL-CAPFS to the list."
(defun prot/cape-prog-setup ()
"Set up Cape for programming."
(prot/cape-super-set-local '(cape-dabbrev) '(cape-file)))
(prot/cape-super-set-local '(cape-dabbrev cape-abbrev) '(cape-file)))
(add-hook 'prog-mode-hook #'prot/cape-prog-setup)
(defun prot/cape-text-setup ()
"Set up Cape for prose."
(prot/cape-super-set-local '(cape-dict cape-dabbrev cape-emoji) '(cape-file)))
(prot/cape-super-set-local '(cape-dict cape-dabbrev cape-abbrev cape-emoji) '(cape-file)))
(setq completion-at-point-functions '(cape-dabbrev cape-file))
@ -340,13 +340,13 @@ INDIVIDUAL-CAPFS to the list."
(defun prot/company-prog-backends ()
"Set `company-backends' locally to my preferred value for `prog-mode' and derivatives."
(setq-local company-backends '((company-capf company-dabbrev-code) company-files)))
(setq-local company-backends '((company-capf company-dabbrev-code company-abbrev) company-files)))
(add-hook 'prog-mode-hook #'prot/company-prog-backends)
(defun prot/company-text-backends ()
"Set `company-backends' locally to my preferred value for `text-mode' and derivatives."
(setq-local company-backends '((company-dabbrev company-ispell company-capf) company-files)))
(setq-local company-backends '((company-dabbrev company-abbrev company-ispell company-capf) company-files)))
(add-hook 'text-mode-hook #'prot/company-text-backends)

8
emacs/.emacs.d/prot-emacs.org
View file

@ -4839,13 +4839,13 @@ INDIVIDUAL-CAPFS to the list."
(defun prot/cape-prog-setup ()
"Set up Cape for programming."
(prot/cape-super-set-local '(cape-dabbrev) '(cape-file)))
(prot/cape-super-set-local '(cape-dabbrev cape-abbrev) '(cape-file)))
(add-hook 'prog-mode-hook #'prot/cape-prog-setup)
(defun prot/cape-text-setup ()
"Set up Cape for prose."
(prot/cape-super-set-local '(cape-dict cape-dabbrev cape-emoji) '(cape-file)))
(prot/cape-super-set-local '(cape-dict cape-dabbrev cape-abbrev cape-emoji) '(cape-file)))
(setq completion-at-point-functions '(cape-dabbrev cape-file))
@ -4912,13 +4912,13 @@ some Language Server Protocol).
(defun prot/company-prog-backends ()
"Set `company-backends' locally to my preferred value for `prog-mode' and derivatives."
(setq-local company-backends '((company-capf company-dabbrev-code) company-files)))
(setq-local company-backends '((company-capf company-dabbrev-code company-abbrev) company-files)))
(add-hook 'prog-mode-hook #'prot/company-prog-backends)
(defun prot/company-text-backends ()
"Set `company-backends' locally to my preferred value for `text-mode' and derivatives."
(setq-local company-backends '((company-dabbrev company-ispell company-capf) company-files)))
(setq-local company-backends '((company-dabbrev company-abbrev company-ispell company-capf) company-files)))
(add-hook 'text-mode-hook #'prot/company-text-backends)