merge trunk
[emacs.git] / leim / quail / viqr.el
bloba182c6c94c93a504ebf6302bc9163ed9a8f66773
1 ;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system -*-coding: iso-2022-7bit;-*-
3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
4 ;; 2006, 2007, 2008, 2009, 2010, 2011
5 ;; National Institute of Advanced Industrial Science and Technology (AIST)
6 ;; Registration Number H14PRO021
8 ;; Keywords: multilingual, input method, latin
10 ;; This file is part of GNU Emacs.
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation, either version 3 of the License, or
15 ;; (at your option) any later version.
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.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
25 ;;; Commentary:
27 ;;; Code:
29 (require 'quail)
30 (require 'viet-util)
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.
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)))
45 (quail-define-package
46 "vietnamese-viqr" "Vietnamese" "VQ" t
47 "Vietnamese input method with VIQR mnemonic system
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 ------------+---------+----------
63 no compose | \\ | a\\. -> a.
64 ------------+---------+----------
65 combination| (~ | a(~ -> \e,1G\e(B
66 " nil t t nil nil t nil nil nil nil t)
69 (viet-quail-define-rules)
71 ;;; viqr.el ends here