X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/5d63f06fcd53df308f4a31a894227de85a6a683c..77ac3d52d89913a79cca834d882c54a58c15a488:/keyboard.plp
diff --git a/keyboard.plp b/keyboard.plp
index eef05ef..f1d5634 100644
--- a/keyboard.plp
+++ b/keyboard.plp
@@ -25,14 +25,13 @@ my $usint = [
my $keys = Shiar_Sheet::Keyboard->new({
def => {
'' => {
- map { $_ => [''] } @{ $usint->[0] }
+ map { $_ => '' } @{ $usint->[0] }
},
},
key => {
map {
- my $i = ord($_) - ord('a');
- $_ => ["$usint->[1]->[$i]
$usint->[2]->[$i]"]
- } 'a'..'z'
+ $usint->[0]->[$_] => "$usint->[1]->[$_]
$usint->[2]->[$_]"
+ } 0 .. $#{ $usint->[0] }
},
});
$keys->map($get{map}) or undef $get{map};