sub disptap {
return map {
m/\A(-?)(\d)(\d)/;
- sprintf('<small style="line-height:2ex">%s</small> ',
- #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,
);
} @_;
}