sample: html wrapper for unicode text file

[sheet.git] / sample.plp

diff --git a/sample.plp b/sample.plp
new file mode 100644 (file)
index 0000000..7f8b636
--- /dev/null
+++ b/sample.plp
@@ -0,0 +1,20 @@
+<(common.inc.plp)><:
+
+Html({
+       title => "unicode sampler",
+       version => '2.0',
+       stylesheet => [qw'light dark mono red'],
+});
+
+open my $source, '<', 'data/unicode-sampler/unicode.txt'
+       or die "Could not open text: $!\n";
+
+my $title = readline $source;
+my $hr = readline $source;
+say "<h1>$title</h1>";
+
+say '<pre>';
+while (my $p = readline $source) {
+       print EscapeHTML($p);
+}
+say "</pre>\n";