NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
use Perl Log In
TorgoX (1933)
TorgoX
sburkeNO@SPAMcpan.org
http://search.cpan.org/~sburke/
"Il est beau comme la retractilité des serres des oiseaux rapaces [...] et surtout, comme la rencontre fortuite sur une table de dissection d'une machine à coudre et d'un parapluie !" -- Lautréamont
sburkeNO@SPAMcpan.org
http://search.cpan.org/~sburke/
"Il est beau comme la retractilité des serres des oiseaux rapaces [...] et surtout, comme la rencontre fortuite sur une table de dissection d'une machine à coudre et d'un parapluie !" -- Lautréamont
Wednesday May 11, 2005
02:10 AM
shell-command-to-new-scratch
Dear Log,
I don't like how emacs's shell-command keeps overwriting whatever is in the "*Shell Command Output*" buffer. So I wrote this function that writes to an always-new scratch buffer:
(setq shell-buffer-counter 1000)
(defun shell-command-to-new-scratch (command)
(interactive (list (read-from-minibuffer
"Shell command: "
nil nil nil 'shell-command-history)))
(setq shell-buffer-counter (+ 1 shell-buffer-counter ))
(shell-command command
(concat "*scratch "
(int-to-string shell-buffer-counter)
"% "
command
)))
And I bound it to a happy place;
(global-set-key "\M-!" 'shell-command-to-new-scratch)
I pour myself a cup of strong coffee. :-)
-- Jarkko Hietaniemi
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
shell-command-to-new-scratch 0 Comments More | Login | Reply /