X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/a180fb63ca5b34948194aad96395f3ba8ec5b22d..7ac9a00245dde674939ac5d88887e0cf69ab1736:/charset.plp
diff --git a/charset.plp b/charset.plp
index b6b61b9..5113b42 100644
--- a/charset.plp
+++ b/charset.plp
@@ -439,28 +439,27 @@ for my $row (@request) {
next;
}
+ my $cp = $offset + $row->{offset};
my $glyph = ref $row->{table} eq 'ARRAY' ? $row->{table}->[$offset] :
substr $row->{table}, $offset, 1;
- if ($glyph eq $NOCHAR) {
- print '
';
- next;
- }
+ my ($cell, $name, $class) = $glyph eq $NOCHAR ? () :
+ $glyphs->glyph_html($glyph);
if (exists $get{compare}) {
state $visible = {};
- my $cp = $offset + $row->{offset};
- printf ' | %2$s',
+ $class = (
$cp == ord $glyph ? 'l4' :
$row->{parent} && $glyph eq
Encode::decode($row->{parent}, pack 'C', $cp) ? 'l3' :
+ !$class ? undef :
$visible->{$glyph} ? 'l2' :
- 'l1',
- $glyphs->glyph_html($glyph);
+ 'l1'
+ );
$visible->{$glyph}++;
- next;
}
- say $glyphs->glyph_cell($glyph);
+ say sprintf $class ? ' | %s' : ' | ',
+ $name, $class, $cell;
}
continue {
$offset += $colsize;
|