My version of glucas's functions

ace-ido.el

(require 'ace-window)

(defun ace-ido-find-file ()
  "Ace ido-find-file."
  (interactive)
  (if (not (window-parent))
      (ido-find-file-other-window)
    (let ((start-window (selected-window)))  
      (unwind-protect
          (progn
            (let ((win (aw-select " Ace - Find File")))
              (if (not (eq (window-frame start-window) (window-frame win)))
                  ;; then
                  (select-frame-set-input-focus (window-frame win)))
              (select-window win)
              (ido-find-file)))
        (select-frame-set-input-focus (window-frame start-window))
        (aw-switch-to-window start-window)))))


(defun ace-ido-switch-buffer ()
  "Ace ido-switch-buffer."
  (interactive)
  (if (not (window-parent))
      (ido-switch-buffer-other-window)
    (let ((start-window (selected-window)))  
      (unwind-protect
          (progn
            (let ((win (aw-select " Ace - Switch Buffer")))
              (if (not (eq (window-frame start-window) (window-frame win)))
                  ;; then
                  (select-frame-set-input-focus (window-frame win)))
              (select-window win)
              (ido-switch-buffer)))
        (select-frame-set-input-focus (window-frame start-window))
        (aw-switch-to-window start-window)))))

(provide 'ace-ido)