How can I bind a shell command to a key?

How can I bind a shell command to a key?

[LUK]

Hi, I want to bind a shell command "find . -type f -name "*" -print |
etags -" 
to"F1",
what should I write in ".emacs"?
Thanks!

Re: How can I bind a shell command to a key?

[Mathias Dahl]

"LUK" <700MHz@gmail.com> writes:

> Hi, I want to bind a shell command "find . -type f -name "*" -print |
> etags -" 
> to"F1",
> what should I write in ".emacs"?

You could record a keyboard macro, give that a name and insert it into
your .emacs file or you could write a simple elisp function; then you
could bind F1 to one of those.

Keyboard macro approach:

C-x (
M-!
type shell command here
C-x )

Now the macro is defined. Give it a name:

M-x name-last-kbd-macro RET my-macro-name RET

Insert it into your .emacs:

M-x insert-kbd-macro RET my-macro-name RET

Bind F1 to the macro:

(global-set-key [F1] 'my-macro-name)

Function approach:

(defun my-shell-command ()
  (interactive)
  (shell-command "type shell command here"))

And then:

(global-set-key [F1] 'my-shell-command)

Remember that in the function approach you have to quote the quotation
marks with \. This:

"*" should be written \"*\" inside the string.

Good luck!

Re: How can I bind a shell command to a key?

[Burton Samograd]

"LUK" <700MHz@gmail.com> writes:

> Hi, I want to bind a shell command "find . -type f -name "*" -print |
> etags -" 
> to"F1",
> what should I write in ".emacs"?

(global-set-key [f1]
  '(lambda () 
      (interactive) 
      (shell-command "find . -type f -name "*" -print | etags -")))
      
> Thanks!

np.

-- 
burton samograd					kruhft .at. gmail
kruhft.blogspot.com	www.myspace.com/kruhft	metashell.blogspot.com

Re: How can I bind a shell command to a key?

[Ye Wenbin]

I think abbrev is better way to do this:
(define-abbrev-table 'shell-mode-abbrev-table '(
     ("findx" "find . -type f -name \"*\" -print |etags -" nil 0)
     ))

On 21 May 2006 19:51:51 -0700, LUK <700MHz@gmail.com> wrote:

>
> Hi, I want to bind a shell command "find . -type f -name "*" -print |
> etags -"
> to"F1",
> what should I write in ".emacs"?
> Thanks!
>
> _______________________________________________
> help-gnu-emacs mailing list
> help-gnu-emacs@gnu.org
> http://lists.gnu.org/mailman/listinfo/help-gnu-emacs
>



-- 
Using Opera's revolutionary e-mail client: http://www.opera.com/m2/

Re: How can I bind a shell command to a key?

[LUK]

Thank you very much!