Replace custom ido vertical init code with a proper package

appearance.el

@@ -50,20 +50,8 @@
   (setq *grizzl-read-max-results* 20))
 
 ;; Display ido results vertically, rather than horizontally.
-(when (require 'ido nil 'noerror)
-  (setq ido-decorations
-        (quote ("\n-> " "" "\n   " "\n   ..." "[" "]" " [No match]"
-                " [Matched]" " [Not readable]" " [Too big]" " [Confirm]")))
-
-  (defun ido-disable-line-truncation ()
-    (set (make-local-variable 'truncate-lines) nil))
-
-  (defun ido-define-keys () ;; C-n/p is more intuitive in vertical layout
-    (define-key ido-completion-map (kbd "C-n") 'ido-next-match)
-    (define-key ido-completion-map (kbd "C-p") 'ido-prev-match))
-
-  (add-hook 'ido-minibuffer-setup-hook 'ido-disable-line-truncation)
-  (add-hook 'ido-setup-hook 'ido-define-keys))
+(when (require 'ido-vertical-mode nil 'noerror)
+  (ido-vertical-mode 1))
 
 ;; meaningful names for buffers with the same name
 (require 'uniquify)

packages.el

@@ -53,6 +53,7 @@
     grizzl
     haml-mode
     highlight-indentation
+    ido-vertical-mode
     inf-ruby
     jade-mode
     less-css-mode