latin: custom space glyphs in sample

[sheet.git] / latin.plp

diff --git a/latin.plp b/latin.plp
index ed6f65b6f1490dacf3fb51e8a6ce23ac0ec14708..c9c59ad9d2dc7f0dcb088fc6e2825de0d7847e04 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -119,7 +119,9 @@ else {
                printf '<tr id="%s">', (lc $title) =~ s/<[^>]+>//gr =~ s/\s+/-/gr;
                say '<th>', $title;
                my $colspan = 1;
                printf '<tr id="%s">', (lc $title) =~ s/<[^>]+>//gr =~ s/\s+/-/gr;
                say '<th>', $title;
                my $colspan = 1;

+               my $col = 0;

                for (@{$cells}) {
                for (@{$cells}) {

+                       $col++;

                        if ($_ eq '>') {
                                $colspan++;
                                next;
                        if ($_ eq '>') {
                                $colspan++;
                                next;


@@ -129,6 +131,7 @@ else {
                                print " colspan=$colspan";
                                $colspan = 1;
                        }
                                print " colspan=$colspan";
                                $colspan = 1;
                        }

+                       print ' hidden' if $col > 26;  # sample only

                        print ' class=', $_ ? 'ex' : 'u-invalid' if s/^-//;
                        print '>';
                        say;
                        print ' class=', $_ ? 'ex' : 'u-invalid' if s/^-//;
                        print '>';
                        say;