From ecafe82fb6cb293e9cf45a6a2f6474858f429221 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 11 Apr 2017 00:41:58 +0200
Subject: [PATCH] latin: header row with sequence number

Lookup for any replacement cypher, with indication of ASCII offset.
---
 latin.plp      | 7 +++++++
 latinsample.js | 3 +++
 2 files changed, 10 insertions(+)

diff --git a/latin.plp b/latin.plp
index e0bb689..b63114c 100644
--- 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;
diff --git a/latinsample.js b/latinsample.js
index 57e82fc..37d3231 100644
--- a/latinsample.js
+++ b/latinsample.js
@@ -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
-- 
2.30.0