awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

completion/company: general refactor + key rebinding + cleanup

Browse Source
This commit is contained in:
Henrik Lissner
2017-03-04 00:02:19 -05:00
parent 7d1b02cbed
commit caf2b7f4f3
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/completion/company/config.el
View File

@ -11,8 +11,7 @@
`(progn
(defun ,def-name ()
(require 'company)
(set (make-local-variable 'company-backends)
(append '((,@backends)) company-backends)))
(setq-local company-backends (append '((,@backends)) company-backends)))
(add-hook! ,modes ',def-name))))
@ -36,15 +35,13 @@
company-frontends '(company-pseudo-tooltip-frontend company-echo-metadata-frontend)
company-backends '(company-capf))
(set! :company-backend 'python-mode '(company-anaconda))
(push 'company-sort-by-occurrence company-transformers)
(after! yasnippet
(nconc company-backends '(company-yasnippet)))
(map! (:map company-active-map
;; Don't interfere with insert mode binding for `evil-delete-backward-word'
;; Don't interfere with `evil-delete-backward-word' in insert mode
"C-w" nil
"C-o" 'company-search-kill-others
@ -55,10 +52,10 @@
"C-S-s" 'company-search-candidates
"C-s" 'company-filter-candidates
"C-SPC" 'company-complete-common
"C-h" 'company-quickhelp-manual-begin
[tab] 'company-complete-common-or-cycle
[backtab] 'company-select-previous
[escape] (λ! (company-abort) (evil-normal-state 1))
[C-return] 'counsel-company)
[escape] (λ! (company-abort) (evil-normal-state 1)))
;; Automatically applies to `company-filter-map'
(:map company-search-map