digits: title exceptions in table spec

[sheet.git] / digits.plp

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