X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/fd1ee6a2c0964cd16dd529b991d7bed9d0c776cb..c11640facf0c976140547ef1b58971ec8a661dd3:/source.plp
diff --git a/source.plp b/source.plp
index 5555439..7640ae0 100644
--- a/source.plp
+++ b/source.plp
@@ -1,11 +1,5 @@
-<:
-use utf8;
-use strict;
-use warnings;
-
-our $VERSION = 'v1.0';
-
-$header{content_type} = "text/html; charset=utf-8";
+<(common.inc.plp)><:
+ our $VERSION = 'v1.0';
:>
@@ -14,13 +8,7 @@ $header{content_type} = "text/html; charset=utf-8";
sheet page source code
-<:
- my %styles = map {$_ => $_} qw(dark mono red);
- our $style = exists $get{style} && $styles{$get{style}} || 'light';
- printf(qq{\n},
- $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css", $_
- ) for keys %styles;
-:>
+<:= stylesheet(qw'light dark mono red') :>
@@ -36,7 +24,7 @@ if (not $source) {
print ''."\n";
for (glob '*.plp') {
chomp;
- printf '- %1$s
'."\n", Entity($_);
+ printf '- %1$s
'."\n", EscapeHTML($_);
}
print "
\n\n";
}
@@ -74,8 +62,8 @@ else {
my $tag = $_->[0] && ($TYPETAG{ $_->[0] } || 'span');
my $arg = '';
print "<$tag$arg class=\"sy-\l$_->[0]\">" if $tag;
- if ($_->[0] eq 'Constant'
- and $_->[1] =~ s{^(['"])(/?[a-z0-9_.]+\.(?:plp?|css|js))(?=\1$)}{}) {
+ if (!$_->[0] || $_->[0] eq 'Constant'
+ and $_->[1] =~ s{^(['"]?)(/?[a-z0-9_.]+\.(?:plp?|css|js))(?=\1$)}{}) {
printf '%s%s', $1, "/source/$2", $2;
}
if (!$_->[0] and $_->[1] =~ s/^(\s*)([A-Z]\w+(?:::\w+)+)(?![^;\s])//) {
@@ -88,11 +76,13 @@ else {
}
:>