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 6d08f9e868004b87b649e150f943eea04f51590b..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
@@
-34,6
+35,12
@@
eval {
1;
} or warn "Failed reading unicode tables: $@";
1;
} or warn "Failed reading unicode tables: $@";
+eval {
+ 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: $@";
+
eval {
require HTML::Entities;
our %char2entity;
eval {
require HTML::Entities;
our %char2entity;