git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
cli: frontend page listing commandline parameters
[sheet.git]
/
charset.plp
diff --git
a/charset.plp
b/charset.plp
index 2257fb8bbaf2987d6055f69a1c8ed12e82e9b915..9ab15f1a20764ac55bc1994a01abcf6a1249d266 100644
(file)
--- a/
charset.plp
+++ b/
charset.plp
@@
-98,6
+98,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
if (not defined $params) {
my @parents = @{ $charset->{inherit} || [] };
if (not defined $params) {
my @parents = @{ $charset->{inherit} || [] };
@@
-291,8
+292,8
@@
for my $row (@request) {
printf '<div class="section"><table class="glyphs%s">', !$row->{cell} && ' charmap';
my $title = $row->{set};
printf '<div class="section"><table class="glyphs%s">', !$row->{cell} && ' charmap';
my $title = $row->{set};
- $title .= " <aside>(over $_)</aside>"
-
for $row->{parent
} || ();
+ $title .= " <aside>(over $_)</aside>"
for $row->{parent} || ();
+
$title .= " <aside>($_)</aside>" for $row->{note
} || ();
printf '<caption>%s</caption>', $title;
print '<col>' x ($cols + 1);
for my $section (qw{thead}) {
printf '<caption>%s</caption>', $title;
print '<col>' x ($cols + 1);
for my $section (qw{thead}) {