From b4b5d4038ca4202826c657a746cbaf5e9a079741 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 2 Apr 2017 15:52:54 +0200
Subject: [PATCH] latin: match suetterlin row by identifier

Automatically derive id from row title.
---
 latin.plp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/latin.plp b/latin.plp
index 1fda12c..8c2bef5 100644
--- a/latin.plp
+++ b/latin.plp
@@ -21,7 +21,7 @@ Html({
 		font-family: Suetterlin; /* R. G. Arens */
 		src: url("/suetterlin.ttf");
 	}
-	.glyphs tr:first-child+tr+tr td { font-family: Suetterlin }
+	#sütterlin td { font-family: Suetterlin }
 
 	svg path:not([fill]) {
 		stroke: currentColor;
@@ -56,7 +56,8 @@ else {
 	say '<table class="glyphs">';
 	for my $row (pairs @table) {
 		my ($title, $cells) = @{$row};
-		say '<tr><th>', $title;
+		printf '<tr id="%s">', (lc $title) =~ s/<[^>]+>//gr =~ s/\s+/-/gr;
+		say '<th>', $title;
 		print /^<td/ ? $_ : "\t<td>$_\n" for @{$cells};
 	}
 	say "</table>\n";
-- 
2.30.0