code.delx.au - gnu-emacs/blob - leim/quail/viqr.el

   1 ;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system  -*-coding: iso-2022-7bit;-*-
   2
   3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
   4 ;;   2006, 2007
   5 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   6 ;;   Registration Number H14PRO021
   7
   8 ;; Keywords: multilingual, input method, latin
   9
  10 ;; This file is part of GNU Emacs.
  11
  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)
  15 ;; any later version.
  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
  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.
  26
  27 ;;; Commentary:
  28
  29 ;;; Code:
  30
  31 (require 'quail)
  32 (require 'viet-util)
  33
  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.
  37
  38 (defmacro viet-quail-define-rules ()
  39   (cons 'quail-define-rules
  40         (let ((l viet-viqr-alist)
  41               rules)
  42           (while l
  43             (setq rules (cons (list (cdr (car l)) (car (car l))) rules))
  44             (setq l (cdr l)))
  45           rules)))
  46
  47 (quail-define-package
  48  "vietnamese-viqr" "Vietnamese" "VQ" t
  49  "Vietnamese input method with VIQR mnemonic system
  50
  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)
  69
  70
  71 (viet-quail-define-rules)
  72
  73 ;;; arch-tag: d2c29221-5a2e-46b2-898b-0e56bc4eb858
  74 ;;; viqr.el ends here