X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/98cfbf69d9806fe9cc9e352859da42f60a56a338..1d743a55b5335cd7aaa5f9a8f2c782e7a46564b7:/source.plp
diff --git a/source.plp b/source.plp
index f713a73..83a5833 100644
--- a/source.plp
+++ b/source.plp
@@ -1,22 +1,23 @@
<(common.inc.plp)><:
- our $VERSION = 'v1.0';
-
-:>
-
-
-
-
-sheet page source code
-<:= stylesheet(qw'light dark mono red') :>
-
-
-
-<:
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 the $source file at this site,",
+ "with syntax highlighted and references linked."
+ ],
+ keywords => [qw'
+ sheet cheat source code perl plp html agpl
+ '],
+ stylesheet => [qw'light dark mono red'],
+});
+
+print "\n";
+
if (not $source) {
print "Source files
";
@@ -77,16 +78,7 @@ else {
else {
print "\n", EscapeHTML(ReadFile($source)), "
\n";
}
+
+ print "\n";
}
-:>
-
-