diff options
| -rw-r--r-- | init.el | 6 | ||||
| -rw-r--r-- | lisp/init-completion.el | 16 |
2 files changed, 17 insertions, 5 deletions
@@ -133,11 +133,6 @@ (put 'erase-buffer 'disabled nil) (put 'narrow-to-page 'disabled nil) -(require 'company) -(add-hook 'after-init-hook 'global-company-mode) -(setq company-idle-delay nil) -(define-key company-mode-map (kbd "C-c <tab>") 'company-complete) - (require 'fill-column-indicator) (add-hook 'prog-mode-hook 'fci-mode) @@ -168,6 +163,7 @@ (load "email.el") (load "init-org.el") (load "init-ido.el") +(load "init-completion.el") (load "init-geiser.el") (load "init-god-mode.el") (load "init-gnus.el") diff --git a/lisp/init-completion.el b/lisp/init-completion.el new file mode 100644 index 0000000..03d14ad --- /dev/null +++ b/lisp/init-completion.el @@ -0,0 +1,16 @@ +(require 'company) +(add-hook 'after-init-hook 'global-company-mode) +(setq company-idle-delay 0.5) +(define-key company-mode-map (kbd "C-c <tab>") 'company-complete) + +(require 'color) + +(let ((bg (face-attribute 'default :background))) + (custom-set-faces + `(company-tooltip ((t (:inherit default :background ,(color-lighten-name bg 2))))) + `(company-scrollbar-bg ((t (:background ,(color-lighten-name bg 10))))) + `(company-scrollbar-fg ((t (:background ,(color-lighten-name bg 5))))) + `(company-tooltip-selection ((t (:inherit font-lock-function-name-face)))) + `(company-tooltip-common ((t (:inherit font-lock-constant-face)))))) + + |