From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 28 Sep 2015 14:30:39 +0000 (+0200)
Subject: latin: cell styling for tap code dots (replacing small bullets)
X-Git-Tag: v1.9~122
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/153ec1421ef059026fb8fbf208a46cb462d27575?hp=ff3e93c6c001cad9acf1faad6b9e94225343518e

latin: cell styling for tap code dots (replacing small bullets)
---

diff --git a/latin.plp b/latin.plp
index ce8c111..68e6a83 100644
--- a/latin.plp
+++ b/latin.plp
@@ -37,7 +37,7 @@ if ($! or $@) {
 }
 else {
 	print '<table class="glyphs">';
-	print ref $_ ne 'ARRAY' ? "<tr><th>$_" : map {"<td>$_"} @$_ for @table;
+	print ref $_ ne 'ARRAY' ? "<tr><th>$_" : map {/^<td/ ? $_ : "<td>$_"} @$_ for @table;
 	print "</table>\n\n";
 }
 
diff --git a/writing-latn.inc.pl b/writing-latn.inc.pl
index 85c292e..c344eb6 100644
--- a/writing-latn.inc.pl
+++ b/writing-latn.inc.pl
@@ -3,9 +3,9 @@ use utf8;
 sub disptap {
 	return map {
 		m/\A(-?)(\d)(\d)/;
-		sprintf('<small style="line-height:2ex">%s</small>&nbsp;',
+		sprintf('<td style="line-height:1ex">%s</td>',
 			#TODO: prepend $1
-			join "<br>\n", '•' x $2, '•' x $3,
+			join "<br>\n", '·' x $2, '·' x $3,
 		);
 	} @_;
 }