<(common.inc.plp)><: my $textinc = 'data/unicode-sampler/unicode.txt'; my $proto = sprintf('http%s://', !!$ENV{HTTPS} && 's'); my $preview = "$proto$ENV{HTTP_HOST}/sample.png"; Html({ title => "unicode sampler", version => '2.1', stylesheet => [qw'light dark mono red'], data => [$textinc], raw => qq(), }); open my $source, '<', $textinc or Abort("Could not open text at $textinc", 501, $!); local $/ = "\n\n"; my $top = readline $source; my ($title, $hr, $intro) = split /\n(\pP)\1+\n/, $top, 2; say "

$title

"; printf '

HTML display of plain text', $textinc; say ' intended for monospaced (terminal) output.

'; say '

';
print $intro;

while (my $p = readline $source) {
	EscapeHTML($p);
	$p =~ s{ \A ((\pL+) \N*:) \n }{$1}x;
	if ($2 eq 'Unicode') {
		# table without proper direction control
		$p =~ s/^(?= )/\x{202d}/gm; # ltr override every line
	}
	$p =~ s{(?<=^  )([\p{Latin} ]+:)}{$1}gm;
	print $p;
}

say "

\n";