latin: highlight vowel columns
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 10 Apr 2017 22:19:39 +0000 (00:19 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 24 Apr 2017 23:51:41 +0000 (01:51 +0200)
latin.plp

index 7f94ebf..897fe0a 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -120,6 +120,7 @@ if ($! or $@) {
        Alert("Table data not found", $@ || $!);
 }
 else {
+       my %VOWELCOLS = (map { ($_ => 1) } 0, 4, 8, 14, 20, 24);
        say '<table class="glyphs">';
        for my $row (pairs @table) {
                my ($title, $cells) = @{$row};
@@ -133,13 +134,23 @@ else {
                                $colspan++;
                                next;
                        }
+                       my @class;
+                       push @class ,'l0' if $VOWELCOLS{$col - $colspan};
+                       push @class, $_ ? 'ex' : 'u-invalid' if s/^-//;
+
                        print "\t<td";
+                       if ($col > 26) {
+                               # special character for sample generation
+                               print ' hidden';  # sample only
+                       }
+                       else {
+                               print ' title=', chr($col + ord('A') - $colspan);
+                       }
                        if ($colspan > 1) {
                                print " colspan=$colspan";
                                $colspan = 1;
                        }
-                       print ' hidden' if $col > 26;  # sample only
-                       print ' class=', $_ ? 'ex' : 'u-invalid' if s/^-//;
+                       printf ' class="%s"', "@class" if @class;
                        print '>';
                        say;
                }