# HG changeset patch
# User Augie Fackler <durin42@gmail.com>
# Date 1241117302 18000
# Node ID 8aa70b521063e13ea014fe230151b54782c2e21f
# Parent  5f7b673008b5f49af0600e61a1d7dfd2023638fe
Jump-to-function trick with IDO.

diff --git a/.elisp/settings/50.localfuncs.el b/.elisp/settings/50.localfuncs.el
--- a/.elisp/settings/50.localfuncs.el
+++ b/.elisp/settings/50.localfuncs.el
@@ -8,6 +8,49 @@
                      (lambda (mode) "*pyflakes*")))
 
 
+(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))))
+
+
 (defun fullscreen ()
   (interactive)
   (set-frame-parameter nil 'fullscreen
diff --git a/.emacs b/.emacs
--- a/.emacs
+++ b/.emacs
@@ -2,6 +2,7 @@
 ; Places I've stolen from:
 ;  Karl Fogel: http://svn.red-bean.com/repos/kfogel/trunk
 ;  Dave Anderson:
+;  Emacs Starter Kit: http://github.com/technomancy/emacs-starter-kit
 
 (add-to-list 'load-path (expand-file-name "~/.elisp"))