Derive from returned object as intermediate key data was replaced in commit
v1.16-32-g23f7b10a84 (2024-01-01) [proper function to convert char maps].
use warnings;
use utf8;
no if $] >= 5.018, warnings => 'experimental::smartmatch';
+use lib '.';
use open OUT => ':encoding(utf-8)', ':std';
use Data::Dump 'pp';
-our $VERSION = '1.02';
+our $VERSION = '1.03';
my %info = (
# prepare presentational string for some control(lish) entries
} or warn "Failed reading unicode tables: $@";
eval {
- do './keyboard/altgr/macos-abc.eng.inc.pl' or die $@ || $!;
- our %rows;
- $info{$_} //= {} for values %rows;
+ my $kbd = do './keyboard/altgr/macos-abc.eng.inc.pl' or die $@ || $!;
+ $info{$_} //= {} for map {s/◌//g; m/\A./g} values %{ $kbd->{key} };
1;
} or warn "Failed reading additional keyboard map: $@";