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: lotv patch v5.0.13 (2024-03-26)
[sheet.git]
/
digits.plp
diff --git
a/digits.plp
b/digits.plp
index 6666b8f3f52aab0d933b35bfaae54a5da0cf85f7..ea44418702c2ab512e6e284c8c6b5604960fe674 100644
(file)
--- a/
digits.plp
+++ b/
digits.plp
@@
-11,7
+11,6
@@
Html({
script glyph unicode writing comparison list character
history sample test language multilingual
)],
script glyph unicode writing comparison list character
history sample test language multilingual
)],
- stylesheet => [qw( light dark circus mono red )],
data => [qw'writing-digits.inc.pl'],
raw => <<'EOT',
<style>
data => [qw'writing-digits.inc.pl'],
raw => <<'EOT',
<style>
@@
-37,25
+36,23
@@
unless (exists $get{v}) {
$glyphs->{style} = 'univer';
}
$glyphs->{style} = 'univer';
}
-my $scriptname =
do 'writing-script.inc.pl'
;
-$_ =
qq{<a href="/latin">$_</a>}
for $scriptname->{latn} || ();
+my $scriptname =
eval { Data('writing-script') }
;
+$_ =
showlink($_, "/latin")
for $scriptname->{latn} || ();
-my %table = do "writing-digits.inc.pl";
-die "Table data not found: $_\n" for $@ || $! || ();
+my $table = Data("writing-digits");
sub printtable {
say '<div class=section>', $glyphs->tabletag;
for my $id (@_) {
sub printtable {
say '<div class=section>', $glyphs->tabletag;
for my $id (@_) {
- my $info = $table{$id};
+ my $info = $table
->
{$id};
my $title = $info->{title} // $scriptname->{$id} || $id;
print $glyphs->row([ ".>$title", @{$info->{list}} ]);
}
say '</table></div>';
}
my $title = $info->{title} // $scriptname->{$id} || $id;
print $glyphs->row([ ".>$title", @{$info->{list}} ]);
}
say '</table></div>';
}
-printtable(@{ $table
{$_} }) for @{ $table
{default} };
+printtable(@{ $table
->{$_} }) for @{ $table->
{default} };
-:></div>
-
-<hr>
+say "</div>\n";
+say for '<hr/>', $glyphs->legend;