utf8::upgrade($glyph); # prevent latin1 output
my $desc = $mnem . ($name && " ($name)");
my @class = ('X', grep {$_} $script);
- push @class, $cmp ? $support : "u-$support" if $support;
+ push @class, $cmp ? $support :
+ $di->{flagclass}->{$support} // "u-$support" if $support;
$glyph = EscapeHTML($glyph);
$glyph = "<span>$glyph</span>" if $script =~ /\bZs\b/;
</table>
<: } :>
<table class="glyphs"><tr><:
- printf qq(\n\t<td class="X %s">%s), (!$cmp && 'u-').$_, $di->{flag}->{$_}
+ printf qq(\n\t<td class="X %s">%s), $cmp ? $_ : $di->{flagclass}{$_} // "u-$_", $di->{flag}->{$_}
for sort keys %{ $di->{flag} };
:>
</table>
$table{$_} = [
ord $di->{$_}, # original code point
$uninfo->{ $di->{$_} }->[1] // '', # name
- join(' ',
+ (
$rfc->{$_}
- ? $vim->{$_} ? 'l4' : 'l1' # vim+rfc or rfc only
+ ? $vim->{$_} ? 'l5' : 'l1' # vim+rfc or rfc only
+ : $vimold && $vimold->{$_} ? 'l4' # compat vim if known
: $vim->{$_} ? 'l3' : 'l2', # vim only or neither
- $vimold && $vim->{$_} && !$vimold->{$_} ? 'ex' : (), # new vim feature
),
- ($uninfo->{ $di->{$_} }->[0] // '') =~ s/ u-di| u-prop| ex//gr, # class
+ ($uninfo->{ $di->{$_} }->[0] // '') =~ s/ u-di| u-prop//gr, # class
$uninfo->{ $di->{$_} }->[4] // (), # string
] for sort keys %{$di};
'are available as <a href="/digraphs.vim">ex commands</a>.',
),
flag => {
- l4 => 'full support',
- l3 => 'vim extension',
- 'l3 ex' => 'vim v8.0',
+ l5 => 'full support',
+ l4 => 'vim extension',
+ l3 => 'vim v8.0',
l2 => 'proposal',
l1 => 'not in vim',
},
+ flagclass => {
+ l5 => '', # common
+ l3 => 'u-l5', # rare
+ },
});
__END__
my $comparison = (
!$vidi->{key}->{$mnem} ? 'l3' : # free
$vidi->{key}->{$mnem}->[0] != $cp ? 'l1' : # conflict
- $vidi->{key}->{$mnem}->[2] eq 'l4' ? 'l5' : # rfc
+ $vidi->{key}->{$mnem}->[2] eq 'l5' ? 'l5' : # rfc
'l4' # any
);
$table{$mnem} = [