1 ;;; company-elisp.el --- a company-mode completion back-end for emacs-lisp-mode
3 ;; Copyright (C) 2009 Nikolaj Schumacher
5 ;; This file is part of company.
7 ;; This program is free software; you can redistribute it and/or
8 ;; modify it under the terms of the GNU General Public License
9 ;; as published by the Free Software Foundation; either version 2
10 ;; of the License, or (at your option) any later version.
12 ;; This program is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;; GNU General Public License for more details.
17 ;; You should have received a copy of the GNU General Public License
18 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
21 (eval-when-compile (require 'cl))
23 (defvar company-lisp-symbol-regexp
24 "\\_<\\(\\sw\\|\\s_\\)+\\_>\\=")
26 (defun company-grab-lisp-symbol ()
27 (let ((prefix (or (company-grab company-lisp-symbol-regexp) "")))
28 (unless (and (company-in-string-or-comment (- (point) (length prefix)))
29 (/= (char-before (- (point) (length prefix))) ?`))
32 (defun company-elisp-predicate (symbol)
36 (defvar company-elisp-parse-limit 30)
37 (defvar company-elisp-parse-depth 100)
39 (defvar company-elisp-binding-regexp
40 (concat "([ \t\n]*\\_<" (regexp-opt '("let" "defun" "defmacro" "defsubst"
41 "lambda" "lexical-let"))
44 (defun company-elisp-parse-local (prefix vars)
45 (let ((regexp (concat "[ \t\n]*\\(" (regexp-quote prefix)
46 "\\(?:\\sw\\|\\s_\\)*\\_>\\)")))
49 (dotimes (i company-elisp-parse-depth)
52 (when (looking-at company-elisp-binding-regexp)
55 (dotimes (i company-elisp-parse-limit)
57 (when (looking-at "[ \t\n]*(")
59 (if (looking-at regexp)
60 (add-to-list 'vars (match-string-no-properties 1))
65 (defun company-elisp-candidates (prefix)
66 (let* ((completion-ignore-case nil)
67 (candidates (all-completions prefix obarray 'company-elisp-predicate)))
68 (company-elisp-parse-local prefix candidates)))
70 (defun company-elisp-doc (symbol)
71 (let* ((symbol (intern symbol))
72 (doc (if (fboundp symbol)
73 (documentation symbol t)
74 (documentation-property symbol 'variable-documentation t))))
76 (string-match ".*$" doc)
77 (match-string 0 doc))))
79 (defun company-elisp (command &optional arg &rest ignored)
80 "A `company-mode' completion back-end for `emacs-lisp-mode'."
82 ('prefix (and (eq (derived-mode-p 'emacs-lisp-mode) 'emacs-lisp-mode)
83 (company-grab-lisp-symbol)))
84 ('candidates (company-elisp-candidates arg))
85 ('meta (company-elisp-doc arg))
86 ('doc-buffer (let ((symbol (intern arg)))
87 (save-window-excursion
88 (when (or (ignore-errors (describe-function symbol))
89 (ignore-errors (describe-variable symbol)))
92 (provide 'company-elisp)
93 ;;; company-elisp.el ends here