<(common.inc.plp)><:
-my $mode = ($ENV{PATH_INFO} // '') eq '/xorg' || exists $get{xorg};
+my $mode = ($Request // '') eq 'xorg' || exists $get{xorg};
my $modename = $mode ? 'X.Org' : 'RFC-1345';
Html({
character char glyph table unicode vim xorg x11 x
'],
stylesheet => [qw'light'],
- data => [qw( digraphs.inc.pl )],
+ data => [qw( data/digraphs.inc.pl )],
});
:>
:>
<:
-my $di = do 'digraphs.inc.pl'
+my $di = do 'data/digraphs.inc.pl'
or die "Error loading digraphs data: ", $@ // $!;
if (exists $get{v}) {
$_ = [ord $_] for values %{$xorg};
$xorg->{$_}->[2] = # class = compatibility
$di->{$_} ? $di->{$_}->[0] != $xorg->{$_}->[0] ? 'l1' : # conflict
- $di->{$_}->[2] =~ /\bu-di\b/ ? 'l5' : 'l3' : 'l2' # rfc|any|none
+ $di->{$_}->[2] eq 'l4' ? 'l5' : 'l3' : 'l2' # rfc|any|none
for keys %{$xorg};
for my $cp (map {$_->[0]} values %{$xorg}) {
my $glyph = $string || chr $codepoint;
utf8::upgrade($glyph); # prevent latin1 output
my $desc = $mnem . ($name && " ($name)");
- my @class = ('X', grep {$_} $support && "u-$support", $script);
+ my @class = ('X', grep {$_} $script);
+ push @class, $mode ? $support : "u-$support" if $support;
$glyph = EscapeHTML($glyph);
$glyph = "<span>$glyph</span>" if $script =~ /\bZs\b/;