X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/5ee97692d42eea5defce6d1ea12dc84e9578f608..ec713cf8533f025c8bb53e12b0a31c6826da6023:/sample.plp diff --git a/sample.plp b/sample.plp index 15323a3..6de2b98 100644 --- a/sample.plp +++ b/sample.plp @@ -1,13 +1,16 @@ <(common.inc.plp)><: +my $textinc = 'data/unicode-sampler/unicode.txt'; + Html({ title => "unicode sampler", version => '2.0', stylesheet => [qw'light dark mono red'], + data => $textinc, }); -open my $source, '<', 'data/unicode-sampler/unicode.txt' - or die "Could not open text: $!\n"; +open my $source, '<', $textinc + or die "Could not open text at $textinc: $!\n"; local $/ = "\n\n"; my $top = readline $source;