mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity
ad8f55acb4
emacs/leim/quail/vntelex.el
Glenn Morris 3d54445884 Switch to recommended form of GPLv3 permissions notice. 
Fix footer where needed.
2008-05-07 03:37:08 +00:00

431 lines
14 KiB
EmacsLisp
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;;; vntelex.el --- Quail package for Vietnamese by Telex method
;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
;; Free Software Foundation, Inc.
;; Author: Werner Lemberg <wl@gnu.org>
;; Keywords: multilingual, input method, Vietnamese
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; based on the files VietnameseTelex.kmap (written by Nguyen Thanh
;; Bien <biennt@linuxvn.com>) and VNtelex.kmap (written by Nguyen Dai
;; Quy <DaiQuy.Nguyen@ulg.ac.be>) from the yudit 2.4 package
;;; Code:
(require 'quail)
(quail-define-package
"vietnamese-telex" ; NAME
"Vietnamese" ; LANGUAGE
"VT" ; TITLE
t ; GUIDANCE
"Vietnamese telex input method
Vowels with circumflex:
aa -> ,1b(B, EE -> ,2j(B, etc.
Other diacritics:
effect postfix examples
------------------------------
breve w aw -> ,1e(B
horn w ow -> ,1=(B
acute s as -> ,1a(B
grave f af -> ,1`(B
hook above r ar -> ,1d(B
tilde x ax -> ,1c(B
dot below j aj -> ,1U(B
d bar dd -> ,1p(B
Combinations:
AWF -> ,2"(B, owx -> ,1^(B, etc.
Alternatives:
EE = Ee -> ,2j(B, AWF = Awf -> ,2"(B, etc.
Doubling the postfix (but not in combinations) separates the letter
and postfix: Eee -> Ee, ajj -> aj, etc.
" ; DOCSTRING
nil ; TRANSLATION-KEYS
t ; FORGET-LAST-SELECTION
nil ; DETERMINISTIC
nil ; KBD-TRANSLATE
nil ; SHOW-LAYOUT
nil ; CREATE-DECODE-MAP
nil ; MAXIMUM-SHORTEST
nil ; OVERLAY-PLIST
nil ; UPDATE-TRANSLATION-FUNCTION
nil ; CONVERSION-KEYS
t) ; SIMPLE
(quail-define-rules
("af" ?,1`(B) ; LATIN SMALL LETTER A WITH GRAVE
("AF" ?,2`(B) ; LATIN CAPITAL LETTER A WITH GRAVE
("Af" ?,2`(B)
("as" ?,1a(B) ; LATIN SMALL LETTER A WITH ACUTE
("AS" ?,2a(B) ; LATIN CAPITAL LETTER A WITH ACUTE
("As" ?,2a(B)
("aa" ?,1b(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX
("AA" ?,2b(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
("Aa" ?,2b(B)
("ax" ?,1c(B) ; LATIN SMALL LETTER A WITH TILDE
("AX" ?,2c(B) ; LATIN CAPITAL LETTER A WITH TILDE
("Ax" ?,2c(B)
("ef" ?,1h(B) ; LATIN SMALL LETTER E WITH GRAVE
("EF" ?,2h(B) ; LATIN CAPITAL LETTER E WITH GRAVE
("Ef" ?,2h(B)
("es" ?,1i(B) ; LATIN SMALL LETTER E WITH ACUTE
("ES" ?,2i(B) ; LATIN CAPITAL LETTER E WITH ACUTE
("Es" ?,2i(B)
("ee" ?,1j(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX
("EE" ?,2j(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
("Ee" ?,2j(B)
("if" ?,1l(B) ; LATIN SMALL LETTER I WITH GRAVE
("IF" ?,2l(B) ; LATIN CAPITAL LETTER I WITH GRAVE
("If" ?,2l(B)
("is" ?,1m(B) ; LATIN SMALL LETTER I WITH ACUTE
("IS" ?,2m(B) ; LATIN CAPITAL LETTER I WITH ACUTE
("Is" ?,2m(B)
("of" ?,1r(B) ; LATIN SMALL LETTER O WITH GRAVE
("OF" ?,2r(B) ; LATIN CAPITAL LETTER O WITH GRAVE
("Of" ?,2r(B)
("os" ?,1s(B) ; LATIN SMALL LETTER O WITH ACUTE
("OS" ?,2s(B) ; LATIN CAPITAL LETTER O WITH ACUTE
("Os" ?,2s(B)
("oo" ?,1t(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX
("OO" ?,2t(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
("Oo" ?,2t(B)
("ox" ?,1u(B) ; LATIN SMALL LETTER O WITH TILDE
("OX" ?,2u(B) ; LATIN CAPITAL LETTER O WITH TILDE
("Ox" ?,2u(B)
("uf" ?,1y(B) ; LATIN SMALL LETTER U WITH GRAVE
("UF" ?,2y(B) ; LATIN CAPITAL LETTER U WITH GRAVE
("Uf" ?,2y(B)
("us" ?,1z(B) ; LATIN SMALL LETTER U WITH ACUTE
("US" ?,2z(B) ; LATIN CAPITAL LETTER U WITH ACUTE
("Us" ?,2z(B)
("ys" ?,1}(B) ; LATIN SMALL LETTER Y WITH ACUTE
("YS" ?,2}(B) ; LATIN CAPITAL LETTER Y WITH ACUTE
("Ys" ?,2}(B)
("aw" ?,1e(B) ; LATIN SMALL LETTER A WITH BREVE
("AW" ?,2e(B) ; LATIN CAPITAL LETTER A WITH BREVE
("Aw" ?,2e(B)
("ix" ?,1n(B) ; LATIN SMALL LETTER I WITH TILDE
("IX" ?,2n(B) ; LATIN CAPITAL LETTER I WITH TILDE
("Ix" ?,2n(B)
("ux" ?,1{(B) ; LATIN SMALL LETTER U WITH TILDE
("UX" ?,2{(B) ; LATIN CAPITAL LETTER U WITH TILDE
("Ux" ?,2{(B)
("ow" ?,1=(B) ; LATIN SMALL LETTER O WITH HORN
("OW" ?,2=(B) ; LATIN CAPITAL LETTER O WITH HORN
("Ow" ?,2=(B)
("uw" ?,1_(B) ; LATIN SMALL LETTER U WITH HORN
("UW" ?,2_(B) ; LATIN CAPITAL LETTER U WITH HORN
("Uw" ?,2_(B)
("aj" ?,1U(B) ; LATIN SMALL LETTER A WITH DOT BELOW
("AJ" ?,2U(B) ; LATIN CAPITAL LETTER A WITH DOT BELOW
("Aj" ?,2U(B)
("ar" ?,1d(B) ; LATIN SMALL LETTER A WITH HOOK ABOVE
("AR" ?,2d(B) ; LATIN CAPITAL LETTER A WITH HOOK ABOVE
("Ar" ?,2d(B)
("aas" ?,1$(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
("AAS" ?,2$(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
("Aas" ?,2$(B)
("aaf" ?,1%(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
("AAF" ?,2%(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
("Aaf" ?,2%(B)
("aar" ?,1&(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
("AAR" ?,2&(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
("Aar" ?,2&(B)
("aax" ?,1g(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE
("AAX" ?,2g(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE
("Aax" ?,2g(B)
("aaj" ?,1'(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
("AAJ" ?,2'(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
("Aaj" ?,2'(B)
("aws" ?,1!(B) ; LATIN SMALL LETTER A WITH BREVE AND ACUTE
("AWS" ?,2!(B) ; LATIN CAPITAL LETTER A WITH BREVE AND ACUTE
("Aws" ?,2!(B)
("awf" ?,1"(B) ; LATIN SMALL LETTER A WITH BREVE AND GRAVE
("AWF" ?,2"(B) ; LATIN CAPITAL LETTER A WITH BREVE AND GRAVE
("Awf" ?,2"(B)
("awr" ?,1F(B) ; LATIN SMALL LETTER A WITH BREVE AND HOOK ABOVE
("AWR" ?,2F(B) ; LATIN CAPITAL LETTER A WITH BREVE AND HOOK ABOVE
("Awr" ?,2F(B)
("awx" ?,1G(B) ; LATIN SMALL LETTER A WITH BREVE AND TILDE
("AWX" ?,2G(B) ; LATIN CAPITAL LETTER A WITH BREVE AND TILDE
("Awx" ?,2G(B)
("awj" ?,1#(B) ; LATIN SMALL LETTER A WITH BREVE AND DOT BELOW
("AWJ" ?,2#(B) ; LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
("Awj" ?,2#(B)
("ej" ?,1)(B) ; LATIN SMALL LETTER E WITH DOT BELOW
("EJ" ?,2)(B) ; LATIN CAPITAL LETTER E WITH DOT BELOW
("Ej" ?,2)(B)
("er" ?,1k(B) ; LATIN SMALL LETTER E WITH HOOK ABOVE
("ER" ?,2k(B) ; LATIN CAPITAL LETTER E WITH HOOK ABOVE
("Er" ?,2k(B)
("ex" ?,1((B) ; LATIN SMALL LETTER E WITH TILDE
("EX" ?,2((B) ; LATIN CAPITAL LETTER E WITH TILDE
("Ex" ?,2((B)
("ees" ?,1*(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
("EES" ?,2*(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
("Ees" ?,2*(B)
("eef" ?,1+(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
("EEF" ?,2+(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
("Eef" ?,2+(B)
("eer" ?,1,(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
("EER" ?,2,(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
("Eer" ?,2,(B)
("eex" ?,1-(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
("EEX" ?,2-(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
("Eex" ?,2-(B)
("eej" ?,1.(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
("EEJ" ?,2.(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
("Eej" ?,2.(B)
("ir" ?,1o(B) ; LATIN SMALL LETTER I WITH HOOK ABOVE
("IR" ?,2o(B) ; LATIN CAPITAL LETTER I WITH HOOK ABOVE
("Ir" ?,2o(B)
("ij" ?,18(B) ; LATIN SMALL LETTER I WITH DOT BELOW
("IJ" ?,28(B) ; LATIN CAPITAL LETTER I WITH DOT BELOW
("Ij" ?,28(B)
("oj" ?,1w(B) ; LATIN SMALL LETTER O WITH DOT BELOW
("OJ" ?,2w(B) ; LATIN CAPITAL LETTER O WITH DOT BELOW
("Oj" ?,2w(B)
("or" ?,1v(B) ; LATIN SMALL LETTER O WITH HOOK ABOVE
("OR" ?,2v(B) ; LATIN CAPITAL LETTER O WITH HOOK ABOVE
("Or" ?,2v(B)
("oos" ?,1/(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
("OOS" ?,2/(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
("Oos" ?,2/(B)
("oof" ?,10(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
("OOF" ?,20(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
("Oof" ?,20(B)
("oor" ?,11(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
("OOR" ?,21(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
("Oor" ?,21(B)
("oox" ?,12(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
("OOX" ?,22(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
("Oox" ?,22(B)
("ooj" ?,15(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
("OOJ" ?,25(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
("Ooj" ?,25(B)
("ows" ?,1>(B) ; LATIN SMALL LETTER O WITH HORN AND ACUTE
("OWS" ?,2>(B) ; LATIN CAPITAL LETTER O WITH HORN AND ACUTE
("Ows" ?,2>(B)
("owf" ?,16(B) ; LATIN SMALL LETTER O WITH HORN AND GRAVE
("OWF" ?,26(B) ; LATIN CAPITAL LETTER O WITH HORN AND GRAVE
("Owf" ?,26(B)
("owr" ?,17(B) ; LATIN SMALL LETTER O WITH HORN AND HOOK ABOVE
("OWR" ?,27(B) ; LATIN CAPITAL LETTER O WITH HORN AND HOOK ABOVE
("Owr" ?,27(B)
("owx" ?,1^(B) ; LATIN SMALL LETTER O WITH HORN AND TILDE
("OWX" ?,2^(B) ; LATIN CAPITAL LETTER O WITH HORN AND TILDE
("Owx" ?,2^(B)
("owj" ?,1~(B) ; LATIN SMALL LETTER O WITH HORN AND DOT BELOW
("OWJ" ?,2~(B) ; LATIN CAPITAL LETTER O WITH HORN AND DOT BELOW
("Owj" ?,2~(B)
("uj" ?,1x(B) ; LATIN SMALL LETTER U WITH DOT BELOW
("UJ" ?,2x(B) ; LATIN CAPITAL LETTER U WITH DOT BELOW
("Uj" ?,2x(B)
("ur" ?,1|(B) ; LATIN SMALL LETTER U WITH HOOK ABOVE
("UR" ?,2|(B) ; LATIN CAPITAL LETTER U WITH HOOK ABOVE
("Ur" ?,2|(B)
("uws" ?,1Q(B) ; LATIN SMALL LETTER U WITH HORN AND ACUTE
("UWS" ?,2Q(B) ; LATIN CAPITAL LETTER U WITH HORN AND ACUTE
("Uws" ?,2Q(B)
("uwf" ?,1W(B) ; LATIN SMALL LETTER U WITH HORN AND GRAVE
("UWF" ?,2W(B) ; LATIN CAPITAL LETTER U WITH HORN AND GRAVE
("Uwf" ?,2W(B)
("uwr" ?,1X(B) ; LATIN SMALL LETTER U WITH HORN AND HOOK ABOVE
("UWR" ?,2X(B) ; LATIN CAPITAL LETTER U WITH HORN AND HOOK ABOVE
("Uwr" ?,2X(B)
("uwx" ?,1f(B) ; LATIN SMALL LETTER U WITH HORN AND TILDE
("UWX" ?,2f(B) ; LATIN CAPITAL LETTER U WITH HORN AND TILDE
("Uwx" ?,2f(B)
("uwj" ?,1q(B) ; LATIN SMALL LETTER U WITH HORN AND DOT BELOW
("UWJ" ?,2q(B) ; LATIN CAPITAL LETTER U WITH HORN AND DOT BELOW
("Uwj" ?,2q(B)
("yf" ?,1O(B) ; LATIN SMALL LETTER Y WITH GRAVE
("YF" ?,2O(B) ; LATIN CAPITAL LETTER Y WITH GRAVE
("Yf" ?,2O(B)
("yj" ?,1\(B) ; LATIN SMALL LETTER Y WITH DOT BELOW
("YJ" ?,2\(B) ; LATIN CAPITAL LETTER Y WITH DOT BELOW
("Yj" ?,2\(B)
("yr" ?,1V(B) ; LATIN SMALL LETTER Y WITH HOOK ABOVE
("YR" ?,2V(B) ; LATIN CAPITAL LETTER Y WITH HOOK ABOVE
("Yr" ?,2V(B)
("yx" ?,1[(B) ; LATIN SMALL LETTER Y WITH TILDE
("YX" ?,2[(B) ; LATIN CAPITAL LETTER Y WITH TILDE
("Yx" ?,2[(B)
("dd" ?,1p(B) ; LATIN SMALL LETTER D WITH STROKE
("DD" ?,2p(B) ; LATIN CAPITAL LETTER D WITH STROKE
("Dd" ?,2p(B)
;("$$" ?$,1tK(B) ; U+20AB DONG SIGN (#### check)
("aff" ["aff"])
("AFF" ["AF"])
("Aff" ["Af"])
("ass" ["as"])
("ASS" ["AS"])
("Ass" ["As"])
("aaa" ["aa"])
("AAA" ["AA"])
("Aaa" ["Aa"])
("axx" ["ax"])
("AXX" ["AX"])
("Axx" ["Ax"])
("eff" ["ef"])
("EFF" ["EF"])
("Eff" ["Ef"])
("ess" ["es"])
("ESS" ["ES"])
("Ess" ["Es"])
("eee" ["ee"])
("EEE" ["EE"])
("Eee" ["Ee"])
("iff" ["if"])
("IFF" ["IF"])
("Iff" ["If"])
("iss" ["is"])
("ISS" ["IS"])
("Iss" ["Is"])
("off" ["of"])
("OFF" ["OF"])
("Off" ["Of"])
("oss" ["os"])
("OSS" ["OS"])
("Oss" ["Os"])
("ooo" ["oo"])
("OOO" ["OO"])
("Ooo" ["Oo"])
("oxx" ["ox"])
("OXX" ["OX"])
("Oxx" ["Ox"])
("uff" ["uf"])
("UFF" ["UF"])
("Uff" ["Uf"])
("uss" ["us"])
("USS" ["US"])
("Uss" ["Us"])
("yss" ["ys"])
("YSS" ["YS"])
("Yss" ["Ys"])
("aww" ["aw"])
("AWW" ["AW"])
("Aww" ["Aw"])
("ixx" ["ix"])
("IXX" ["IX"])
("Ixx" ["Ix"])
("uxx" ["ux"])
("UXX" ["UX"])
("Uxx" ["ux"])
("oww" ["ow"])
("OWW" ["OW"])
("Oww" ["Ow"])
("uww" ["uw"])
("UWW" ["UW"])
("Uww" ["Uw"])
("ajj" ["aj"])
("AJJ" ["AJ"])
("Ajj" ["Aj"])
("arr" ["ar"])
("ARR" ["AR"])
("Arr" ["Ar"])
("ejj" ["ej"])
("EJJ" ["EJ"])
("Ejj" ["Ej"])
("err" ["er"])
("ERR" ["ER"])
("Err" ["Er"])
("exx" ["ex"])
("EXX" ["EX"])
("Exx" ["Ex"])
("irr" ["ir"])
("IRR" ["IR"])
("Irr" ["Ir"])
("ijj" ["ij"])
("IJJ" ["IJ"])
("Ijj" ["Ij"])
("ojj" ["oj"])
("OJJ" ["OJ"])
("Ojj" ["Oj"])
("orr" ["or"])
("ORR" ["OR"])
("Orr" ["Or"])
("ujj" ["uj"])
("UJJ" ["UJ"])
("Ujj" ["Uj"])
("urr" ["ur"])
("URR" ["UR"])
("Urr" ["Ur"])
("yff" ["yf"])
("YFF" ["YF"])
("Yff" ["Yf"])
("yjj" ["yj"])
("YJJ" ["YJ"])
("Yjj" ["Yj"])
("yrr" ["yr"])
("YRR" ["YR"])
("Yrr" ["Yr"])
("yxx" ["yx"])
("YXX" ["YX"])
("Yxx" ["Yx"])
("ddd" ["dd"])
("DDD" ["DD"])
("Ddd" ["Dd"])
;("$$$" ["$$"])
;; escape from composition
("\\w" ?w) ; breve or horn
("\\W" ?W)
("\\a" ?a) ; a circumflex
("\\A" ?A) ; A circumflex
("\\e" ?e) ; e circumflex
("\\E" ?E) ; E circumflex
("\\o" ?o) ; o circumflex
("\\O" ?O) ; O circumflex
("\\s" ?s) ; acute
("\\S" ?S)
("\\f" ?f) ; grave
("\\F" ?F)
("\\r" ?r) ; hook above
("\\R" ?R)
("\\x" ?x) ; tilde
("\\X" ?X)
("\\j" ?j) ; dot below
("\\J" ?J)
("\\d" ?d) ; d-bar (d)
("\\D" ?D) ; D-bar (d)
("\\\\" ?\\) ; literal backslash
)
;; Local Variables:
;; coding: iso-2022-7bit
;; End:
;; arch-tag: 60db6880-0c9f-4456-b9fe-628de053a5ab
;;; vntelex.el ends here
Reference in New Issue View Git Blame Copy Permalink