From 3f98ee0c26bb3099a68aeed05740104551f27b84 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 2 Apr 2017 16:05:53 +0200
Subject: [PATCH] latin: common styling for tap code rows

---
 latin.plp           | 6 +++++-
 writing-latn.inc.pl | 2 +-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/latin.plp b/latin.plp
index 8c2bef5..6d23534 100644
--- a/latin.plp
+++ b/latin.plp
@@ -22,6 +22,10 @@ Html({
 		src: url("/suetterlin.ttf");
 	}
 	#sütterlin td { font-family: Suetterlin }
+	#tap-code td,
+	#tap-simplified td {
+		line-height: 1ex;
+	}
 
 	svg path:not([fill]) {
 		stroke: currentColor;
@@ -58,7 +62,7 @@ else {
 		my ($title, $cells) = @{$row};
 		printf '<tr id="%s">', (lc $title) =~ s/<[^>]+>//gr =~ s/\s+/-/gr;
 		say '<th>', $title;
-		print /^<td/ ? $_ : "\t<td>$_\n" for @{$cells};
+		say "\t", '<td>' x !/^<td/, $_ for @{$cells};
 	}
 	say "</table>\n";
 }
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 018a632..0ce54d3 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -3,7 +3,7 @@ use utf8;
 sub disptap {
 	return map {
 		m/\A(-?)(\d)(\d)/;
-		sprintf('<td style="line-height:1ex"%s>%s<br>%s</td>',
+		sprintf('<td%s>%s<br>%s',
 			' class=ex' x !!$1,
 			'·' x $2, '·' x $3,
 		);
-- 
2.30.0