apl: group similar operators into distinct table bodies

[sheet.git] / apl.plp

diff --git a/apl.plp b/apl.plp
index 478533f1622e872da122bd4d70437a27a1ece2d5..804d80ea9c5c1813f9060cc6acc035aba858fba0 100644 (file)
--- a/apl.plp
+++ b/apl.plp
@@ -32,10 +32,15 @@ my @ops = do 'apl.inc.pl';
        <td><a href="/digraphs" title="digraph">di</a><td>html
        <td title="…B">monadic
        <td title="A…B">dyadic
        <td><a href="/digraphs" title="digraph">di</a><td>html
        <td title="…B">monadic
        <td title="A…B">dyadic

-</thead>
+<tbody>

 
 <:
 for my $op (@ops) {
 
 <:
 for my $op (@ops) {

+       $op or do {
+               print "<tbody>\n";
+               next;
+       };
+

        my ($chr, $dyad, $monad) = @{$op};
        ($chr, my $altkey) = split /\n/, $chr;
        my $codepoint = ord $chr;
        my ($chr, $dyad, $monad) = @{$op};
        ($chr, my $altkey) = split /\n/, $chr;
        my $codepoint = ord $chr;