Source

emacs / unicode-im.el

Full commit
;; Windows keyboard layout generating unicode keycodes

(quail-define-package
 "cyrillic-jcuken-unicode" "Cyrillic" "ЮН" nil
 "ЙЦУКЕН keyboard layout widely used in Russia (Unicode encoding)"
 nil t t t t nil nil nil nil nil t)

;;  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" ?й) ("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" ?Ь) ("<" ?Б) (">" ?Ю) ("?" ?,))

;; Local variables:
;; mode: emacs-lisp
;; coding: utf-8
;; End: