emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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 `(progn
(defun ,def-name () (defun ,def-name ()
(require 'company) (require 'company)
(set (make-local-variable 'company-backends) (setq-local company-backends (append '((,@backends)) company-backends)))
(append '((,@backends)) company-backends)))
(add-hook! ,modes ',def-name)))) (add-hook! ,modes ',def-name))))
@ -36,15 +35,13 @@
company-frontends '(company-pseudo-tooltip-frontend company-echo-metadata-frontend) company-frontends '(company-pseudo-tooltip-frontend company-echo-metadata-frontend)
company-backends '(company-capf)) company-backends '(company-capf))
(set! :company-backend 'python-mode '(company-anaconda))
(push 'company-sort-by-occurrence company-transformers) (push 'company-sort-by-occurrence company-transformers)
(after! yasnippet (after! yasnippet
(nconc company-backends '(company-yasnippet))) (nconc company-backends '(company-yasnippet)))
(map! (:map company-active-map (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-w" nil
"C-o" 'company-search-kill-others "C-o" 'company-search-kill-others
@ -55,10 +52,10 @@
"C-S-s" 'company-search-candidates "C-S-s" 'company-search-candidates
"C-s" 'company-filter-candidates "C-s" 'company-filter-candidates
"C-SPC" 'company-complete-common "C-SPC" 'company-complete-common
"C-h" 'company-quickhelp-manual-begin
[tab] 'company-complete-common-or-cycle [tab] 'company-complete-common-or-cycle
[backtab] 'company-select-previous [backtab] 'company-select-previous
[escape] (λ! (company-abort) (evil-normal-state 1)) [escape] (λ! (company-abort) (evil-normal-state 1)))
[C-return] 'counsel-company)
;; Automatically applies to `company-filter-map' ;; Automatically applies to `company-filter-map'
(:map company-search-map (:map company-search-map