keyboard/altgr/unigraph: fix mkxkbsymbols since array definitions
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 3 Jun 2024 14:02:35 +0000 (16:02 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Wed, 3 Jul 2024 22:40:25 +0000 (00:40 +0200)
Broken glyph paths causing empty results since commit v1.18-21-gc4ca0bd3e9
(2024-04-23) [recombine translations in include syntax].

tools/mkxkbsymbols

index 52aa8a9f47cb56de4c2738f25b0410bf335da21b..e48fb35120cf52d7e26cad692ca1e655d18f62c5 100755 (executable)
@@ -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} }
        );
 }