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

diff --git a/latin.plp b/latin.plp
index ce8c111a2fbab26a7f6d58633ba1e93cdb42f0eb..68e6a83b03462d2b9ff93faf4e93dfd57d8a8860 100644 (file)
--- 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 85c292e855cdeccb7c19697a2055217c802caf72..c344eb6ba0057447a32e96b3646f87b88eef8c12 100644 (file)
--- 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,
                );
        } @_;
 }