Mercurial > hg > xemacs-beta
comparison lisp/leim/quail/viqr.el @ 155:43dd3413c7c7 r20-3b4
Import from CVS: tag r20-3b4
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:39:39 +0200 |
| parents | |
| children | acd284d43ca1 |
comparison
equal
deleted
inserted
replaced
| 154:94141801dd7e | 155:43dd3413c7c7 |
|---|---|
| 1 ;; quail/viqr.el -- Quail packages for inputting Vietnamese with VIQR system | |
| 2 | |
| 3 ;; Copyright (C) 1995 Free Software Foundation, Inc. | |
| 4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | |
| 5 | |
| 6 ;; Keywords: multilingual, input method, latin | |
| 7 | |
| 8 ;; This file is part of GNU Emacs. | |
| 9 | |
| 10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
| 11 ;; it under the terms of the GNU General Public License as published by | |
| 12 ;; the Free Software Foundation; either version 2, or (at your option) | |
| 13 ;; any later version. | |
| 14 | |
| 15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
| 16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 18 ;; GNU General Public License for more details. | |
| 19 | |
| 20 ;; You should have received a copy of the GNU General Public License | |
| 21 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
| 22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
| 23 | |
| 24 ;;; Code: | |
| 25 | |
| 26 (require 'quail) | |
| 27 (require 'language/viet-util) | |
| 28 | |
| 29 ;; `viet-viqr-alist' is an alist of Vietnamese characters vs | |
| 30 ;; corresponding VIQR strings. We create Quail map which maps VIQR | |
| 31 ;; strings to corresponding Vietnamese characters. | |
| 32 | |
| 33 (defmacro viet-quail-define-rules () | |
| 34 (cons 'quail-define-rules | |
| 35 (let ((l viet-viqr-alist) | |
| 36 rules) | |
| 37 (while l | |
| 38 (setq rules (cons (list (cdr (car l)) (car (car l))) rules)) | |
| 39 (setq l (cdr l))) | |
| 40 rules))) | |
| 41 | |
| 42 (quail-define-package "quail-viqr" "Vietnamese" "VIQR" t | |
| 43 "Vietnamese inputting method with VIQR mnemonic system: | |
| 44 | |
| 45 effect | postfix | examples | |
| 46 ------------+---------+---------- | |
| 47 breve | ( | a( -> ,1e(B | |
| 48 circumflex | ^ | a^ -> ,1b(B | |
| 49 horn | + | o+ -> ,1=(B | |
| 50 ------------+---------+---------- | |
| 51 acute | ' | a' -> ,1a(B | |
| 52 grave | ` | a` -> ,1`(B | |
| 53 hook above | ? | a? -> ,1d(B | |
| 54 tilde | ~ | a~ -> ,1c(B | |
| 55 dot below | . | a. -> ,1U(B | |
| 56 ------------+---------+---------- | |
| 57 d bar | dd | dd -> ,1p(B | |
| 58 ------------+---------+---------- | |
| 59 no compose | \ | a\. -> a. | |
| 60 ------------+---------+---------- | |
| 61 combination| (~ | a(~ -> ,1G(B | |
| 62 " nil t t nil nil t) | |
| 63 | |
| 64 | |
| 65 (viet-quail-define-rules) | |
| 66 | |
| 67 ;;; quail/viqr.el ends here |