X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/dc6b482b5e7e1d3d35b5193fc820c5e1afc29a6e..87cefe5b2565b86fdfb3404b4ed9c180282f0272:/sample.plp

diff --git a/sample.plp b/sample.plp
new file mode 100644
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";