latin: header row with sequence number
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 10 Apr 2017 22:41:58 +0000 (00:41 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 22 May 2017 15:55:28 +0000 (17:55 +0200)
Lookup for any replacement cypher, with indication of ASCII offset.

latin.plp
latinsample.js

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;
index 57e82fc0cf7759e9b7fa3093e059acf3f56c2be6..37d323164f46a8593336042b975f2e2ad91e235f 100644 (file)
@@ -46,6 +46,9 @@ function appendsample() {
                        else {
                                output += ' ';
                        }
+                       if (row.parentNode.tagName == 'THEAD') {
+                               output += col < 26 ? ' ' : '· '; // number separator
+                       }
                }
                if (cols[29] && !cols[28]) {
                        // circumfix sign if no repetition