X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/382c3a9fa1e25c7665ee16f0115998bb226dfbae..b13bb406f89eaebf04c8fd8ffe69cde30d5aa0bd:/tools/mkkeyboard-xkb-symbols

diff --git a/tools/mkkeyboard-xkb-symbols b/tools/mkkeyboard-xkb-symbols
index a7049fa..ba65b7a 100755
--- a/tools/mkkeyboard-xkb-symbols
+++ b/tools/mkkeyboard-xkb-symbols
@@ -3,10 +3,11 @@ use 5.014;
 use warnings;
 use utf8;
 use re '/msx';
+use open IO => ':encoding(utf-8)', ':std';
 use JSON ();
 use Data::Dump 'pp';
 
-our $VERSION = '1.00';
+our $VERSION = '1.01';
 
 my $symname = eval {
 	open my $keysymh, '<', 'data/keysymdef.json' or die $!;
@@ -88,7 +89,7 @@ while (readline) {
 		#$res{$pos}[$shift] = $symname->{$chr} // $chr; # geochar
 	}
 }
-say pp \%res;
+say pp(\%res) =~ s/(?<=") \\x \{? ([0-9A-F]{2,6}) \}?/chr hex $1/reg;
 
 __END__