2001-11-04 17:08:08 +00:00
|
|
|
|
;;; georgian.el --- Quail package for inputting Georgian characters -*-coding: utf-8;-*-
|
|
|
|
|
|
2011-01-02 23:50:46 +00:00
|
|
|
|
;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
|
2007-01-16 08:40:03 +00:00
|
|
|
|
;; Free Software Foundation, Inc.
|
2001-11-04 17:08:08 +00:00
|
|
|
|
|
|
|
|
|
;; Author: Dave Love <fx@gnu.org>
|
|
|
|
|
;; Keywords: i18n
|
|
|
|
|
|
2001-12-25 11:10:03 +00:00
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
2008-05-07 03:37:08 +00:00
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
2001-11-04 17:08:08 +00:00
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-07 03:37:08 +00:00
|
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
;; (at your option) any later version.
|
2001-11-04 17:08:08 +00:00
|
|
|
|
|
2008-05-07 03:37:08 +00:00
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
2001-11-04 17:08:08 +00:00
|
|
|
|
;; 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
|
2008-05-07 03:37:08 +00:00
|
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
2001-11-04 17:08:08 +00:00
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
|
|
;; Georgian input following the Yudit map from Mark Leisher
|
|
|
|
|
;; <mleisher@crl.nmsu.edu>.
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
(require 'quail)
|
|
|
|
|
|
|
|
|
|
(quail-define-package
|
|
|
|
|
"georgian" "Georgian" "გ" t
|
|
|
|
|
"A common Georgian transliteration (using Unicode)"
|
2004-08-16 12:03:15 +00:00
|
|
|
|
nil t nil nil t nil nil nil nil nil t)
|
2001-11-04 17:08:08 +00:00
|
|
|
|
|
|
|
|
|
(quail-define-rules
|
|
|
|
|
("a" ?ა)
|
|
|
|
|
("b" ?ბ)
|
|
|
|
|
("g" ?გ)
|
|
|
|
|
("d" ?დ)
|
|
|
|
|
("e" ?ე)
|
|
|
|
|
("v" ?ვ)
|
|
|
|
|
("z" ?ზ)
|
|
|
|
|
("t" ?თ)
|
|
|
|
|
("i" ?ი)
|
|
|
|
|
(".k" ?კ)
|
|
|
|
|
("l" ?ლ)
|
|
|
|
|
("m" ?მ)
|
|
|
|
|
("n" ?ნ)
|
|
|
|
|
("o" ?ო)
|
|
|
|
|
(".p" ?პ)
|
2010-08-15 09:34:53 +00:00
|
|
|
|
("+z" ?ჟ)
|
2001-11-04 17:08:08 +00:00
|
|
|
|
("r" ?რ)
|
|
|
|
|
("s" ?ს)
|
|
|
|
|
(".t" ?ტ)
|
|
|
|
|
("u" ?უ)
|
|
|
|
|
("p" ?ფ)
|
|
|
|
|
("k" ?ქ)
|
|
|
|
|
(".g" ?ღ)
|
|
|
|
|
("q" ?ყ)
|
2010-08-15 09:34:53 +00:00
|
|
|
|
("+s" ?შ)
|
|
|
|
|
("+c" ?ჩ)
|
2001-11-04 17:08:08 +00:00
|
|
|
|
("c" ?ც)
|
|
|
|
|
("j" ?ძ)
|
|
|
|
|
(".c" ?წ)
|
2010-08-15 09:34:53 +00:00
|
|
|
|
(".+c" ?ჭ)
|
2001-11-04 17:08:08 +00:00
|
|
|
|
("x" ?ხ)
|
2010-08-15 09:34:53 +00:00
|
|
|
|
("+j" ?ჯ)
|
2001-11-04 17:08:08 +00:00
|
|
|
|
("h" ?ჰ)
|
|
|
|
|
("q1" ?ჴ)
|
|
|
|
|
("e0" ?ჱ)
|
|
|
|
|
("o1" ?ჵ)
|
|
|
|
|
("i1" ?ჲ)
|
|
|
|
|
("w" ?ჳ)
|
|
|
|
|
("f" ?ჶ)
|
|
|
|
|
;; Presumably, these are GEORGIAN LETTER YN, GEORGIAN LETTER ELIFI,
|
|
|
|
|
;; accepted for U+10F7, U+10F8 -- fx
|
|
|
|
|
("y" ?) ;; Letter not in Unicode (private use code).
|
|
|
|
|
("e1" ?) ;; Letter not in Unicode (private use code).
|
|
|
|
|
)
|
|
|
|
|
|
2008-05-07 03:37:08 +00:00
|
|
|
|
;; arch-tag: 7b26f205-7091-435e-a2cf-8778f899dc8a
|
2001-11-04 17:08:08 +00:00
|
|
|
|
;;; georgian.el ends here
|