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

   1 ;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system  -*-coding: utf-8;-*-
   2
   3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
   4 ;;   2006, 2007, 2008, 2009, 2010, 2011
   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 3 of the License, or
  15 ;; (at your option) 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.  If not, see <http://www.gnu.org/licenses/>.
  24
  25 ;;; Commentary:
  26
  27 ;;; Code:
  28
  29 (require 'quail)
  30 (require 'viet-util)
  31
  32 ;; `viet-viqr-alist' is an alist of Vietnamese characters vs
  33 ;; corresponding VIQR strings.  We create Quail map which maps VIQR
  34 ;; strings to corresponding Vietnamese characters.
  35
  36 (defmacro viet-quail-define-rules ()
  37   (cons 'quail-define-rules
  38         (let ((l viet-viqr-alist)
  39               rules)
  40           (while l
  41             (setq rules (cons (list (cdr (car l)) (car (car l))) rules))
  42             (setq l (cdr l)))
  43           rules)))
  44
  45 (quail-define-package
  46  "vietnamese-viqr" "Vietnamese" "VQ" t
  47  "Vietnamese input method with VIQR mnemonic system
  48
  49     effect   | postfix | examples
  50  ------------+---------+----------
  51     breve    |    (    | a( -> ă
  52   circumflex |    ^    | a^ -> â
  53     horn     |    +    | o+ -> ơ
  54  ------------+---------+----------
  55     acute    |    '    | a' -> á
  56     grave    |    \\=`    | a\\=` -> à
  57   hook above |    ?    | a? -> ả
  58     tilde    |    ~    | a~ -> ã
  59    dot below |    .    | a. -> ạ
  60  ------------+---------+----------
  61     d bar    |   dd    | dd -> đ
  62  ------------+---------+----------
  63   no compose |    \\    | a\\. -> a.
  64  ------------+---------+----------
  65   combination|   (~    | a(~ -> ẵ
  66 " nil t t nil nil t nil nil nil nil t)
  67
  68
  69 (viet-quail-define-rules)
  70
  71 ;;; viqr.el ends here