git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
charset: compare empty cells, omit unknown unicode
[sheet.git]
/
charset.plp
diff --git
a/charset.plp
b/charset.plp
index b6b61b9e5df2f22fdb29df82dbcbea25d4c6e61d..5113b4214d9a4578b825dc614ce381553ddefe3c 100644
(file)
--- a/
charset.plp
+++ b/
charset.plp
@@
-439,28
+439,27
@@
for my $row (@request) {
next;
}
next;
}
+ my $cp = $offset + $row->{offset};
my $glyph = ref $row->{table} eq 'ARRAY' ? $row->{table}->[$offset] :
substr $row->{table}, $offset, 1;
my $glyph = ref $row->{table} eq 'ARRAY' ? $row->{table}->[$offset] :
substr $row->{table}, $offset, 1;
- if ($glyph eq $NOCHAR) {
- print '<td>';
- next;
- }
+ my ($cell, $name, $class) = $glyph eq $NOCHAR ? () :
+ $glyphs->glyph_html($glyph);
if (exists $get{compare}) {
state $visible = {};
if (exists $get{compare}) {
state $visible = {};
- my $cp = $offset + $row->{offset};
- printf '<td class="%s" title="%3$s">%2$s',
+ $class = (
$cp == ord $glyph ? 'l4' :
$row->{parent} && $glyph eq
Encode::decode($row->{parent}, pack 'C', $cp) ? 'l3' :
$cp == ord $glyph ? 'l4' :
$row->{parent} && $glyph eq
Encode::decode($row->{parent}, pack 'C', $cp) ? 'l3' :
+ !$class ? undef :
$visible->{$glyph} ? 'l2' :
$visible->{$glyph} ? 'l2' :
- 'l1'
,
-
$glyphs->glyph_html($glyph
);
+ 'l1'
+ );
$visible->{$glyph}++;
$visible->{$glyph}++;
- next;
}
}
- say $glyphs->glyph_cell($glyph);
+ say sprintf $class ? '<td title="%s" class="X %s">%s' : '<td title="%s">',
+ $name, $class, $cell;
}
continue {
$offset += $colsize;
}
continue {
$offset += $colsize;