sub new {
my ($class) = @_;
- bless { digraph => 1, unicode => 0 }, $class;
+ bless { unicode => 0, anno => 'di', style => 'di' }, $class;
}
sub glyph_info {
($cell, $title, my $class, $mnem) = $self->glyphs_html($input);
- if ($self->{digraph}) {
+ if ($self->{style} = 'di') {
if (defined $mnem) {
push @class, $class =~ /\bXz\b/ ? ('l2', 'u-prop') # unofficial
: ('l3', 'u-di'); # standard digraph
@class ? sprintf(' class="%s"', join ' ', @class) : '',
$html || '',
$cell eq '' ? (' ', '') : ($cell,
- $self->{digraph} && defined $mnem && length $mnem
+ $self->{anno} eq 'di' && defined $mnem && length $mnem
? sprintf(' <small class="digraph">%s</small>', EscapeHTML($mnem))
: $self->{unicode} + $cell =~ /^[^a-zA-Z]$/ > 0
? sprintf(' <small class="%s">%04X</small>', 'value', ord $cell)
}
return sprintf qq{<table class="glyphs%s">\n%s</table>\n},
- $self->{digraph} || $self->{unicode} >= 0 ? ' dilabel' : '',
+ $self->{anno} || $self->{unicode} >= 0 ? ' dilabel' : '',
join '', map {"$_\n"} @rows;
}
my $glyphs = Shiar_Sheet::FormatChar->new;
if (exists $get{di}) {
- $glyphs->{digraph} = defined $get{di} ? ! !$get{di} : 1;
+ $glyphs->{anno} = (!defined $get{di} || $get{di}) && 'di';
$glyphs->{unicode} = 1;
}
if (exists $get{q}) {
$glyphs->{unicode} = -1;
- $glyphs->{digraph}--;
+ $glyphs->{anno} = 0;
}
our $verbose = exists $get{v};
<div class="legend">
<table class="glyphs"><tr>
<td class="X l4">ascii
- <td class="X l3"><:= $glyphs->{digraph} ? 'digraph' : 'latin1' :>
- <td class="X l2"><:= $glyphs->{digraph} ? 'proposed' : 'BMP' :>
+ <td class="X l3"><:= $glyphs->{style} eq 'di' ? 'digraph' : 'latin1' :>
+ <td class="X l2"><:= $glyphs->{style} eq 'di' ? 'proposed' : 'BMP' :>
<td class="X l1">other unicode
<td class="X ex">discouraged
</table>