Add 2011 to FSF/AIST copyright years.
[bpt/emacs.git] / leim / quail / viqr.el
CommitLineData
123f4a5e 1;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system -*-coding: iso-2022-7bit;-*-
24b31c88 2
03ba6797 3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
5df4f04c 4;; 2006, 2007, 2008, 2009, 2010, 2011
698218a2
KH
5;; National Institute of Advanced Industrial Science and Technology (AIST)
6;; Registration Number H14PRO021
24b31c88
KH
7
8;; Keywords: multilingual, input method, latin
9
10;; This file is part of GNU Emacs.
11
3d544458 12;; GNU Emacs is free software: you can redistribute it and/or modify
24b31c88 13;; it under the terms of the GNU General Public License as published by
3d544458
GM
14;; the Free Software Foundation, either version 3 of the License, or
15;; (at your option) any later version.
24b31c88
KH
16
17;; GNU Emacs is distributed in the hope that it will be useful,
18;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20;; GNU General Public License for more details.
21
22;; You should have received a copy of the GNU General Public License
3d544458 23;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
24b31c88 24
be567141
PJ
25;;; Commentary:
26
24b31c88
KH
27;;; Code:
28
29(require 'quail)
30(require 'viet-util)
31
32;; `viet-viqr-alist' is an alist of Vietnamese characters vs
33;; corresponding VIQR strings. We create Quail map which maps VIQR
34;; strings to corresponding Vietnamese characters.
35
36(defmacro viet-quail-define-rules ()
37 (cons 'quail-define-rules
38 (let ((l viet-viqr-alist)
39 rules)
40 (while l
41 (setq rules (cons (list (cdr (car l)) (car (car l))) rules))
42 (setq l (cdr l)))
43 rules)))
44
45(quail-define-package
46 "vietnamese-viqr" "Vietnamese" "VQ" t
47 "Vietnamese input method with VIQR mnemonic system
48
49 effect | postfix | examples
50 ------------+---------+----------
51 breve | ( | a( -> \e,1e\e(B
52 circumflex | ^ | a^ -> \e,1b\e(B
53 horn | + | o+ -> \e,1=\e(B
54 ------------+---------+----------
55 acute | ' | a' -> \e,1a\e(B
56 grave | ` | a` -> \e,1`\e(B
57 hook above | ? | a? -> \e,1d\e(B
58 tilde | ~ | a~ -> \e,1c\e(B
59 dot below | . | a. -> \e,1U\e(B
60 ------------+---------+----------
61 d bar | dd | dd -> \e,1p\e(B
62 ------------+---------+----------
a6a99976 63 no compose | \\ | a\\. -> a.
24b31c88
KH
64 ------------+---------+----------
65 combination| (~ | a(~ -> \e,1G\e(B
f10f03e8 66" nil t t nil nil t nil nil nil nil t)
24b31c88
KH
67
68
69(viet-quail-define-rules)
70
3d544458 71;; arch-tag: d2c29221-5a2e-46b2-898b-0e56bc4eb858
be567141 72;;; viqr.el ends here