latin: reuse common function to display code128

[sheet.git] / latin.plp

diff --git a/latin.plp b/latin.plp
index e0bb6897b9bdd09d09f626857b4fe4948c30d5d2..b79e33abf483348b10384300169369f77c40ac64 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;
@@ -98,7 +101,7 @@ Html({
        td {
                vertical-align: top;
        }
-       td > svg {
+       td svg {
                vertical-align: middle;
        }
 </style>
@@ -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;