config/emacs
config/emacs
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add asynchronous company backend

Browse Source
This commit is contained in:
Wojciech Kozlowski 2017-09-09 00:29:54 +01:00
parent acefb0b62d
commit d6aedf768f
1 changed files with 30 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
emacs-racer/racer.el
View File

@ -110,6 +110,11 @@ If nil, we will query $CARGO_HOME at runtime."
:type 'file :type 'file
:group 'racer) :group 'racer)
(defcustom racer-use-company-backend nil
"Use the asynchronous company backend."
:type 'boolean
:group 'racer)
(defun racer--cargo-project-root () (defun racer--cargo-project-root ()
"Find the root of the current Cargo project." "Find the root of the current Cargo project."
(let ((root (locate-dominating-file (or (buffer-file-name (buffer-base-buffer)) default-directory) (let ((root (locate-dominating-file (or (buffer-file-name (buffer-base-buffer)) default-directory)
@ -752,14 +757,37 @@ If PATH is not in DIRECTORY, just abbreviate it."
(define-key map (kbd "M-,") #'pop-tag-mark) (define-key map (kbd "M-,") #'pop-tag-mark)
map)) map))
(defun racer--get-prefix ()
"Get a prefix from current position."
(company-grab-symbol-cons "\\.\\|::" 2))
(defun racer-company-backend (command &optional arg &rest ignored)
"`company-mode' completion back-end for racer.
Provide completion info according to COMMAND and ARG. IGNORED, not used."
(interactive (list 'interactive))
(cl-case command
(interactive (company-begin-backend 'company-racer-racer))
(prefix (and (derived-mode-p 'rust-mode)
(not (company-in-string-or-comment))
(or (racer--get-prefix) 'stop)))
(candidates (cons :async (lambda (callback)
(funcall callback (racer-complete)))))
(annotation (racer-complete--annotation arg))
(location (racer-complete--location arg))
(meta (racer-complete--docsig arg))
(doc-buffer (racer--describe arg))))
;;;###autoload ;;;###autoload
(define-minor-mode racer-mode (define-minor-mode racer-mode
"Minor mode for racer." "Minor mode for racer."
:lighter " racer" :lighter " racer"
:keymap racer-mode-map :keymap racer-mode-map
(setq-local eldoc-documentation-function #'racer-eldoc) (setq-local eldoc-documentation-function #'racer-eldoc)
(if racer-use-company-backend
(add-to-list (make-local-variable 'company-backends)
'racer-company-backend)
(set (make-local-variable 'completion-at-point-functions) nil) (set (make-local-variable 'completion-at-point-functions) nil)
(add-hook 'completion-at-point-functions #'racer-complete-at-point)) (add-hook 'completion-at-point-functions #'racer-complete-at-point)))
(define-obsolete-function-alias 'racer-turn-on-eldoc 'eldoc-mode) (define-obsolete-function-alias 'racer-turn-on-eldoc 'eldoc-mode)
(define-obsolete-function-alias 'racer-activate 'racer-mode) (define-obsolete-function-alias 'racer-activate 'racer-mode)