40712
|
1 ;;; georgian.el --- Quail package for inputting Georgian characters -*-coding: utf-8;-*-
|
|
2
|
79727
|
3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
|
75253
|
4 ;; Free Software Foundation, Inc.
|
40712
|
5
|
|
6 ;; Author: Dave Love <fx@gnu.org>
|
|
7 ;; Keywords: i18n
|
|
8
|
42320
|
9 ;; This file is part of GNU Emacs.
|
|
10
|
94710
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
|
40712
|
12 ;; it under the terms of the GNU General Public License as published by
|
94710
|
13 ;; the Free Software Foundation, either version 3 of the License, or
|
|
14 ;; (at your option) any later version.
|
40712
|
15
|
94710
|
16 ;; GNU Emacs is distributed in the hope that it will be useful,
|
40712
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
19 ;; GNU General Public License for more details.
|
|
20
|
|
21 ;; You should have received a copy of the GNU General Public License
|
94710
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
40712
|
23
|
|
24 ;;; Commentary:
|
|
25
|
|
26 ;; Georgian input following the Yudit map from Mark Leisher
|
|
27 ;; <mleisher@crl.nmsu.edu>.
|
|
28
|
|
29 ;;; Code:
|
|
30
|
|
31 (require 'quail)
|
|
32
|
|
33 (quail-define-package
|
|
34 "georgian" "Georgian" "��" t
|
|
35 "A common Georgian transliteration (using Unicode)"
|
56678
6165248b32a6
("georgian"): Call quail-define-package with the show-layout arg t.
Kenichi Handa <handa@m17n.org>
diff
changeset
|
36 nil t nil nil t nil nil nil nil nil t)
|
40712
|
37
|
|
38 (quail-define-rules
|
|
39 ("a" ?��)
|
|
40 ("b" ?��)
|
|
41 ("g" ?��)
|
|
42 ("d" ?��)
|
|
43 ("e" ?��)
|
|
44 ("v" ?��)
|
|
45 ("z" ?��)
|
|
46 ("t" ?��)
|
|
47 ("i" ?��)
|
|
48 (".k" ?��)
|
|
49 ("l" ?��)
|
|
50 ("m" ?��)
|
|
51 ("n" ?��)
|
|
52 ("o" ?��)
|
|
53 (".p" ?��)
|
|
54 ("\+z" ?��)
|
|
55 ("r" ?��)
|
|
56 ("s" ?��)
|
|
57 (".t" ?��)
|
|
58 ("u" ?��)
|
|
59 ("p" ?��)
|
|
60 ("k" ?��)
|
|
61 (".g" ?��)
|
|
62 ("q" ?��)
|
|
63 ("\+s" ?��)
|
|
64 ("\+c" ?��)
|
|
65 ("c" ?��)
|
|
66 ("j" ?��)
|
|
67 (".c" ?��)
|
|
68 (".\+c" ?��)
|
|
69 ("x" ?��)
|
|
70 ("\+j" ?��)
|
|
71 ("h" ?��)
|
|
72 ("q1" ?��)
|
|
73 ("e0" ?��)
|
|
74 ("o1" ?��)
|
|
75 ("i1" ?��)
|
|
76 ("w" ?��)
|
|
77 ("f" ?��)
|
|
78 ;; Presumably, these are GEORGIAN LETTER YN, GEORGIAN LETTER ELIFI,
|
|
79 ;; accepted for U+10F7, U+10F8 -- fx
|
|
80 ("y" ?��) ;; Letter not in Unicode (private use code).
|
|
81 ("e1" ?��) ;; Letter not in Unicode (private use code).
|
|
82 )
|
|
83
|
94710
|
84 ;; arch-tag: 7b26f205-7091-435e-a2cf-8778f899dc8a
|
40712
|
85 ;;; georgian.el ends here
|