X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/08c1056594f3d70c47553fdfac525197b85c632e..92884d838c7e5fc4b9bd27043bf6f1054898b182:/charset.plp

diff --git a/charset.plp b/charset.plp
index 5e16116..49ee2e7 100644
--- a/charset.plp
+++ b/charset.plp
@@ -323,6 +323,20 @@ for my $row (@request) {
 				next;
 			}
 
+			if (exists $get{compare}) {
+				state $visible = {};
+				my $cp = $offset + $row->{offset};
+				printf '<td class="%s" title="%3$s">%2$s',
+					$cp == ord $glyph ? 'l4' :
+					$row->{parent} && $glyph eq
+						Encode::decode($row->{parent}, pack 'C', $cp) ? 'l3' :
+					$visible->{$glyph} ? 'l2' :
+					'l1',
+					$glyphs->glyph_html($glyph);
+				$visible->{$glyph}++;
+				next;
+			}
+
 			print "\n".$glyphs->glyph_cell($glyph);
 		}
 		continue {