sc: refer to ventral sacs overlord by its common name

[sheet.git] / tools / mkxkbsymbols

diff --git a/tools/mkxkbsymbols b/tools/mkxkbsymbols
index 52aa8a9f47cb56de4c2738f25b0410bf335da21b..e48fb35120cf52d7e26cad692ca1e655d18f62c5 100755 (executable)
--- a/tools/mkxkbsymbols
+++ b/tools/mkxkbsymbols
@@ -38,7 +38,7 @@ xkb_symbols "$name" {
 for my $k (sort keys %{$geochar}) {
        printf "\tkey <%s> {[%s]};\n", $k, join(', ',
                map { !$_ ? 'NoSymbol' : sprintf 'U%04X', ord }
-               map { $info->{key}->{$_} } @{ $geochar->{$k} }
+               map { $info->{def}{''}->{$_}[1] } @{ $geochar->{$k} }
        );
 }