131 lines
7 KiB
EmacsLisp
131 lines
7 KiB
EmacsLisp
;;; completion/company/config.el -*- lexical-binding: t; -*-
|
|
|
|
(use-package! company
|
|
:commands company-complete-common company-manual-begin company-grab-line
|
|
:after-call evil-insert-state-entry-hook evil-emacs-state-entry-hook
|
|
:init
|
|
(setq company-minimum-prefix-length 2
|
|
company-tooltip-limit 14
|
|
company-dabbrev-downcase nil
|
|
company-dabbrev-ignore-case nil
|
|
company-dabbrev-code-other-buffers t
|
|
company-tooltip-align-annotations t
|
|
company-require-match 'never
|
|
company-global-modes
|
|
'(not erc-mode message-mode help-mode gud-mode eshell-mode)
|
|
company-backends '(company-capf)
|
|
company-frontends
|
|
'(company-pseudo-tooltip-frontend
|
|
company-echo-metadata-frontend))
|
|
;; Lazy load until user starts entering text
|
|
(unless (featurep! :editor evil)
|
|
(add-transient-hook! 'post-self-insert-hook (require 'company)))
|
|
:config
|
|
(when (featurep! :editor evil)
|
|
(add-hook 'company-mode-hook #'evil-normalize-keymaps)
|
|
|
|
;; Allow users to switch between backends on the fly. E.g. C-x C-s followed
|
|
;; by C-x C-n, will switch from `company-yasnippet' to
|
|
;; `company-dabbrev-code'.
|
|
(defadvice! +company--abort-previous-a (&rest _)
|
|
:before #'company-begin-backend
|
|
(company-abort)))
|
|
|
|
(add-hook 'company-mode-hook #'+company-init-backends-h)
|
|
(global-company-mode +1))
|
|
|
|
|
|
(use-package! company-tng
|
|
:when (featurep! +tng)
|
|
:after-call post-self-insert-hook
|
|
:config
|
|
(add-to-list 'company-frontends 'company-tng-frontend)
|
|
(define-key! company-active-map
|
|
"RET" nil
|
|
[return] nil
|
|
"TAB" #'company-select-next
|
|
[tab] #'company-select-next
|
|
[backtab] #'company-select-previous))
|
|
|
|
|
|
;;
|
|
;; Packages
|
|
|
|
(use-package! company-prescient
|
|
:hook (company-mode . company-prescient-mode)
|
|
:config
|
|
;; NOTE prescient config duplicated with `ivy'
|
|
(setq prescient-save-file (concat doom-cache-dir "prescient-save.el"))
|
|
(prescient-persist-mode +1))
|
|
|
|
|
|
(use-package! company-box
|
|
:when (and EMACS26+ (featurep! +childframe))
|
|
:hook (company-mode . company-box-mode)
|
|
:config
|
|
(setq company-box-show-single-candidate t
|
|
company-box-backends-colors nil
|
|
company-box-max-candidates 50
|
|
company-box-icons-alist 'company-box-icons-all-the-icons
|
|
company-box-icons-functions
|
|
'(+company-box-icons--yasnippet-fn
|
|
company-box-icons--lsp
|
|
+company-box-icons--elisp-fn
|
|
company-box-icons--acphp)
|
|
company-box-icons-all-the-icons
|
|
`((Unknown . ,(all-the-icons-material "find_in_page" :height 0.8 :face 'all-the-icons-purple))
|
|
(Text . ,(all-the-icons-material "text_fields" :height 0.8 :face 'all-the-icons-green))
|
|
(Method . ,(all-the-icons-material "functions" :height 0.8 :face 'all-the-icons-red))
|
|
(Function . ,(all-the-icons-material "functions" :height 0.8 :face 'all-the-icons-red))
|
|
(Constructor . ,(all-the-icons-material "functions" :height 0.8 :face 'all-the-icons-red))
|
|
(Field . ,(all-the-icons-material "functions" :height 0.8 :face 'all-the-icons-red))
|
|
(Variable . ,(all-the-icons-material "adjust" :height 0.8 :face 'all-the-icons-blue))
|
|
(Class . ,(all-the-icons-material "class" :height 0.8 :face 'all-the-icons-red))
|
|
(Interface . ,(all-the-icons-material "settings_input_component" :height 0.8 :face 'all-the-icons-red))
|
|
(Module . ,(all-the-icons-material "view_module" :height 0.8 :face 'all-the-icons-red))
|
|
(Property . ,(all-the-icons-material "settings" :height 0.8 :face 'all-the-icons-red))
|
|
(Unit . ,(all-the-icons-material "straighten" :height 0.8 :face 'all-the-icons-red))
|
|
(Value . ,(all-the-icons-material "filter_1" :height 0.8 :face 'all-the-icons-red))
|
|
(Enum . ,(all-the-icons-material "plus_one" :height 0.8 :face 'all-the-icons-red))
|
|
(Keyword . ,(all-the-icons-material "filter_center_focus" :height 0.8 :face 'all-the-icons-red))
|
|
(Snippet . ,(all-the-icons-material "short_text" :height 0.8 :face 'all-the-icons-red))
|
|
(Color . ,(all-the-icons-material "color_lens" :height 0.8 :face 'all-the-icons-red))
|
|
(File . ,(all-the-icons-material "insert_drive_file" :height 0.8 :face 'all-the-icons-red))
|
|
(Reference . ,(all-the-icons-material "collections_bookmark" :height 0.8 :face 'all-the-icons-red))
|
|
(Folder . ,(all-the-icons-material "folder" :height 0.8 :face 'all-the-icons-red))
|
|
(EnumMember . ,(all-the-icons-material "people" :height 0.8 :face 'all-the-icons-red))
|
|
(Constant . ,(all-the-icons-material "pause_circle_filled" :height 0.8 :face 'all-the-icons-red))
|
|
(Struct . ,(all-the-icons-material "streetview" :height 0.8 :face 'all-the-icons-red))
|
|
(Event . ,(all-the-icons-material "event" :height 0.8 :face 'all-the-icons-red))
|
|
(Operator . ,(all-the-icons-material "control_point" :height 0.8 :face 'all-the-icons-red))
|
|
(TypeParameter . ,(all-the-icons-material "class" :height 0.8 :face 'all-the-icons-red))
|
|
;; (Template . ,(company-box-icons-image "Template.png"))))
|
|
(Yasnippet . ,(all-the-icons-material "short_text" :height 0.8 :face 'all-the-icons-green))
|
|
(ElispFunction . ,(all-the-icons-material "functions" :height 0.8 :face 'all-the-icons-red))
|
|
(ElispVariable . ,(all-the-icons-material "check_circle" :height 0.8 :face 'all-the-icons-blue))
|
|
(ElispFeature . ,(all-the-icons-material "stars" :height 0.8 :face 'all-the-icons-orange))
|
|
(ElispFace . ,(all-the-icons-material "format_paint" :height 0.8 :face 'all-the-icons-pink))))
|
|
|
|
(defun +company-box-icons--yasnippet-fn (candidate)
|
|
(when (get-text-property 0 'yas-annotation candidate)
|
|
'Yasnippet))
|
|
|
|
(defun +company-box-icons--elisp-fn (candidate)
|
|
(when (derived-mode-p 'emacs-lisp-mode)
|
|
(let ((sym (intern candidate)))
|
|
(cond ((fboundp sym) 'ElispFunction)
|
|
((boundp sym) 'ElispVariable)
|
|
((featurep sym) 'ElispFeature)
|
|
((facep sym) 'ElispFace))))))
|
|
|
|
|
|
(use-package! company-dict
|
|
:defer t
|
|
:config
|
|
(setq company-dict-dir (expand-file-name "dicts" doom-private-dir))
|
|
(add-hook! 'doom-project-hook
|
|
(defun +company-enable-project-dicts-h (mode &rest _)
|
|
"Enable per-project dictionaries."
|
|
(if (symbol-value mode)
|
|
(add-to-list 'company-dict-minor-mode-list mode nil #'eq)
|
|
(setq company-dict-minor-mode-list (delq mode company-dict-minor-mode-list))))))
|