Clean up "lst:setup-company"

This commit is contained in:
Gerard Vermeulen 2024-06-15 16:08:37 +02:00
parent 3bee5ba2a4
commit c3ac03da92

View File

@ -1520,19 +1520,17 @@ configures =company= after ensuring the =company= installation.
#+caption: Setup =company=.
#+name: lst:setup-company
#+begin_src emacs-lisp -n :results silent
(when (and (ensure-package-installation 'company)
(fboundp 'company-mode))
(when (ensure-package-installation 'company)
;; https://github.com/purcell/emacs.d/issues/778
(setopt company-transformers '(company-sort-by-occurrence))
(dolist (symbol '(LaTeX-mode-hook
org-mode-hook
emacs-lisp-mode-hook
lisp-interaction-mode-hook
lisp-mode-hook
python-mode-hook
ielm-mode-hook
sly-mrepl-mode-hook))
(add-hook symbol #'company-mode)))
(add-hook 'LaTeX-mode-hook #'company-mode)
(add-hook 'org-mode-hook #'company-mode)
(add-hook 'emacs-lisp-mode-hook #'company-mode)
(add-hook 'lisp-interaction-mode-hook #'company-mode)
(add-hook 'lisp-mode-hook #'company-mode)
(add-hook 'python-mode-hook #'company-mode)
(add-hook 'ielm-mode-hook #'company-mode)
(add-hook 'sly-mrepl-mode-hook #'company-mode))
#+end_src
* [[info:emacs#Search][Search and replace (info)]]