TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

company: Fix :init and use default company-frontends

Browse source
This commit is contained in:
Fredrik Bergroth 2016-02-11 11:12:49 +01:00 committed by syl20bnr
parent 3278a95edd
commit 5f2349e784
1 changed files with 17 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
layers/auto-completion/packages.el
View file

@ -76,21 +76,21 @@
company-minimum-prefix-length 2
company-require-match nil
company-dabbrev-ignore-case nil
company-dabbrev-downcase nil
company-frontends '(company-pseudo-tooltip-frontend)))
(defvar-local company-fci-mode-on-p nil)
company-dabbrev-downcase nil)
(defun company-turn-off-fci (&rest ignore)
(when (boundp 'fci-mode)
(setq company-fci-mode-on-p fci-mode)
(when fci-mode (fci-mode -1))))
(defvar-local company-fci-mode-on-p nil)
(defun company-maybe-turn-on-fci (&rest ignore)
(when company-fci-mode-on-p (fci-mode 1)))
(defun company-turn-off-fci (&rest ignore)
(when (boundp 'fci-mode)
(setq company-fci-mode-on-p fci-mode)
(when fci-mode (fci-mode -1))))
(add-hook 'company-completion-started-hook 'company-turn-off-fci)
(add-hook 'company-completion-finished-hook 'company-maybe-turn-on-fci)
(add-hook 'company-completion-cancelled-hook 'company-maybe-turn-on-fci)
(defun company-maybe-turn-on-fci (&rest ignore)
(when company-fci-mode-on-p (fci-mode 1)))
(add-hook 'company-completion-started-hook 'company-turn-off-fci)
(add-hook 'company-completion-finished-hook 'company-maybe-turn-on-fci)
(add-hook 'company-completion-cancelled-hook 'company-maybe-turn-on-fci))
:config
(progn
(spacemacs|diminish company-mode " ⓐ" " a")
@ -139,7 +139,11 @@
(use-package company-quickhelp
:if (and auto-completion-enable-help-tooltip (display-graphic-p))
:defer t
:init (add-hook 'company-mode-hook 'company-quickhelp-mode)))
:init
(progn
(add-hook 'company-mode-hook 'company-quickhelp-mode)
(with-eval-after-load 'company
(setq company-frontends (delq 'company-echo-metadata-frontend company-frontends))))))
(when (configuration-layer/layer-usedp 'spacemacs-helm)
(defun auto-completion/init-helm-c-yasnippet ()