#!/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;