latin: header row with sequence number

[sheet.git] / latin.plp

diff --git a/latin.plp b/latin.plp
index e0bb6897b9bdd09d09f626857b4fe4948c30d5d2..b63114cbb4c3c9e8dc6d91355d5894ae6222768d 100644 (file)
--- a/latin.plp
+++ b/latin.plp
@@ -49,6 +49,9 @@ Html({
        td {
                white-space: nowrap;
        }
+       th {
+               width: auto !important;
+       }
 
        .sample {
                vertical-align: middle;
@@ -122,6 +125,10 @@ if ($! or $@) {
 else {
        my %VOWELCOLS = (map { ($_ => 1) } 0, 4, 8, 14, 20, 24);
        say '<table class="glyphs">';
+       say '<thead><tr><th># <small>ASCII − 64</small>';
+       print '<td>', $_ for 1 .. 26;
+       say '</thead>';
+
        for my $row (pairs @table) {
                my ($title, $cells) = @{$row};
                printf '<tr id="%s">', (lc $title) =~ s/<[^>]+>//gr =~ s/\s+/-/gr;