[elpa] master 8df5a67 089/348: counsel.el (counsel-semantic): New command

[Oleh Krehel]

branch: master
commit 8df5a678b1bf43a59a35a27e8afd33cd887fac3a
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el (counsel-semantic): New command
    
    Fixes #490
---
 counsel.el | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/counsel.el b/counsel.el
index 38c1031..895edef 100644
--- a/counsel.el
+++ b/counsel.el
@@ -2112,6 +2112,27 @@ And insert it into the minibuffer. Useful during
     (ivy-read "head: " head-names
               :action #'call-interactively)
     (hydra-keyboard-quit)))
+;;** `counsel-semantic'
+(defun counsel-semantic-action (tag)
+  (with-ivy-window
+    (goto-char (semantic-tag-start tag))))
+
+(defun counsel-semantic ()
+  "Jump to a semantic tag in the current buffer."
+  (interactive)
+  (let ((tags
+         (mapcar
+          (lambda (tag)
+            (if (semantic-tag-of-class-p tag 'function)
+                (cons
+                 (propertize
+                  (car tag)
+                  'face 'font-lock-function-name-face)
+                 (cdr tag))
+              tag))
+          (semantic-fetch-tags)))))
+  (ivy-read "tag: " tags
+            :action 'counsel-semantic-action))
 
 ;;* Misc OS
 ;;** `counsel-rhythmbox'