leim/quail/viqr.el

   1 ;; quail/viqr.el -- Quail packages for inputting Vietnamese with VIQR system
   2
   3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   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 the
  22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Code:
  26
  27 (require 'quail)
  28 (require 'viet-util)
  29
  30 ;; `viet-viqr-alist' is an alist of Vietnamese characters vs
  31 ;; corresponding VIQR strings.  We create Quail map which maps VIQR
  32 ;; strings to corresponding Vietnamese characters.
  33
  34 (defmacro viet-quail-define-rules ()
  35   (cons 'quail-define-rules
  36         (let ((l viet-viqr-alist)
  37               rules)
  38           (while l
  39             (setq rules (cons (list (cdr (car l)) (car (car l))) rules))
  40             (setq l (cdr l)))
  41           rules)))
  42
  43 (quail-define-package
  44  "vietnamese-viqr" "Vietnamese" "VQ" t
  45  "Vietnamese input method with VIQR mnemonic system
  46
  47     effect   | postfix | examples
  48  ------------+---------+----------
  49     breve    |    (    | a( -> \e,1e\e(B
  50   circumflex |    ^    | a^ -> \e,1b\e(B
  51     horn     |    +    | o+ -> \e,1=\e(B
  52  ------------+---------+----------
  53     acute    |    '    | a' -> \e,1a\e(B
  54     grave    |    `    | a` -> \e,1`\e(B
  55   hook above |    ?    | a? -> \e,1d\e(B
  56     tilde    |    ~    | a~ -> \e,1c\e(B
  57    dot below |    .    | a. -> \e,1U\e(B
  58  ------------+---------+----------
  59     d bar    |   dd    | dd -> \e,1p\e(B
  60  ------------+---------+----------
  61   no compose |    \\    | a\\. -> a.
  62  ------------+---------+----------
  63   combination|   (~    | a(~ -> \e,1G\e(B
  64 " nil t t nil nil t nil nil nil nil t)
  65
  66
  67 (viet-quail-define-rules)
  68
  69 ;;; quail/viqr.el ends here