100 lines
3.4 KiB
EmacsLisp
100 lines
3.4 KiB
EmacsLisp
;;; completion/company/config.el
|
|
|
|
(@def-setting :company-backend (modes backends)
|
|
"Register company BACKENDS to MODES."
|
|
(let* ((modes (if (listp modes) modes (list modes)))
|
|
(backends (if (listp backends) backends (list backends)))
|
|
(def-name (intern (format "doom--init-company-%s"
|
|
(mapconcat 'identity (mapcar 'symbol-name modes) "-"))))
|
|
(quoted (eq (car-safe backends) 'quote)))
|
|
;; TODO more type checks
|
|
`(progn
|
|
(defun ,def-name ()
|
|
(require 'company)
|
|
(set (make-local-variable 'company-backends)
|
|
(append '((,@backends)) company-backends)))
|
|
(@add-hook ,modes ',def-name))))
|
|
|
|
|
|
;;
|
|
;; Packages
|
|
;;
|
|
|
|
(@def-package company
|
|
:commands (company-mode global-company-mode company-complete
|
|
company-complete-common company-manual-begin company-grab-line)
|
|
:config
|
|
(setq company-idle-delay nil
|
|
company-minimum-prefix-length 2
|
|
company-tooltip-limit 10
|
|
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 eshell-mode comint-mode erc-mode message-mode help-mode)
|
|
company-frontends '(company-pseudo-tooltip-frontend company-echo-metadata-frontend)
|
|
company-backends '(company-capf)
|
|
company-quickhelp-delay nil
|
|
company-statistics-file (concat doom-cache-dir "/company-stats-cache.el"))
|
|
|
|
(@set :company-backend 'python-mode '(company-anaconda))
|
|
|
|
(push 'company-sort-by-occurrence company-transformers)
|
|
|
|
(@after yasnippet
|
|
(setq-default company-backends (append company-backends '(company-yasnippet))))
|
|
|
|
(@map (:map company-active-map
|
|
;; Don't interfere with insert mode binding for `evil-delete-backward-word'
|
|
"C-w" nil
|
|
|
|
"C-o" 'company-search-kill-others
|
|
"C-n" 'company-select-next
|
|
"C-p" 'company-select-previous
|
|
"C-h" 'company-quickhelp-manual-begin
|
|
"C-S-h" 'company-show-doc-buffer
|
|
"C-S-s" 'company-search-candidates
|
|
"C-s" 'company-filter-candidates
|
|
"C-SPC" 'company-complete-common
|
|
[tab] 'company-complete-common-or-cycle
|
|
[backtab] 'company-select-previous
|
|
[escape] (@λ (company-abort) (evil-normal-state 1))
|
|
[C-return] 'counsel-company)
|
|
|
|
;; Automatically applies to `company-filter-map'
|
|
(:map company-search-map
|
|
"C-n" 'company-search-repeat-forward
|
|
"C-p" 'company-search-repeat-backward
|
|
"C-s" (@λ (company-search-abort) (company-filter-candidates))
|
|
[escape] 'company-search-abort))
|
|
|
|
(global-company-mode +1)
|
|
|
|
;; Looks ugly on OSX without emacs-mac build
|
|
(require 'company-quickhelp)
|
|
(company-quickhelp-mode +1)
|
|
|
|
(require 'company-statistics)
|
|
(company-statistics-mode +1))
|
|
|
|
|
|
(@def-package company-dict
|
|
:commands company-dict)
|
|
|
|
|
|
;;
|
|
;; Autoloads
|
|
;;
|
|
|
|
(autoload 'company-capf "company-capf")
|
|
(autoload 'company-yasnippet "company-yasnippet")
|
|
(autoload 'company-dabbrev "company-dabbrev")
|
|
(autoload 'company-dabbrev-code "company-dabbrev-code")
|
|
(autoload 'company-etags "company-etags")
|
|
(autoload 'company-elisp "company-elisp")
|
|
(autoload 'company-files "company-files")
|
|
(autoload 'company-gtags "company-gtags")
|
|
(autoload 'company-ispell "company-ispell")
|
|
|