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: ipa tones and contours tables
[sheet.git]
/
Shiar_Sheet
/
FormatChar.pm
diff --git
a/Shiar_Sheet/FormatChar.pm
b/Shiar_Sheet/FormatChar.pm
index b2e4d09cbf22b044434a84b2e63b2a709b714efc..9a002762fff0583acbd5f0984361dd5f97a8940e 100644
(file)
--- a/
Shiar_Sheet/FormatChar.pm
+++ b/
Shiar_Sheet/FormatChar.pm
@@
-248,10
+248,12
@@
sub table {
my @colheads;
while ($digraphs->[0] !~ /^\./) {
my $cell = shift @$digraphs or last;
my @colheads;
while ($digraphs->[0] !~ /^\./) {
my $cell = shift @$digraphs or last;
- push @colheads,
sprintf(
- '<
%s%s>%s
',
+ push @colheads,
join('',
+ '<',
$cell =~ s/^-// ? 'td' : 'th',
$cell =~ s/^-// ? 'td' : 'th',
- $cell =~ s/:(.*)// ? qq{ title="$1"} : '',
+ $cell =~ s/:(.*)// && qq{ title="$1"},
+ $cell =~ s/^>// && ' colspan=2',
+ '>',
$cell eq '_' ? ' ' : $cell
);
}
$cell eq '_' ? ' ' : $cell
);
}