Код: Выделить всё
#!/usr/bin/perl
my %lm = (
'ё' => '`', 'й' => 'q', 'ц' => 'w', 'у' => 'e', 'к' => 'r', 'е' => 't', 'н' => 'y', 'г' => 'u', 'ш' => 'i',
'щ' => 'o', 'з' => 'p', 'х' => '[', 'ъ' => ']', 'ф' => 'a', 'ы' => 's', 'в' => 'd', 'а' => 'f', 'п' => 'g',
'р' => 'h', 'о' => 'j', 'л' => 'k', 'д' => 'l', 'ж' => ';', 'э' => '\'', 'я' => 'z', 'ч' => 'x', 'с' => 'c',
'м' => 'v', 'и' => 'b', 'т' => 'n', 'ь' => 'm', 'б' => ',', 'ю' => '.', 'Ё' => '~', 'Й' => 'Q', 'Ц' => 'W',
'У' => 'E', 'К' => 'R', 'Е' => 'T', 'Н' => 'Y', 'Г' => 'U', 'Ш' => 'I', 'Щ' => 'O', 'З' => 'P', 'Х' => '{',
'Ъ' => '}', 'Ф' => 'A', 'Ы' => 'S', 'В' => 'D', 'А' => 'F', 'П' => 'G', 'Р' => 'H', 'О' => 'J', 'Л' => 'K',
'Д' => 'L', 'Ж' => ':', 'Э' => '"', 'Я' => 'Z', 'Ч' => 'X', 'С' => 'C', 'М' => 'V', 'И' => 'B', 'Т' => 'N',
'Ь' => 'M', 'Б' => '<', 'Ю' => '>');
foreach $a (keys %lm) {
foreach $b (keys %lm) {
print "map $a$b $lm{$a}$lm{$b}\n"
}
print "map $a $lm{$a}\n"
}
print('" vim',':ft=pentadactyl:fdm=marker',"\n")потом source сгенерированное в конфиге. Как итог — минута на запуск, тормоза при работе и особенно при команде :map.
В luakit я пошел по другому пути — просто стал передавать браузеру keyval, измененный с помощью gdk_keymap_translate_keyboard_state так, как будто бы его группа 0 (английская раскладка). Но боюсь, поправить исходники firefox я не осилю.
Кто-нибудь знает какое-нибудь общее решение проблемы?
