55 lines
2.2 KiB
EmacsLisp
55 lines
2.2 KiB
EmacsLisp
;;; core-company.el --- auto completion backend (Company-mode)
|
|
;; see lib/company-macros.el
|
|
|
|
(eval-when-compile (require 'core))
|
|
|
|
(use-package company
|
|
:diminish (company-mode . "=")
|
|
:commands (company-complete-common company-files company-tags
|
|
company-ispell company-yasnippet company-semantic
|
|
company-dabbrev-code)
|
|
:init
|
|
(after! abbrev (diminish 'abbrev-mode "A"))
|
|
(setq company-idle-delay nil
|
|
company-minimum-prefix-length 1
|
|
company-show-numbers nil
|
|
company-tooltip-limit 20
|
|
company-dabbrev-downcase nil
|
|
company-dabbrev-ignore-case nil
|
|
company-tooltip-align-annotations t
|
|
company-require-match 'never
|
|
company-global-modes '(not eshell-mode comint-mode org-mode erc-mode
|
|
message-mode help-mode)
|
|
company-frontends '(company-pseudo-tooltip-unless-just-one-frontend
|
|
company-echo-metadata-frontend
|
|
company-preview-if-just-one-frontend)
|
|
company-dict-dir (concat narf-private-dir "dict/"))
|
|
:config
|
|
(global-company-mode +1)
|
|
|
|
;; (use-package company-dict :defer t)
|
|
;; (setq-default company-backends (append '(company-dict company-keywords) company-backends))
|
|
|
|
(setq-default company-backends (append '(company-keywords) company-backends))
|
|
;; TODO: Investigate yasnippet
|
|
(after! yasnippet
|
|
(setq-default company-backends (append '(company-capf company-yasnippet) company-backends)))
|
|
(add-to-list 'company-transformers 'company-sort-by-occurrence)
|
|
|
|
(add-company-backend! nxml-mode (nxml yasnippet))
|
|
(add-company-backend! emacs-lisp-mode (elisp yasnippet))
|
|
|
|
;; Rewrite evil-complete to use company-dabbrev
|
|
(setq company-dabbrev-code-other-buffers t
|
|
company-dabbrev-code-buffers nil
|
|
evil-complete-next-func 'narf/company-evil-complete-next
|
|
evil-complete-previous-func 'narf/company-evil-complete-previous)
|
|
|
|
(shut-up!
|
|
(setq company-statistics-file (! (concat narf-temp-dir "company-statistics-cache.el")))
|
|
(require 'company-statistics)
|
|
(company-statistics-mode)))
|
|
|
|
(provide 'core-company)
|
|
;;; core-company.el ends here
|