root/trunk/leim/quail/georgian.el
| Revision 4220, 2.0 kB (checked in by miyoshi, 9 months ago) |
|---|
| Line | |
|---|---|
| 1 | ;;; georgian.el --- Quail package for inputting Georgian characters -*-coding: utf-8;-*- |
| 2 | |
| 3 | ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 |
| 4 | ;; Free Software Foundation, Inc. |
| 5 | |
| 6 | ;; Author: Dave Love <fx@gnu.org> |
| 7 | ;; Keywords: i18n |
| 8 | |
| 9 | ;; This file is part of GNU Emacs. |
| 10 | |
| 11 | ;; This file is free software; you can redistribute it and/or modify |
| 12 | ;; it under the terms of the GNU General Public License as published by |
| 13 | ;; the Free Software Foundation; either version 3, or (at your option) |
| 14 | ;; any later version. |
| 15 | |
| 16 | ;; This file is distributed in the hope that it will be useful, |
| 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 |
| 22 | ;; along with GNU Emacs; see the file COPYING. If not, write to |
| 23 | ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
| 24 | ;; Boston, MA 02110-1301, USA. |
| 25 | |
| 26 | ;;; Commentary: |
| 27 | |
| 28 | ;; Georgian input following the Yudit map from Mark Leisher |
| 29 | ;; <mleisher@crl.nmsu.edu>. |
| 30 | |
| 31 | ;;; Code: |
| 32 | |
| 33 | (require 'quail) |
| 34 | |
| 35 | (quail-define-package |
| 36 | "georgian" "Georgian" "á" t |
| 37 | "A common Georgian transliteration (using Unicode)" |
| 38 | nil t nil nil t nil nil nil nil nil t) |
| 39 | |
| 40 | (quail-define-rules |
| 41 | ("a" ?á) |
| 42 | ("b" ?á) |
| 43 | ("g" ?á) |
| 44 | ("d" ?á) |
| 45 | ("e" ?á) |
| 46 | ("v" ?á) |
| 47 | ("z" ?á) |
| 48 | ("t" ?á) |
| 49 | ("i" ?á) |
| 50 | (".k" ?á) |
| 51 | ("l" ?á) |
| 52 | ("m" ?á) |
| 53 | ("n" ?á) |
| 54 | ("o" ?á) |
| 55 | (".p" ?á) |
| 56 | ("\+z" ?á) |
| 57 | ("r" ?á ) |
| 58 | ("s" ?á¡) |
| 59 | (".t" ?á¢) |
| 60 | ("u" ?á£) |
| 61 | ("p" ?á€) |
| 62 | ("k" ?á¥) |
| 63 | (".g" ?áŠ) |
| 64 | ("q" ?á§) |
| 65 | ("\+s" ?áš) |
| 66 | ("\+c" ?á©) |
| 67 | ("c" ?áª) |
| 68 | ("j" ?á«) |
| 69 | (".c" ?á¬) |
| 70 | (".\+c" ?á) |
| 71 | ("x" ?á®) |
| 72 | ("\+j" ?á¯) |
| 73 | ("h" ?á°) |
| 74 | ("q1" ?áŽ) |
| 75 | ("e0" ?á±) |
| 76 | ("o1" ?áµ) |
| 77 | ("i1" ?á²) |
| 78 | ("w" ?á³) |
| 79 | ("f" ?á¶) |
| 80 | ;; Presumably, these are GEORGIAN LETTER YN, GEORGIAN LETTER ELIFI, |
| 81 | ;; accepted for U+10F7, U+10F8 -- fx |
| 82 | ("y" ?ï·) ;; Letter not in Unicode (private use code). |
| 83 | ("e1" ?ïž) ;; Letter not in Unicode (private use code). |
| 84 | ) |
| 85 | |
| 86 | ;;; arch-tag: 7b26f205-7091-435e-a2cf-8778f899dc8a |
| 87 | ;;; georgian.el ends here |
| 88 |
Note: See TracBrowser for help on using the browser.
