git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
unicode: drop u- prefix from script classes
[sheet.git]
/
Shiar_Sheet
/
FormatChar.pm
diff --git
a/Shiar_Sheet/FormatChar.pm
b/Shiar_Sheet/FormatChar.pm
index 0e5967807d68b8a2ec520b7523ebca166e08b136..f676ead1da9cb2a1f7951545f532a39bf513f86a 100644
(file)
--- a/
Shiar_Sheet/FormatChar.pm
+++ b/
Shiar_Sheet/FormatChar.pm
@@
-80,7
+80,7
@@
sub cell {
$input =~ s/^\\//; # escaped char
($cell, $title, my $class, $mnem, $entity) = $self->glyphs_html($input);
$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
}
if ($class =~ /\bu-di\b/) {
push @class, ('l3', 'u-di'); # standard digraph
}
@@
-88,6
+88,11
@@
sub cell {
push @class, ('l2', 'u-prop'); # unofficial
}
}
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) {
else {
my $codepoint = ord(substr $input, 0, 1);
if ($codepoint <= 0xFF) {