09cb4f6716
Now that we are loading package autoloads files (as part of the generated doom-package-autoload-file when running make autoloads), many :commands properties are redundant. In fact, many def-package! blocks are redundant. In some cases, we can do without a config.el file entirely, and can move into the autoloads file or rely entirely on package autoloads. Also, many settings have been moved in their module's autoloads files, which makes them available ASAP; their use no longer depends on module load order. This gained me a modest ~10% boost in startup speed.
84 lines
3.1 KiB
EmacsLisp
84 lines
3.1 KiB
EmacsLisp
;;; completion/company/config.el -*- lexical-binding: t; -*-
|
|
|
|
(def-setting! :company-backend (modes &rest backends)
|
|
"Prepends BACKENDS to `company-backends' in major MODES.
|
|
|
|
MODES should be one major-mode symbol or a list of them."
|
|
`(progn
|
|
,@(cl-loop for mode in (doom-enlist (doom-unquote modes))
|
|
for def-name = (intern (format "doom--init-company-%s" mode))
|
|
collect
|
|
`(defun ,def-name ()
|
|
(when (and (or (eq major-mode ',mode)
|
|
(bound-and-true-p ,mode))
|
|
,(not (eq backends '(nil))))
|
|
(require 'company)
|
|
(make-variable-buffer-local 'company-backends)
|
|
(dolist (backend (list ,@(reverse backends)))
|
|
(cl-pushnew backend company-backends :test #'equal))))
|
|
collect `(add-hook! ,mode #',def-name))))
|
|
|
|
|
|
;;
|
|
;; Packages
|
|
;;
|
|
|
|
(def-package! company
|
|
:commands (company-complete-common company-manual-begin company-grab-line)
|
|
:init
|
|
(setq company-idle-delay nil
|
|
company-tooltip-limit 14
|
|
company-dabbrev-downcase nil
|
|
company-dabbrev-ignore-case nil
|
|
company-dabbrev-code-other-buffers t
|
|
company-tooltip-align-annotations t
|
|
company-require-match 'never
|
|
company-global-modes
|
|
'(not comint-mode erc-mode message-mode help-mode gud-mode)
|
|
company-frontends
|
|
'(company-pseudo-tooltip-frontend
|
|
company-echo-metadata-frontend)
|
|
company-backends
|
|
'(company-capf company-dabbrev company-ispell company-yasnippet)
|
|
company-transformers '(company-sort-by-occurrence))
|
|
:config
|
|
(global-company-mode +1))
|
|
|
|
|
|
(def-package! company
|
|
:when (featurep! +auto)
|
|
:defer 2
|
|
:after-call pre-command-hook
|
|
:config (setq company-idle-delay 0.2))
|
|
|
|
|
|
(def-package! company-statistics
|
|
:hook (company-mode . company-statistics-mode)
|
|
:init (advice-add #'company-statistics-mode :around #'doom*shut-up)
|
|
:config (setq company-statistics-file (concat doom-cache-dir "company-stats-cache.el")))
|
|
|
|
|
|
(def-package! company-box
|
|
:when (and EMACS26+ (featurep! +childframe))
|
|
:hook (company-mode . company-box-mode)
|
|
:config
|
|
(setq company-box-backends-colors nil
|
|
company-box-icons-elisp
|
|
(list (all-the-icons-material "functions" :face 'all-the-icons-purple)
|
|
(all-the-icons-material "check_circle" :face 'all-the-icons-blue)
|
|
(all-the-icons-material "stars" :face 'all-the-icons-yellow)
|
|
(all-the-icons-material "format_paint" :face 'all-the-icons-pink))
|
|
company-box-icons-unknown (all-the-icons-material "find_in_page" :face 'all-the-icons-silver)
|
|
company-box-icons-yasnippet (all-the-icons-material "short_text" :face 'all-the-icons-green)))
|
|
|
|
|
|
(def-package! company-dict
|
|
:defer t
|
|
:config
|
|
(defun +company|enable-project-dicts (mode &rest _)
|
|
"Enable per-project dictionaries."
|
|
(if (symbol-value mode)
|
|
(add-to-list 'company-dict-minor-mode-list mode #'eq)
|
|
(setq company-dict-minor-mode-list (delq mode company-dict-minor-mode-list))))
|
|
(add-hook 'doom-project-hook #'+company|enable-project-dicts))
|
|
|