From andy@hexten.net Mon Dec 22 15:32:58 2008
From: Andy Armstrong <andy@hexten.net>
To: textmate@lists.macromates.com
Subject: [TxMt] Re: Xmas Wish
Date: Mon, 22 Dec 2008 15:32:55 +0000
Message-ID: <F18B6C5C-2309-4677-845D-5723EF171173@hexten.net>
In-Reply-To: <494FB1F6.1010503@arbor.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============4770014144248702671=="

--===============4770014144248702671==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: 7bit

On 22 Dec 2008, at 15:27, Steve King wrote:
> while (<$fh>) {
>    chomp();
>    if (/^(.*?):(\d+):(\d+):\s*(error|warning):\s*(.*)$/) {
>        my $file = $1;
>        my $line = $2;
>        my $col  = $3;
>        my $type = $4;
>        my $msg  = $5;
>        $msg = encode_entities($msg);
>        my $color = ($type eq 'error') ? "red" : "yellow";
>        my $url = sprintf 'txmt://open/?url=file://%s&line=%d&column= 
> %d', $path, $line, $col;
>        $str = "<span style=\"background-color:$color\"><a href=\"$url 
> \">$file:$line:$col:</a> $type: $msg</span>";
>    }
>    else {
>        $str = encode_entities($_);
>    }
>    print $str . "<br>\n";
> }


Shameless plug:

http://search.cpan.org/dist/TextMate-JumpTo/

:)

-- 
Andy Armstrong, Hexten




--===============4770014144248702671==--