Created
April 11, 2012 17:05
-
-
Save magnars/2360578 to your computer and use it in GitHub Desktop.
ido-imenu as used in Emacs Rocks #10
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun ido-imenu () | |
"Update the imenu index and then use ido to select a symbol to navigate to. | |
Symbols matching the text at point are put first in the completion list." | |
(interactive) | |
(imenu--make-index-alist) | |
(let ((name-and-pos '()) | |
(symbol-names '())) | |
(flet ((addsymbols (symbol-list) | |
(when (listp symbol-list) | |
(dolist (symbol symbol-list) | |
(let ((name nil) (position nil)) | |
(cond | |
((and (listp symbol) (imenu--subalist-p symbol)) | |
(addsymbols symbol)) | |
((listp symbol) | |
(setq name (car symbol)) | |
(setq position (cdr symbol))) | |
((stringp symbol) | |
(setq name symbol) | |
(setq position (get-text-property 1 'org-imenu-marker symbol)))) | |
(unless (or (null position) (null name)) | |
(add-to-list 'symbol-names name) | |
(add-to-list 'name-and-pos (cons name position)))))))) | |
(addsymbols imenu--index-alist)) | |
;; If there are matching symbols at point, put them at the beginning of `symbol-names'. | |
(let ((symbol-at-point (thing-at-point 'symbol))) | |
(when symbol-at-point | |
(let* ((regexp (concat (regexp-quote symbol-at-point) "$")) | |
(matching-symbols (delq nil (mapcar (lambda (symbol) | |
(if (string-match regexp symbol) symbol)) | |
symbol-names)))) | |
(when matching-symbols | |
(sort matching-symbols (lambda (a b) (> (length a) (length b)))) | |
(mapc (lambda (symbol) (setq symbol-names (cons symbol (delete symbol symbol-names)))) | |
matching-symbols))))) | |
(let* ((selected-symbol (ido-completing-read "Symbol? " symbol-names)) | |
(position (cdr (assoc selected-symbol name-and-pos)))) | |
(goto-char position)))) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Yep, I'm getting the same issue as terranpro. Traceback:
This occurs when I jump to symbols that have been imported rather than defined in the current file.