git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sc: refer to ventral sacs overlord by its common name
[sheet.git]
/
unicode.plp
diff --git
a/unicode.plp
b/unicode.plp
index edad58c0b6fa87ed1749fa1dead112300e58e2d1..1f7414446c1d44a14f49048b1aa07c3d67491002 100644
(file)
--- a/
unicode.plp
+++ b/
unicode.plp
@@
-10,7
+10,6
@@
Html({
keywords => [qw'
unicode glyph char character reference common ipa symbol sign mark table digraph
'],
keywords => [qw'
unicode glyph char character reference common ipa symbol sign mark table digraph
'],
- stylesheet => [qw'light dark mono circus red'],
data => [qw( unicode-table.inc.pl data/unicode-char.inc.pl )],
});
data => [qw( unicode-table.inc.pl data/unicode-char.inc.pl )],
});
@@
-149,10
+148,11
@@
$glyphs->print(map {
if (@select) {
my $rowlen;
if (@select) {
my $rowlen;
- for ($rowlen = 1; $rowlen
++; $rowlen <= $#$table
) {
+ for ($rowlen = 1; $rowlen
<= $#$table; $rowlen++
) {
last if $table->[$rowlen] =~ /\./;
}
my @cells = map {
last if $table->[$rowlen] =~ /\./;
}
my @cells = map {
+ s/^(?=-)/0/;
my $end = (s/-(.+)?// ? ($1 // @$table / $rowlen - 1) : $_) + 1;
$_ * $rowlen .. $end * $rowlen - 1;
} @select;
my $end = (s/-(.+)?// ? ($1 // @$table / $rowlen - 1) : $_) + 1;
$_ * $rowlen .. $end * $rowlen - 1;
} @select;