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 d06795de2fbf5c7af6f139c50040e9cb1ffebb0f..fe2f7be91cacb78d6ad0685155f7e98efc482688 100644 (file)
--- 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)))