Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
149 lines (135 sloc) 2.76 KB
;;; ukrainian-mac.el --- OS X Ukrainian keyboard input method -*- lexical-binding: t; -*-
;; Copyright (C) 2015 Magnus Henoch
;; Author: Magnus Henoch <magnus.henoch@gmail.com>
;; Keywords: i18n
;; Version: 0.1
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; This file defines a new input method, `ukrainian-mac', which
;; attempts to match the Ukrainian keyboard in Mac OS X.
;;
;; Install this file with M-x package-install-file.
;;
;; Copied from lisp/leim/quail/cyrillic.el.
;;; Code:
(quail-define-package
"ukrainian-mac" "Ukrainian" "UK" nil
"ЙЦУКЕН Ukrainian, as the OS X keyboard layout.
Compared to `ukrainian-computer', І and И are swapped."
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" )
("<" )
(">" )
("?" ??)
("\\" )
("|" ))
;;;###autoload
(register-input-method
"ukrainian-mac" "Ukrainian" 'quail-use-package
"UK" "ЙЦУКЕН Ukrainian, as the OS X keyboard layout.
Compared to `ukrainian-computer', І and И are swapped."
"ukrainian-mac")
(provide 'ukrainian-mac)
;;; ukrainian-mac.el ends here
You can’t perform that action at this time.