X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/55c75a0c53862083d5d3c52b6ef6e6efa2864c7e..715e7189d728b0b16880c31d14f9f7b2819c227b:/source.plp diff --git a/source.plp b/source.plp index aad6898..1f3c600 100644 --- a/source.plp +++ b/source.plp @@ -14,18 +14,13 @@ $header{content_type} = "text/html; charset=utf-8";
\n"; foreach (@$parsed) { my $tag = $_->[0] && ($TYPETAG{ $_->[0] } || 'span'); my $arg = ''; - print "<$tag$arg class=\"syn$_->[0]\">" if $tag; + print "<$tag$arg class=\"sy-\l$_->[0]\">" if $tag; if ($_->[0] eq 'Constant' and $_->[1] =~ s/^(')([a-z0-9_.]+\.plp?)(?=\1$)//) { printf '%s%s', $1, "/source/$2", $2; } - if (!$_->[0] and $_->[1] =~ s/^([A-Z]\w+(?:::\w+)+)(?![^;\s])//) { - printf '%s', "/source/$1", $1; + if (!$_->[0] and $_->[1] =~ s/^(\s*)([A-Z]\w+(?:::\w+)+)(?![^;\s])//) { + printf '%s%s', $1, "/source/$2", $2; } print Text::VimColor::_xml_escape($_->[1]); print "$tag>" if $tag;