Sorry, no cool snippets. I basically use it for s/// loops when
I'mforced to edit text outside of Emacs (e.g. editing this reply).
WhenI installed it, I honestly expected to use it more than I have.
Update: Actually, I have found a use for it. This little
nasty in ~/Library/PerlPad/startup.pl lets me use Emacs to edit PM
posts:
#!/usr/bin/env perl
use File::Temp 'tempfile';
register_function 'emacsify',
q{
my ($fh, $f) = tempfile;
print $fh $_;
close $fh;
open OSA, "|osascript " or die $!;
my $osa = <<EOS;
-- set theapp to path to frontmost application as string
tell application "Emacs" to activate
do shell script "emacsclient '$f'"
-- tell application theapp to activate
EOS
print OSA $osa;
close OSA or die $!;
open IN, "$f";
unlink $f;
undef $/;
$_ = <IN>;
close IN;
s/^(.{70,80})\n/$1/gm;
$_;
};
1;
|