From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 2 Apr 2017 15:26:59 +0000 (+0200)
Subject: latin: generalise - prefix to mark ex class
X-Git-Tag: v1.10~258
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/c2ac61bbb4f4caa7013e1eca41291eb5f3a28969

latin: generalise - prefix to mark ex class

Replace custom container HTML for tap code by contents indicator for the
same results (emulating unicode table data).
---

diff --git a/latin.plp b/latin.plp
index 32e0b02..9128a28 100644
--- a/latin.plp
+++ b/latin.plp
@@ -77,7 +77,8 @@ else {
 				print " colspan=$colspan";
 				$colspan = 1;
 			}
-			print '>' unless s/^<td//;
+			print ' class=ex' if s/^-//;
+			print '>';
 			say;
 		}
 	}
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 83bdfcb..42f5da6 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -3,8 +3,7 @@ use utf8;
 sub disptap {
 	return map {
 		!m/\A(-?)(\d)(\d)/ ? $_ :
-		sprintf('<td%s>%s<br>%s',
-			' class=ex' x !!$1,
+		$1.sprintf('%s<br>%s',
 			'·' x $2, '·' x $3,
 		);
 	} @_;