From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 25 Oct 2012 09:24:29 +0000 (+0100)
Subject: dot/emacs: Some imenu tweaking.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/56becc91d2ddf9e00600dc55fd129b92147eace1?ds=sidebyside

dot/emacs: Some imenu tweaking.

It seems I might like imenu.  Make the menu appear on a mouse binding,
and make the function submenus larger.

Ideally, I'd make the submenu sizes be related to the screen size.  But
I don't know how to do that well.
---

diff --git a/dot/emacs b/dot/emacs
index d06795d..fe2f7be 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -269,6 +269,10 @@
      (define-key outline-mode-prefix-map [?\C-r] 'reveal-mode)
      (define-key outline-mode-prefix-map [?\C--] 'mdw-outline-collapse-all)))
 
+(setq imenu-auto-rescan t
+      imenu-auto-rescan-maxout (* 128 1024)
+      imenu-max-items 60)
+
 (setq cltl2-root-url (mdw-config 'cltl-url))
 (setq common-lisp-hyperspec-root (mdw-config 'hyperspec-url))
 
@@ -465,6 +469,7 @@
 		  'mouse-drag-vertical-line)
   (global-set-key [vertical-scroll-bar C-mouse-1]
 		  #'(lambda () (interactive)))
+  (global-set-key [M-S-mouse-3] 'imenu)
   (global-set-key [XF86WakeUp] "")
   (and (not mdw-fast-startup) (fboundp 'hippie-expand)
        (global-set-key [?\M-/] 'hippie-expand)))