X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/cf5d941b1a839d049b4f322caebaff605cdd4efc..53885bccd7945b6d1d39baef16290e086ce97027:/latin.plp

diff --git a/latin.plp b/latin.plp
index 1dcd8c7..58c103f 100644
--- a/latin.plp
+++ b/latin.plp
@@ -21,15 +21,15 @@ Html({
 		font-family: Suetterlin; /* R. G. Arens */
 		src: url("/suetterlin.ttf");
 	}
-	#sütterlin td { font-family: Suetterlin }
+	#suetterlin td { font-family: Suetterlin }
 	#ita2 td,
-	#tap-code td,
-	#short-tap td {
+	#tap td,
+	#shorttap td {
 		white-space: normal;
 		word-spacing: 5em; /* force line break between words */
 	}
-	#tap-code td,
-	#short-tap td {
+	#tap td,
+	#shorttap td {
 		line-height: 1ex;
 	}
 	#ita2 td {
@@ -42,7 +42,7 @@ Html({
 		stroke-linecap: square;
 	}
 	#nyctographs,
-	#old-roman-cursive {
+	#roman {
 		stroke-linecap: round;
 		stroke-linejoin: round;
 	}
@@ -58,26 +58,26 @@ Html({
 		text-align: left;
 		padding: 1px 0.3em;
 	}
-	#old-roman-cursive .sample span {
+	#roman .sample span {
 		margin-right: -10px;
 	}
-	#tap-code .sample,
-	#short-tap .sample {
+	#tap .sample,
+	#shorttap .sample {
 		font-size: 80%;
 	}
 	#ita2 .sample,
-	#tap-code .sample,
-	#short-tap .sample {
+	#tap .sample,
+	#shorttap .sample {
 		word-spacing: 0;
 	}
 	#ita2 .sample span,
-	#tap-code .sample span,
-	#short-tap .sample span {
+	#tap .sample span,
+	#shorttap .sample span {
 		margin-right: 1ex;
 		white-space: nowrap;
 	}
-	#sutton-asl .sample span,
-	#maritime-flags .sample span,
+	#sutton .sample span,
+	#maritime .sample span,
 	#morse .sample span {
 		margin-right: 0.5ex;
 	}
@@ -134,9 +134,11 @@ else {
 	say '</thead>';
 
 	for my $row (pairs @table) {
-		my ($title, $info) = @{$row};
-		printf '<tr id="%s">', (lc $title) =~ s/<[^>]+>//gr =~ s/\s+/-/gr;
-		say '<th>', $title;
+		my ($id, $info) = @{$row};
+
+		printf '<tr id="%s">', $id;
+		say '<th>', $info->{title} // ucfirst $id;
+
 		my $colspan = 1;
 		my $col = 0;
 		for (@{ $info->{list} }) {