use Data::Dump 'pp';
use Shiar_Sheet::FormatChar;
-our $VERSION = '1.01';
+our $VERSION = '1.02';
my $matchvim; # enable to prefer best compatibility
my ($class, $name, undef, undef, $string) = @{
Shiar_Sheet::FormatChar->glyph_info($cp)
};
+ my $reverse = substr($mnem, 1, 1) . substr($mnem, 0, 1);
+ my $cmp = $vidi->{key}->{$mnem};
+ my $cmpalt = defined $cmp && !$cmp && $vidi->{key}->{$reverse};
my $comparison = (
- !$vidi->{key}->{$mnem} ? 'l3' : # free
- $vidi->{key}->{$mnem}->[0] != $cp ? 'l1' : # conflict
- $vidi->{key}->{$mnem}->[2] eq 'l5' ? 'l5' : # rfc
+ !$cmp ?
+ $cmpalt && $cmpalt->[0] == $cp ? 'l4' : # matches alias
+ 'l3' : # free
+ $cmp->[0] != $cp ? 'l1' : # conflict
+ $cmp->[2] eq 'l5' ? 'l5' : # rfc
'l4' # any
);
title => 'X.Org',
key => \%table,
intro => join("\n",
- 'Character mnemonics following compose key ⎄:',
+ 'Character mnemonics following compose key ⎄',
'in the X Window System (Shift+AltGr by default).',
'Differences from <a href="/digraphs">RFC-1345</a> are indicated.',
'Also see <a href="/keyboard/altgr">monograph maps</a>',
keywords => [qw( xorg x11 x )],
flag => {
'l5' => "matching RFC-1345",
- 'l4' => "matching Vim extension",
+ 'l4' => "matching Vim extension or alternate",
'l3' => "unique to Xorg",
'l1' => "conflict",
('l0' => "Xorg preference") x !!$matchvim,