[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 8d61f1b 35/66: company-semantic: add simple annotations
From: |
Dmitry Gutov |
Subject: |
[elpa] master 8d61f1b 35/66: company-semantic: add simple annotations |
Date: |
Tue, 13 Jan 2015 02:44:56 +0000 |
branch: master
commit 8d61f1b734eb746af35553dac9d62884315d0b3a
Author: aerique <address@hidden>
Commit: aerique <address@hidden>
company-semantic: add simple annotations
---
company-semantic.el | 10 ++++++++++
1 files changed, 10 insertions(+), 0 deletions(-)
diff --git a/company-semantic.el b/company-semantic.el
index 6c020a3..a1c7d16 100644
--- a/company-semantic.el
+++ b/company-semantic.el
@@ -99,6 +99,14 @@
(push tag company-semantic--current-tags)))
(delete "" (mapcar 'semantic-tag-name company-semantic--current-tags)))
+(defun company-semantic-annotation (argument tags)
+ (let* ((tag (assoc argument tags))
+ (kind (when tag (elt tag 1))))
+ (cl-case kind
+ (function (let* ((prototype (semantic-format-tag-prototype tag nil nil))
+ (par-pos (string-match "(" prototype)))
+ (when par-pos (substring prototype par-pos)))))))
+
(defun company-semantic--pre-prefix-length (prefix-length)
"Sum up the length of all chained symbols before POS.
Symbols are chained by \".\" or \"->\"."
@@ -133,6 +141,8 @@ Symbols are chained by \".\" or \"->\"."
(company-semantic-completions arg)))
(meta (funcall company-semantic-metadata-function
(assoc arg company-semantic--current-tags)))
+ (annotation (company-semantic-annotation arg
+ company-semantic--current-tags))
(doc-buffer (company-semantic-doc-buffer
(assoc arg company-semantic--current-tags)))
;; Because "" is an empty context and doesn't return local variables.
- [elpa] master 7d3c5d4 23/66: company-backends: Clarify that responding to `match' is never mandatory, (continued)
- [elpa] master 7d3c5d4 23/66: company-backends: Clarify that responding to `match' is never mandatory, Dmitry Gutov, 2015/01/12
- [elpa] master bb0badd 25/66: Edit NEWS, Dmitry Gutov, 2015/01/12
- [elpa] master 67e74ce 26/66: company-backends: Add "to this command", Dmitry Gutov, 2015/01/12
- [elpa] master 0cdcd07 27/66: company-capf: Pass `sole' or 'finished' to exit-function, not `exact', Dmitry Gutov, 2015/01/12
- [elpa] master cecf6a9 29/66: company--window-width: Make it a defun, Dmitry Gutov, 2015/01/12
- [elpa] master 8196ff6 30/66: Work around http://debbugs.gnu.org/18384, Dmitry Gutov, 2015/01/12
- [elpa] master 62d1f37 28/66: company-clang--start-process: Bind process-adaptive-read-buffering to nil, Dmitry Gutov, 2015/01/12
- [elpa] master 3b622c4 31/66: Define customize group for company-bbdb, Dmitry Gutov, 2015/01/12
- [elpa] master e7073a1 33/66: s/`bbdb'/BBDB, Dmitry Gutov, 2015/01/12
- [elpa] master 996fbd2 24/66: Add company-bbdb-modes defcustom, Dmitry Gutov, 2015/01/12
- [elpa] master 8d61f1b 35/66: company-semantic: add simple annotations,
Dmitry Gutov <=
- [elpa] master ed97b73 34/66: company--insert-candidate: Don't change buffer modification status unnecessarily, Dmitry Gutov, 2015/01/12
- [elpa] master 6d023fd 36/66: Add NEWS entry, Dmitry Gutov, 2015/01/12
- [elpa] master 8d4ba7a 38/66: company-preview-show-at-point: Handle the pseudo-tooltip-overlay, Dmitry Gutov, 2015/01/12
- [elpa] master bd5e453 39/66: #267 follow-up fixes, Dmitry Gutov, 2015/01/12
- [elpa] master 7ac956a 37/66: Fix typo, Dmitry Gutov, 2015/01/12
- [elpa] master ccecb37 32/66: Merge pull request #252 from markus1189/bbdb-customize-group, Dmitry Gutov, 2015/01/12
- [elpa] master 6ff5ed3 40/66: Clear out unused variable warnings, Dmitry Gutov, 2015/01/12
- [elpa] master 8b587c0 43/66: Add .elpaignore, Dmitry Gutov, 2015/01/12
- [elpa] master eef07a5 44/66: Support template functions in company-clang annotations, Dmitry Gutov, 2015/01/12
- [elpa] master 80620a1 45/66: Remove ineffective change from c6e9fbad312fc62876d40032a84a94439a055d05, Dmitry Gutov, 2015/01/12