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;
}