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: describe worker abilities notably mineral gathering
[sheet.git]
/
charset.plp
diff --git
a/charset.plp
b/charset.plp
index eb23d7ebe7b3a73b97e161ed25774e5efc3c900a..33f02c7428db0d7cb08381e913e0068f8ca5a4d8 100644
(file)
--- a/
charset.plp
+++ b/
charset.plp
@@
-16,7
+16,7
@@
Html({
'],
(stylesheet => [qw'light']) x !$mode,
data => [qw(
'],
(stylesheet => [qw'light']) x !$mode,
data => [qw(
- charset-encoding.inc.pl
+ charset
.inc.pl charset
-encoding.inc.pl
charset-unicode.inc.pl charset-ucplanes.inc.pl charset-utf8.inc.pl
)],
});
charset-unicode.inc.pl charset-ucplanes.inc.pl charset-utf8.inc.pl
)],
});
@@
-79,8
+79,7
@@
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
my @request;
my $glyphs = Shiar_Sheet::FormatChar->new;
my @request;
-my $charsets = do 'charset-encoding.inc.pl'
- or Alert('Encoding metadata could not be read', $@ || $!);
+my $charsets = Data('charset');
sub tabinput {
# generate character table(s)
sub tabinput {
# generate character table(s)
@@
-98,7
+97,7
@@
sub tabinput {
state $visible = {'' => 1}; # all present tables
my %row = (offset => 0, cols => 16);
state $visible = {'' => 1}; # all present tables
my %row = (offset => 0, cols => 16);
- $row{$_} = $charset->{$_} for qw( note ); # copy metadata
+ $row{$_} = $charset->{$_} for qw( note
table
); # copy metadata
if (not defined $params) {
my @parents = @{ $charset->{inherit} || [] };
if (not defined $params) {
my @parents = @{ $charset->{inherit} || [] };