Permalink
Browse files

Preliminary code for wrapping ido

Written by Jan Rehders
  • Loading branch information...
1 parent 776c8bd commit 8959b244db5cf8b9f9a0121bc4e1eea48d1e6033 @sjbach committed Feb 2, 2009
Showing with 21 additions and 0 deletions.
  1. +21 −0 lusty-ido.el
View
@@ -0,0 +1,21 @@
+(defun shk-init-lusty-display ()
+(lusty-setup-completion-window)
+(let ((lusty--active-mode :buffer-explorer))
+ (lusty-update-completion-buffer)))
+
+(defun shk-lusty-on-make-buffer-list ()
+(when (minibufferp)
+ (let ((lusty--active-mode :buffer-explorer))
+ (lusty-update-completion-buffer))))
+
+(defadvice ido-exhibit (after shk-lusty-ido-post-command-hook)
+(when (minibufferp)
+ (let ((lusty--active-mode :buffer-explorer))
+ (lusty-update-completion-buffer))))
+(ad-deactivate 'ido-exhibit)
+
+(add-hook 'ido-minibuffer-setup-hook 'shk-init-lusty-display)
+(add-hook 'ido-make-buffer-list-hook 'shk-lusty-on-make-buffer-list)
+
+(remove-hook 'ido-minibuffer-setup-hook 'shk-init-lusty-display)
+(remove-hook 'ido-make-buffer-list-hook 'shk-lusty-on-make-buffer-list)

0 comments on commit 8959b24

Please sign in to comment.