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: tweak the company configuration

Browse source
This commit is contained in:
Protesilaos 2026-08-28 06:27:16 +03:00
parent 08a4ca48b3
commit 2840a43cd1
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 26 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -300,6 +300,8 @@ INDIVIDUAL-CAPFS to the list."
(when (eq prot-emacs-completion-in-buffer 'company)
(prot-emacs-configure
(prot-emacs-install company)
(prot-emacs-install company-statistics)
;; NOTE 2026-07-10: with the latest version of Company, (setq
;; tab-always-indent 'complete) is supported out-of-the-box, which
;; means that I can finally disable the automatic popup feature.
@ -331,21 +333,24 @@ 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-abbrev) company-files)))
(add-hook 'prog-mode-hook #'prot/company-prog-backends)
(setq-local company-backends '((company-capf company-dabbrev company-abbrev) company-files)))
(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-abbrev company-ispell company-capf) company-files)))
(prot-emacs-hook (prog-mode-hook comint-mode-hook) prot/company-prog-backends)
(prot-emacs-hook (prog-mode-hook text-mode-hook comint-mode-hook) company-mode)
(add-hook 'text-mode-hook #'prot/company-text-backends)
(global-company-mode 1)
(prot-emacs-install company-statistics)
(company-statistics-mode 1)))
(with-eval-after-load 'company
(prot-emacs-keybind company-active-map
"C-s" #'company-filter-candidates
"<escape>" #'company-abort
"<tab>" #'company-complete-selection
"<up>" #'company-select-previous-or-abort
"<down>" #'company-select-next-or-abort)
(company-statistics-mode 1))))
(when (eq prot-emacs-completion-in-buffer 'completion-preview)
(prot-emacs-configure

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

@ -4881,6 +4881,8 @@ some Language Server Protocol).
(when (eq prot-emacs-completion-in-buffer 'company)
(prot-emacs-configure
(prot-emacs-install company)
(prot-emacs-install company-statistics)
;; NOTE 2026-07-10: with the latest version of Company, (setq
;; tab-always-indent 'complete) is supported out-of-the-box, which
;; means that I can finally disable the automatic popup feature.
@ -4912,21 +4914,24 @@ 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-abbrev) company-files)))
(add-hook 'prog-mode-hook #'prot/company-prog-backends)
(setq-local company-backends '((company-capf company-dabbrev company-abbrev) company-files)))
(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-abbrev company-ispell company-capf) company-files)))
(prot-emacs-hook (prog-mode-hook comint-mode-hook) prot/company-prog-backends)
(prot-emacs-hook (prog-mode-hook text-mode-hook comint-mode-hook) company-mode)
(add-hook 'text-mode-hook #'prot/company-text-backends)
(global-company-mode 1)
(prot-emacs-install company-statistics)
(company-statistics-mode 1)))
(with-eval-after-load 'company
(prot-emacs-keybind company-active-map
"C-s" #'company-filter-candidates
"<escape>" #'company-abort
"<tab>" #'company-complete-selection
"<up>" #'company-select-previous-or-abort
"<down>" #'company-select-next-or-abort)
(company-statistics-mode 1))))
#+end_src
*** The =prot-emacs-completion.el= for in-buffer completion hints (~completion-preview-mode~)