latin: restore experimental class of ambiguous tap code
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 28 Sep 2015 14:34:50 +0000 (16:34 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Sun, 11 Oct 2015 10:24:05 +0000 (12:24 +0200)
writing-latn.inc.pl

index c344eb6ba0057447a32e96b3646f87b88eef8c12..7f342b145e694293b8c46ebc6af943b904cd5a2f 100644 (file)
@@ -3,9 +3,9 @@ use utf8;
 sub disptap {
        return map {
                m/\A(-?)(\d)(\d)/;
 sub disptap {
        return map {
                m/\A(-?)(\d)(\d)/;
-               sprintf('<td style="line-height:1ex">%s</td>',
-                       #TODO: prepend $1
-                       join "<br>\n", '·' x $2, '·' x $3,
+               sprintf('<td style="line-height:1ex"%s>%s<br>%s</td>',
+                       ' class=ex' x !!$1,
+                       '·' x $2, '·' x $3,
                );
        } @_;
 }
                );
        } @_;
 }