diff options
| -rw-r--r-- | init.org | 31 | ||||
| -rw-r--r-- | lisp/init-completion.el | 16 |
2 files changed, 30 insertions, 17 deletions
@@ -560,6 +560,34 @@ The default prompt face makes it hard to see the prompt. (require 'ido) #+END_SRC +* Completion +:PROPERTIES: +:noweb-ref: completion +:END: + +#+BEGIN_SRC elisp +(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)))))) +#+END_SRC + +#+BEGIN_SRC elisp :noweb-ref completion-lazy +(provide 'my/init-completion) +(with-eval-after-load "company" + <<completion>> + ) +(require 'company) +#+END_SRC + * TODO Initial stuff :PROPERTIES: :noweb-ref: initial @@ -719,7 +747,7 @@ still need to process all of this and clean it up. (load "email.el") (require 'my/init-org) -(load "init-completion.el") +(require 'my/init-completion) (load "init-geiser.el") (load "init-gnus.el") (require 'my/init-magit) @@ -801,6 +829,7 @@ put them all together to build the init file <<tramp>> <<shell>> <<ido-lazy>> +<<completion-lazy>> <<initial-after-packages>> <<org-mode-lazy>> <<magit-lazy>> diff --git a/lisp/init-completion.el b/lisp/init-completion.el deleted file mode 100644 index 03d14ad..0000000 --- a/lisp/init-completion.el +++ /dev/null @@ -1,16 +0,0 @@ -(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)))))) - - |