;; Keep annoying buffers out of my face
(defun ido-stupid-buffers-to-end ()
  (let ((stoo-pid (delq nil (mapcar
                             (lambda (x)
                               (if (and (not (equal x (buffer-name (current-buffer))))
                                        (string-match
                                         (rx (or "*Completions*"
                                                 "*Shell Command Output*"
                                                 "*vc-diff*")) x))
                                   x))
                             ido-temp-list))))
    (ido-to-end stoo-pid)))