Syntax::Highlight::Perl - but Im not sure its a good idea..
I think it is a very good idea, as long as it is a user setting and done using CSS. I know I would love and enable the feature as soon as I can.
Here is the code I use at http://tnx.nl/scribble.plp:
perl => sub {
require Syntax::Highlight::Perl;
my ($data) = @_;
my $hl = Syntax::Highlight::Perl->new;
$hl->define_substitution(
'<' => '<',
'>' => '>',
'&' => '&',
"\t" => ' &nb
+sp;',
' ' => ' ',
);
$hl->set_format( $_ => [ "<span class=$_>", "</span>" ] )
for qw/Comment Directive Label Quote String Subroutine
+ Variable
Keyword Builtin Operator Package Number CodeTer
+m Symbol
DATA/;
return '<link rel=stylesheet href="/perl.css"><pre>' .
$hl->format_string($data) . '</pre>';
},
I use this together with http://tnx.nl/perl.css. This code using this style sheet renders as http://tnx.nl/2240IXCX (link dies after 30 days).
|