use utf8;
+use strict;
+use warnings;
+no warnings 'qw';
my @num = qw(^0 ^0 ^@ ^0 ^0 ^0 ^^ ^0 ^0 ^0 ^0);
dvorak => [[
]],
qwertz => [[
- [qw/ ^ 1 2 3 4 5 6 7 8 9 0 /, $ascii ? ('ss', '^0') : ('ß', '´') ],
- [$ascii ? '^0' : '°', qw{ ! " }, $ascii ? '^0' : '§', qw{ $ % & / ( ) = ? ` }],
- [qw/^^ ^0 ^0 ^0 ^0 ^0 ^0 { [ ] } \\ ^0 /],
-# [qw{ ° ! " § $ % & / ( ) = ? ` }],
-], [
- [qw/ q w e r t z u i o p /, $ascii ? 'ue' : 'ü', '+' ],
- [qw/ Q W E R T Z U I O P /, $ascii ? 'UE' : 'Ü', '*' ],
- [qw/ @ ^w ^e ^r ^t ^z ^u ^i ^o ^p ^0 ~ /],
+ [qw/ ^ 1 2 3 4 5 6 7 8 9 0 ß ´ /],
+ [qw{ ° ! " § $ % & / ( ) = ? ` }],
+ [qw/^^ ^0 ^0 ^0 ^0 ^0 ^0 { [ ] } \\ ^0 /],
+# [qw{ ° ! " § $ % & / ( ) = ? ` }],
+], [
+ [qw/ q w e r t z u i o p ü + /],
+ [qw/ Q W E R T Z U I O P Ü * /],
+ [qw/ @ ^w ^e ^r ^t ^z ^u ^i ^o ^p ^0 ~ /],
# ^ show altgr-Q instead
], [
- [qw/ a s d f g h j k l /, $ascii ? ('oe', 'ae') : ('ö', 'ä'), '#' ],
- [qw/ A S D F G H J K L /, $ascii ? ('OE', 'AE') : ('Ö', 'Ä'), "'" ],
- [qw/^a ^s ^d ^f ^g ^h ^j ^k ^l ^0 ^0 ^0 /],
+ [qw/ a s d f g h j k l ö ä # /],
+ [qw/ A S D F G H J K L Ö Ä ' /],
+ [qw/^a ^s ^d ^f ^g ^h ^j ^k ^l ^0 ^0 ^0 /],
], [
[qw/ y x c v b n m , . - < /],
[qw/ Y X C V B N M ; : _ > /],
]],
azerty => [[
- [qw/ < & /, $ascii ? 'e\'' : 'é', qw/ " ' ( - ^_ _ /, $ascii ? 'c,' : 'ç', qw/ @ ) = /],
+ [qw/ < & é " ' ( - ^_ _ ç @ ) = /],
[qw/ > 1 2 3 4 ^[ 6 7 8 9 0 ^] + /], # 5 unused atm
# [qw/ < & é " ' ( - ^_ _ ç @ ) = /], # à→@→^@, è→^_
[qw/^\\ ^0 ~ # { [ | ` \\ ^0 ^@ ] } /], # °→^]
], [
[qw/ a z e r t y u i o p ^ $ /],
- [qw/ A Z E R T Y U I O P /, $ascii ? (":'", 'Pd') : ('¨', '£')],
- [qw/^a ^z ^e ^r ^t ^y ^u ^i ^o ^p ^^ /, $ascii ? 'Cu' : '¤'],
+ [qw/ A Z E R T Y U I O P ¨ £ /],
+ [qw/^a ^z ^e ^r ^t ^y ^u ^i ^o ^p ^^ ¤ /],
], [
- [qw/ q s d f g h j k l m /, $ascii ? 'u!' : 'ù', '*'],
- [qw/ Q S D F G H J K L M /, '%', $ascii ? 'My' : 'µ'],
+ [qw/ q s d f g h j k l m ù * /],
+ [qw/ Q S D F G H J K L M % µ /],
[qw/^q ^s ^d ^f ^g ^h ^j ^k ^l ^m ^0 ^0 /],
], [
- [qw( w x c v b n , ; : ! )],
- [qw( W X C V B N ? . / ), $ascii ? 'SE' : '§' ],
- [qw(^w ^x ^c ^v ^b ^n ^? ^0 ^0 ^0 )],
+ [qw( w x c v b n , ; : ! )],
+ [qw( W X C V B N ? . / § )],
+ [qw(^w ^x ^c ^v ^b ^n ^? ^0 ^0 ^0 )],
]],
arensito => [[
[qw(^z ^x ^c ^v ^b ^k ^m ^0 ^0 ^? )],
]],
+qwerak => [[
+ [qw/ ` 1 2 3 4 5 6 7 8 9 0 - = /],
+ [qw/ ~ ! @ # $ % ^ & * ( ) _ + /],
+ [@num, qw/ ^_ ^0 /],
+], [
+ [qw/ q w j p ; y g k r l [ ] /],
+ [qw/ Q W J P : Y G K R L { } /],
+ [qw/^q ^w ^j ^p ^0 ^y ^g ^k ^r ^l ^[ ^] /],
+], [
+ [qw/ a s e i u d h t n o ' \\ /],
+ [qw/ A S E I U D H T N O " | /],
+ [qw/^a ^s ^e ^i ^u ^d ^h ^t ^n ^o ^0 ^\\ /],
+], [
+ [qw( z x c v b f m , . / )],
+ [qw( Z X C V B F M < > ? )],
+ [qw(^z ^x ^c ^v ^b ^f ^m ^0 ^0 ^? )],
+]],
+