git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
writing: .ex styling for obsolete alphabets
[sheet.git]
/
Shiar_Sheet
/
FormatChar.pm
diff --git
a/Shiar_Sheet/FormatChar.pm
b/Shiar_Sheet/FormatChar.pm
index 661bb7551e897881c28532c2aef51f774dfed6f5..a3f4cc9c3725bdee642fecceb91ae5b79c1b29ca 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
}
@@
-182,7
+182,8
@@
sub table {
if ($cell =~ s/^>//) {
# header cell text follows
$cell =~ s/_/ /g; # underscores may be used instead of whitespace (for qw//ability)
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;
}
}
next;
}