macro to invoke shell command

macro to invoke shell command

[Peter Lee]

I'm having trouble writing a macro to perform a grep-find
command. Basically I just want to grep the current word in the
buffer. I would like to be use grep-find for this.

This doesnt work.

(defun grep-cur-word (&optional arg)
  "grep-find on the current word"
  (interactive "p")
  (grep-find (current-word)))

The defaults for my grep-find are:
find . -iregex ".*\.cpp\|.*\.c\|.*\.h\|.*\.idl\|.*\.rc\|.*\.tl[ih]"
-print0 | xargs -0 -e grep -n -i -e 

So normally I would M-x grep-find <ret>
and it would display:
find . -iregex ".*\.cpp\|.*\.c\|.*\.h\|.*\.idl\|.*\.rc\|.*\.tl[ih]"
-print0 | xargs -0 -e grep -n -i -e 

Then I just fill in the word at the end enclosed in quotes:
find . -iregex ".*\.cpp\|.*\.c\|.*\.h\|.*\.idl\|.*\.rc\|.*\.tl[ih]"
-print0 | xargs -0 -e grep -n -i -e "m_dwTicks"

My lisp is very weak and would appreciate any help. I just want to be
able to put cursor on word and hit a key to make the above happen.

Any ideas?

Thanks.

Re: macro help

[Jesper Harder]

Peter Lee <spam@nospam.org> writes:

> I'm having trouble writing a macro to perform a grep-find
> command. Basically I just want to grep the current word in the
> buffer. I would like to be able to use grep-find for this.
>
> This doesn't work.
>
> (defun grep-cur-word (&optional arg)
>   "grep-find on the current word"
>   (interactive "p")
>   (grep-find (current-word)))

> I just want to pass the current-word to grep-find so I can then bind
> it to a key. It would save me a lot of typing.

Try something like this:

(defun grep-cur-word ()
  "grep-find on the current word"
  (interactive)
  (unless grep-find-command
       (grep-compute-defaults))
  (grep (concat grep-find-command "\"" (current-word) "\"")))

PS: You posted the same question separately to comp.emacs and
gnu.emacs.help.  Please don't multi-post -- cross-post instead.  

If you want to post to both groups then include both of them in the
Newsgroups header instead of sending identical copies.

Re: macro to invoke shell command

[martin]

hi,

"PL" == Peter Lee <spam@nospam.org> writes:
 PL> Date: Fri, 10 Jan 2003 17:55:11 GMT
8<--------------------------------------------------------------------

 PL> (defun grep-cur-word (&optional arg)
 PL>   "grep-find on the current word"
 PL>   (interactive "p")
 PL>   (grep-find (current-word)))

8<--------------------------------------------------------------------

use (grep-find (concat "<your find | grep string>" (current-word)))

martin
-- 
martin dot fischer at boschrexroth dot de