charset: enlarge glyph cells

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index 91de26bd81c002e5cff1e7fd896c76996c25c479..faeedc2822af742923e945b668cbd313b5f10bbe 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -108,7 +108,7 @@ print "<ul>\n";
 
 my @nibble = (0..9, 'A'..'F');
 for my $row (@request) {
-       print '<li><table class="glyphs">';
+       printf '<li><table class="glyphs%s">', !$row->{cell} && ' charmap';
        printf '<caption>%s</caption>', $row->{set};
        print '<col>';
        for my $section (qw{thead}) {