Astounds
fa9b2a92c2
- Add CI test job with Emacs batch load and byte-compile - Fix settings-file variable check in init.el - Fix extra parenthesis in init-neotree.el - Add missing projectile dependencies in neotree and web-mode - Fix add-hook usage in init-icons.el - Add hydra dependency in init-ivy.el - Standardize header style in init-company.el
41 lines
1.3 KiB
EmacsLisp
41 lines
1.3 KiB
EmacsLisp
;;; init-company.el --- .Emacs Configuration -*- lexical-binding: t -*-
|
|
;;; Commentary:
|
|
;; Company is a framework for text completion in Emacs.
|
|
|
|
;;; Code:
|
|
(use-package company
|
|
:defer 5
|
|
:diminish
|
|
:bind
|
|
(:map company-mode-map
|
|
("<backtab>" . company-complete))
|
|
:config
|
|
;; Global
|
|
(setq company-idle-delay 1
|
|
company-minimum-prefix-length 1
|
|
company-show-numbers nil
|
|
company-tooltip-limit 20)
|
|
|
|
;; Facing
|
|
(unless (face-attribute 'company-tooltip :background)
|
|
(set-face-attribute 'company-tooltip nil :background "black" :foreground "gray40")
|
|
(set-face-attribute 'company-tooltip-selection nil :inherit 'company-tooltip :background "gray15")
|
|
(set-face-attribute 'company-preview nil :background "black")
|
|
(set-face-attribute 'company-preview-common nil :inherit 'company-preview :foreground "gray40")
|
|
(set-face-attribute 'company-scrollbar-bg nil :inherit 'company-tooltip :background "gray20")
|
|
(set-face-attribute 'company-scrollbar-fg nil :background "gray40"))
|
|
|
|
;; Activating globally
|
|
(global-company-mode t))
|
|
|
|
(use-package company-quickhelp
|
|
:after company
|
|
:config
|
|
(company-quickhelp-mode 1))
|
|
|
|
(provide 'init-company)
|
|
;; Local Variables:
|
|
;; byte-compile-warnings: (not free-vars)
|
|
;; End:
|
|
;;; init-company.el ends here
|