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,
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 2, or (at your option)
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; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
25 ;; Boston, MA 02110-1301, USA.
34 ;; `viet-viqr-alist' is an alist of Vietnamese characters vs
35 ;; corresponding VIQR strings. We create Quail map which maps VIQR
36 ;; strings to corresponding Vietnamese characters.
38 (defmacro viet-quail-define-rules ()
39 (cons 'quail-define-rules
40 (let ((l viet-viqr-alist)
43 (setq rules (cons (list (cdr (car l)) (car (car l))) rules))
48 "vietnamese-viqr" "Vietnamese" "VQ" t
49 "Vietnamese input method with VIQR mnemonic system
51 effect | postfix | examples
52 ------------+---------+----------
53 breve | ( | a( ->
\e,1e
\e(B
54 circumflex | ^ | a^ ->
\e,1b
\e(B
55 horn | + | o+ ->
\e,1=
\e(B
56 ------------+---------+----------
57 acute | ' | a' ->
\e,1a
\e(B
58 grave | ` | a` ->
\e,1`
\e(B
59 hook above | ? | a? ->
\e,1d
\e(B
60 tilde | ~ | a~ ->
\e,1c
\e(B
61 dot below | . | a. ->
\e,1U
\e(B
62 ------------+---------+----------
63 d bar | dd | dd ->
\e,1p
\e(B
64 ------------+---------+----------
65 no compose | \\ | a\\. -> a.
66 ------------+---------+----------
67 combination| (~ | a(~ ->
\e,1G
\e(B
68 " nil t t nil nil t nil nil nil nil t)
71 (viet-quail-define-rules)
73 ;;; arch-tag: d2c29221-5a2e-46b2-898b-0e56bc4eb858