['a'..'m'], ['n'..'z'],
);
my @chars2 = (['_'], @chars); # trailing character (extended set)
+my @columns = !exists $get{split} ? \@chars2 :
+ ([@chars2[0, 1, 3, 4, 6]], [@chars2[2, 5, 7]]);
+for my $colchars (@columns) {
print '<table class="glyphs dimap"><col>';
-print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
+print qq'<colgroup span="$_">' for map {scalar @$_} @{$colchars};
print "</colgroup><col>\n";
for my $section (qw{thead tfoot}) {
print "<$section><tr><th>↳";
- print '<th>', EscapeHTML($_) for map {@$_} @chars2;
+ print '<th>', EscapeHTML($_) for map {@$_} @{$colchars};
print "<th> \n";
}
for my $c1group (@chars) {
print '<tbody>';
for my $c1 (@$c1group) {
print '<tr><th>', EscapeHTML($c1);
- for my $c2 (map {@$_} @chars2) {
+ for my $c2 (map {@$_} @$colchars) {
my $mnem = $c1 . $c2;
if (not defined $di->{$mnem}) {
print '<td>';
}
}
print "</table>\n";
+print '<hr>' if exists $get{split};
+}
:>
<div class="legend">
<table class="glyphs"><tr>