git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
keyboard/altgr: mkcharinfo from updated include structure
[sheet.git]
/
tools
/
mkcharinfo
diff --git
a/tools/mkcharinfo
b/tools/mkcharinfo
index c04ca8a3a5cd5c314d0eca115bb783f28c71d8ba..61f674ff34974ab80ceaa77940340f33824f564b 100755
(executable)
--- a/
tools/mkcharinfo
+++ b/
tools/mkcharinfo
@@
-3,11
+3,12
@@
use 5.014;
use warnings;
use utf8;
no if $] >= 5.018, warnings => 'experimental::smartmatch';
use warnings;
use utf8;
no if $] >= 5.018, warnings => 'experimental::smartmatch';
+use lib '.';
use open OUT => ':encoding(utf-8)', ':std';
use Data::Dump 'pp';
use open OUT => ':encoding(utf-8)', ':std';
use Data::Dump 'pp';
-our $VERSION = '1.0
2
';
+our $VERSION = '1.0
3
';
my %info = (
# prepare presentational string for some control(lish) entries
my %info = (
# prepare presentational string for some control(lish) entries
@@
-35,9
+36,8
@@
eval {
} or warn "Failed reading unicode tables: $@";
eval {
} 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: $@";
1;
} or warn "Failed reading additional keyboard map: $@";