git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sample: enforce ltr direction in character table
[sheet.git]
/
sample.plp
diff --git
a/sample.plp
b/sample.plp
index adae7bd4c8b6bf505607b33ceefa449297aae3eb..79df0335bd95306f384183de836a347fd8aecc73 100644
(file)
--- a/
sample.plp
+++ b/
sample.plp
@@
-6,7
+6,7
@@
my $preview = "$proto$ENV{HTTP_HOST}/sample.png";
Html({
title => "unicode sampler",
Html({
title => "unicode sampler",
- version => '2.
0
',
+ version => '2.
1
',
stylesheet => [qw'light dark mono red'],
data => [$textinc],
raw => qq(<meta property="og:image" content="$preview" />),
stylesheet => [qw'light dark mono red'],
data => [$textinc],
raw => qq(<meta property="og:image" content="$preview" />),
@@
-28,6
+28,10
@@
print $intro;
while (my $p = readline $source) {
EscapeHTML($p);
$p =~ s{ \A ((\pL+) \N*:) \n }{<h2 id="\L$2\E">$1</h2>}x;
while (my $p = readline $source) {
EscapeHTML($p);
$p =~ s{ \A ((\pL+) \N*:) \n }{<h2 id="\L$2\E">$1</h2>}x;
+ if ($2 eq 'Unicode') {
+ # table without proper direction control
+ $p =~ s/^(?= )/\x{202d}/gm; # ltr override every line
+ }
$p =~ s{(?<=^ )([\p{Latin} ]+:)}{<em>$1</em>}gm;
print $p;
}
$p =~ s{(?<=^ )([\p{Latin} ]+:)}{<em>$1</em>}gm;
print $p;
}