120 lines
1.8 KiB
EmacsLisp
120 lines
1.8 KiB
EmacsLisp
;;; cyrillic-workman-input-method.el --- Workman but cyrillic. -*- lexical-binding: t; -*-
|
||
|
||
(require 'quail)
|
||
|
||
(quail-define-package
|
||
"cyrillic-workman" "Russian" "RUW" t
|
||
"Russian (ЙЦУКЕН) input method simulating Workman keyboard"
|
||
nil t t t t nil nil nil nil nil t)
|
||
|
||
;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ += `~
|
||
;; qQ dD rR wW bB jJ fF uU pP ;: [{ ]}
|
||
;; aA sS hH tT gG yY nN eE oO iI '" \|
|
||
;; zZ xX mM cC vV kK lL ,< .> /?
|
||
|
||
;; 1! 2" 3№ 4; 5% 6: 7? 8* 9( 0) -_ =+ \/ ёЁ
|
||
;; Й Ц У К Е Н Г Ш Щ З Х Ъ
|
||
;; Ф Ы В А П Р О Л Д Ж Э
|
||
;; Я Ч С М И Т Ь Б Ю .,
|
||
|
||
(quail-define-rules
|
||
("1" ?1)
|
||
("2" ?2)
|
||
("3" ?3)
|
||
("4" ?4)
|
||
("5" ?5)
|
||
("6" ?6)
|
||
("7" ?7)
|
||
("8" ?8)
|
||
("9" ?9)
|
||
("0" ?0)
|
||
("-" ?-)
|
||
("=" ?=)
|
||
("|" ?/)
|
||
("`" ?ё)
|
||
("q" ?й)
|
||
("d" ?ц)
|
||
("r" ?у)
|
||
("w" ?к)
|
||
("b" ?е)
|
||
("j" ?н)
|
||
("f" ?г)
|
||
("u" ?ш)
|
||
("p" ?щ)
|
||
(";" ?з)
|
||
("[" ?х)
|
||
("]" ?ъ)
|
||
("a" ?ф)
|
||
("s" ?ы)
|
||
("h" ?в)
|
||
("t" ?а)
|
||
("g" ?п)
|
||
("y" ?р)
|
||
("n" ?о)
|
||
("e" ?л)
|
||
("o" ?д)
|
||
("i" ?ж)
|
||
("'" ?э)
|
||
("\\" ?\\)
|
||
("z" ?я)
|
||
("x" ?ч)
|
||
("m" ?с)
|
||
("c" ?м)
|
||
("v" ?и)
|
||
("k" ?т)
|
||
("l" ?ь)
|
||
("," ?б)
|
||
("." ?ю)
|
||
("/" ?.)
|
||
("!" ?!)
|
||
("@" ?\")
|
||
("#" ?№)
|
||
("$" ?\;)
|
||
("%" ?%)
|
||
("^" ?:)
|
||
("&" ??)
|
||
("*" ?*)
|
||
("(" ?\()
|
||
(")" ?\))
|
||
("_" ?_)
|
||
("+" ?+)
|
||
("~" ?Ё)
|
||
("Q" ?Й)
|
||
("D" ?Ц)
|
||
("R" ?У)
|
||
("W" ?К)
|
||
("B" ?Е)
|
||
("J" ?Н)
|
||
("F" ?Г)
|
||
("U" ?Ш)
|
||
("P" ?Щ)
|
||
(":" ?З)
|
||
("{" ?Х)
|
||
("}" ?Ъ)
|
||
("A" ?Ф)
|
||
("S" ?Ы)
|
||
("H" ?В)
|
||
("T" ?А)
|
||
("G" ?П)
|
||
("Y" ?Р)
|
||
("N" ?О)
|
||
("E" ?Л)
|
||
("O" ?Д)
|
||
("I" ?Ж)
|
||
("\"" ?Э)
|
||
("|" ?|)
|
||
("Z" ?Я)
|
||
("X" ?Ч)
|
||
("M" ?С)
|
||
("C" ?М)
|
||
("V" ?И)
|
||
("K" ?Т)
|
||
("L" ?Ь)
|
||
("<" ?Б)
|
||
(">" ?Ю)
|
||
("?" ?,))
|
||
|
||
(provide 'cyrillic-workman-input-method)
|
||
|
||
;;; cyrillic-workman-input-method.el ends here
|