digits: title exceptions in table spec

[sheet.git] / digits.plp

diff --git a/digits.plp b/digits.plp
index cfaa6eda42fbd3f8b1c916fe427a8e3f7134ed84..bc435932e622727cbf2307330c018b19a3af494e 100644 (file)
--- a/digits.plp
+++ b/digits.plp
@@ -41,9 +41,9 @@ die "Table data not found: $_\n" for $@ || $! || ();
 
 say $glyphs->tabletag;
 for my $row (pairs @table) {
-       my ($id, $cols) = @{$row};
-       my $title = $scriptname->{"digits_$id"} || $scriptname->{$id} || $id;
-       print $glyphs->row([ ".>$title", @{$cols} ]);
+       my ($id, $info) = @{$row};
+       my $title = $info->{title} // $scriptname->{$id} || $id;
+       print $glyphs->row([ ".>$title", @{$info->{list}} ]);
 }
 say '</table>';