From 28e4e78217be41301d6a15402c5092e2359dae1b Mon Sep 17 00:00:00 2001 From: rekado Date: Sat, 18 Jun 2016 07:47:33 +0200 Subject: Move completion settings to separate file. --- init.el | 6 +----- lisp/init-completion.el | 16 ++++++++++++++++ 2 files changed, 17 insertions(+), 5 deletions(-) create mode 100644 lisp/init-completion.el diff --git a/init.el b/init.el index 5c845e4..f3a986b 100644 --- a/init.el +++ b/init.el @@ -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 ") '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 ") '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)))))) + + -- cgit v1.2.3