Re: grep options

[Kevin Rodgers]

On 1/24/11 11:28 AM, Ken Goldman wrote:
> On 01/23/2011 10:58 PM, Stefan Monnier wrote:
> > > That sounds like an awful ui. Do you mind submitting a bug report by M-x
> > > report-emacs-bug so that it may be fixed upstream? thanks.
> >
> > I don't like that UI either, but I can't understand what you consider as
> > a bug: that UI is lgrep's raison d'être.
> > If you don't like it, you can use (C-u?) M-x grep.
>
> grep seems even worse than lgrep. At least lgrep fills in the word under the
> point as the search string.
>
> I'm looking for an equivalent to the old igrep - default to the word under the
> point, the files with the same mode, and the current directory --- with no
> prompting.

Hi Ken,

Good to hear from you again!

Perhaps you can do something like this:

(require 'igrep)

(defadvice lgrep (before interactive-igrep first activate)
  "Read REGEXP, FILES, and DIR using `igrep-read-args'."
  (interactive
   (progn
     (grep-compute-defaults)
     (let ((igrep-args (igrep-read-args)))
       ;; convert (PROGRAM REGEX FILES OPTIONS) to (REGEXP FILES DIR CONFIRM):
       (list (nth 1 igrep-args)
             (mapconcat 'file-name-nondirectory (nth 2 igrep-args) " ")
             (mapconcat 'file-name-directory (nth 2 igrep-args) " ")
             nil)))))

--
Kevin Rodgers
Denver, Colorado, USA