26 lines
1.0 KiB
EmacsLisp
26 lines
1.0 KiB
EmacsLisp
(use-package company
|
|
:init
|
|
(add-hook 'after-init-hook 'global-company-mode)
|
|
:bind
|
|
("C-<tab>" . company-complete)
|
|
:config
|
|
(setq company-idle-delay 0)
|
|
(define-key company-active-map (kbd "TAB") 'company-complete-common-or-cycle)
|
|
(define-key company-active-map (kbd "<tab>") 'company-complete-common-or-cycle)
|
|
(setq company-dabbrev-downcase nil)
|
|
|
|
;; Add yasnippet support for all company backends
|
|
(defvar company-mode/enable-yas t
|
|
"Enable yasnippet for all backends.")
|
|
(defun company-mode/backend-with-yas (backend)
|
|
(if (or (not company-mode/enable-yas) (and (listp backend) (member 'company-yasnippet backend)))
|
|
backend
|
|
(append (if (consp backend) backend (list backend))
|
|
'(:with company-yasnippet))))
|
|
(setq company-backends (mapcar #'company-mode/backend-with-yas company-backends)))
|
|
|
|
(use-package company-org-block
|
|
:hook ((org-mode . (lambda ()
|
|
(setq-local company-backends '(company-org-block))
|
|
(company-mode +1)))))
|