$input =~ s/^\\//; # escaped char
($cell, $title, my $class, $mnem, $entity) = $self->glyphs_html($input);
- if ($self->{style} = 'di') {
+ if ($self->{style} eq 'di') {
if ($class =~ /\bu-di\b/) {
push @class, ('l3', 'u-di'); # standard digraph
}
push @class, ('l2', 'u-prop'); # unofficial
}
}
+ elsif ($self->{style} eq 'html') {
+ if (defined $entity) {
+ push @class, ('l3', 'u-html');
+ }
+ }
else {
my $codepoint = ord(substr $input, 0, 1);
if ($codepoint <= 0xFF) {
if ($cell =~ s/^>//) {
# header cell text follows
$cell =~ s/_/ /g; # underscores may be used instead of whitespace (for qw//ability)
- $rows[-1] .= '<th>'.($cell || ' ');
+ my $class = $cell =~ s/^-// && ' class="ex"';
+ $rows[-1] .= "<th$class>".($cell || ' ');
}
next;
}