;;; company-gtags.el --- company-mode completion back-end for GNU Global
-;; Copyright (C) 2009-2011 Free Software Foundation, Inc.
+;; Copyright (C) 2009-2011, 2014 Free Software Foundation, Inc.
;; Author: Nikolaj Schumacher
'company-gtags-gnu-global-program-name
'company-gtags-executable "earlier")
-(defvar company-gtags--tags-available-p 'unknown)
-(make-variable-buffer-local 'company-gtags--tags-available-p)
+(defcustom company-gtags-insert-arguments t
+ "When non-nil, insert function arguments as a template after completion."
+ :type 'boolean
+ :package-version '(company . "0.8.1"))
-(defvar company-gtags-modes '(c-mode c++-mode jde-mode java-mode php-mode))
+(defvar-local company-gtags--tags-available-p 'unknown)
+
+(defcustom company-gtags-modes '(prog-mode jde-mode)
+ "Modes that use `company-gtags'.
+In all these modes (and their derivatives) `company-gtags' will perform
+completion."
+ :type '(repeat (symbol :tag "Major mode"))
+ :package-version '(company . "0.8.4"))
(defun company-gtags--tags-available-p ()
(if (eq company-gtags--tags-available-p 'unknown)
(locate-dominating-file buffer-file-name "GTAGS"))
company-gtags--tags-available-p))
-(defun company-gtags-fetch-tags (prefix)
+(defun company-gtags--fetch-tags (prefix)
(with-temp-buffer
(let (tags)
(when (= 0 (call-process company-gtags-executable nil
"\\([^ ]*\\)" ;; completion
"[ \t]+\\([[:digit:]]+\\)" ;; linum
"[ \t]+\\([^ \t]+\\)" ;; file
- "[ \t]+\\(.*\\)" ;; definition
+ "[ \t]+\\(.*\\)" ;; definition
"$"
) nil t)
collect
(string-to-number (match-string 2)))
))))))
+(defun company-gtags--annotation (arg)
+ (let ((meta (get-text-property 0 'meta arg)))
+ (when (string-match (concat arg "\\((.*)\\).*") meta)
+ (match-string 1 meta))))
+
;;;###autoload
(defun company-gtags (command &optional arg &rest ignored)
"`company-mode' completion back-end for GNU Global."
(cl-case command
(interactive (company-begin-backend 'company-gtags))
(prefix (and company-gtags-executable
- (memq major-mode company-gtags-modes)
+ buffer-file-name
+ (apply #'derived-mode-p company-gtags-modes)
(not (company-in-string-or-comment))
(company-gtags--tags-available-p)
(or (company-grab-symbol) 'stop)))
- (candidates (company-gtags-fetch-tags arg))
+ (candidates (company-gtags--fetch-tags arg))
(sorted t)
(duplicates t)
- (annotation (let (annotation)
- (when (string-match (concat arg "\\((.*)\\).*") (get-text-property 0 'meta arg))
- (match-string 1 (get-text-property 0 'meta arg)))))
+ (annotation (company-gtags--annotation arg))
(meta (get-text-property 0 'meta arg))
- (location (get-text-property 0 'location arg))))
+ (location (get-text-property 0 'location arg))
+ (post-completion (let ((anno (company-gtags--annotation arg)))
+ (when (and company-gtags-insert-arguments anno)
+ (insert anno)
+ (company-template-c-like-templatify anno))))))
(provide 'company-gtags)
;;; company-gtags.el ends here