X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0d5846dfec3999dcb317d7d0f4f0c4eaf95ca794..f22a9debc2c3c50828c31ff028057734a4aadea6:/source.plp
diff --git a/source.plp b/source.plp
index de3ad54..cdd40a1 100644
--- a/source.plp
+++ b/source.plp
@@ -1,28 +1,22 @@
<(common.inc.plp)><:
- our $VERSION = 'v1.0';
- my $source = $ENV{PATH_INFO};
- $source =~ s{^/}{};
+my $source = $ENV{PATH_INFO};
+$source =~ s{^/}{};
-:>
-
+Html({
+ title => "$source source code",
+ version => 'v1.0',
+ description => !$source ? 'Index of source files for this site.' : [
+ "Source code of local $source file,",
+ "with syntax highlighted and references linked."
+ ],
+ keywords => [qw'
+ sheet cheat source code perl plp html agpl
+ '],
+ stylesheet => [qw'light dark mono red'],
+});
-
-
-<:= $source :> source code
-">
-
-<:= stylesheet(qw'light dark mono red') :>
-
-
-
-
-<:
+print "\n";
if (not $source) {
print "Source files
";
@@ -84,16 +78,7 @@ else {
else {
print "\n", EscapeHTML(ReadFile($source)), "
\n";
}
+
+ print "\n";
}
-:>
-
-