ido-completing-read-plus/ido-ubiquitous.el

;;; ido-ubiquitous.el --- Use ido (nearly) everywhere.

;; Author: Ryan C. Thompson
;; URL: http://www.emacswiki.org/emacs/InteractivelyDoThings#toc13
;; Version: 0.2
;; Created: 2011-09-01
;; Keywords: convenience
;; EmacsWiki: InteractivelyDoThings

;; This file is NOT part of GNU Emacs.

;;; Commentary:

;;; License:

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Code:

(require 'ido)

;;;###autoload
(defcustom ido-ubiquitous-enabled t
  "If non-nil, use `ido-completing-read' instead of `completing-read' if possible.

  This variable has no effect unless `ido-everywhere' is also
  non-nil.

  Set it to nil using let in around-advice for functions where
  the original `completing-read' is required. For example, if a
  function `foo' absolutely cannot use ido, but must instead use
  the original `completing-read', define some advice like this:

  (defadvice foo (around original-completing-read-only activate)
    (let (ido-ubiquitous-enabled) ad-do-it))"
  :group 'ido
  :type 'boolean)

;;;###autoload
(defadvice completing-read (around ido-ubiquitous activate)
  (if (or (not ido-mode)
          (not ido-everywhere)
          (not ido-ubiquitous-enabled)
          (boundp 'ido-cur-item)) ; Avoid infinite loop from ido calling completing-read
      ad-do-it
    (let ((allcomp (all-completions "" collection predicate)))
      (if allcomp
          (setq ad-return-value
                (ido-completing-read prompt
                                     allcomp
                                     nil require-match initial-input hist def))
        ad-do-it))))

(provide 'ido-ubiquitous) ;;; ido-ubiquitous.el ends here