1 ;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system -*-coding: iso-2022-7bit;-*-
4 ;; National Institute of Advanced Industrial Science and Technology (AIST)
5 ;; Registration Number H14PRO021
7 ;; Keywords: multilingual, input method, latin
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs 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 2, or (at your option)
16 ;; GNU Emacs 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.
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 the
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
24 ;; Boston, MA 02110-1301, USA.
26 ;;; Synched up with: FSF 22.0.50.6
35 ;; `viet-viqr-alist' is an alist of Vietnamese characters vs
36 ;; corresponding VIQR strings. We create Quail map which maps VIQR
37 ;; strings to corresponding Vietnamese characters.
39 (defmacro viet-quail-define-rules ()
40 (cons 'quail-define-rules
41 (let ((l viet-viqr-alist)
44 (setq rules (cons (list (cdr (car l)) (car (car l))) rules))
49 "vietnamese-viqr" "Vietnamese" "VQ" t
50 "Vietnamese input method with VIQR mnemonic system
52 effect | postfix | examples
53 ------------+---------+----------
54 breve | ( | a( ->
\e,1e
\e(B
55 circumflex | ^ | a^ ->
\e,1b
\e(B
56 horn | + | o+ ->
\e,1=
\e(B
57 ------------+---------+----------
58 acute | ' | a' ->
\e,1a
\e(B
59 grave | ` | a` ->
\e,1`
\e(B
60 hook above | ? | a? ->
\e,1d
\e(B
61 tilde | ~ | a~ ->
\e,1c
\e(B
62 dot below | . | a. ->
\e,1U
\e(B
63 ------------+---------+----------
64 d bar | dd | dd ->
\e,1p
\e(B
65 ------------+---------+----------
66 no compose | \\ | a\\. -> a.
67 ------------+---------+----------
68 combination| (~ | a(~ ->
\e,1G
\e(B
69 " nil t t nil nil t nil nil nil nil t)
72 (viet-quail-define-rules)
74 ;;; arch-tag: d2c29221-5a2e-46b2-898b-0e56bc4eb858