latin: generalise - prefix to mark ex class
authorMischa POSLAWSKY <perl@shiar.org>
Sun, 2 Apr 2017 15:26:59 +0000 (17:26 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 24 Apr 2017 18:44:10 +0000 (20:44 +0200)
Replace custom container HTML for tap code by contents indicator for the
same results (emulating unicode table data).

latin.plp
writing-latn.inc.pl

index 32e0b02eb2de7e61a56e0b0916a2e72f1962a1ed..9128a2834284af78a2eab632d015eedadda131c1 100644 (file)
--- 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;
                }
        }
index 83bdfcbc5380a59edeccb780fe2f38f4b8237f4e..42f5da6d677dc7c3bd5b46b28eb0aa1941c43e38 100644 (file)
@@ -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,
                );
        } @_;