405 lines
6.4 KiB
Plaintext
405 lines
6.4 KiB
Plaintext
;; ath-phonetic.mim -- Phonetic input method for Eastern Cree syllabics
|
||
;; Copyright (C) 2010
|
||
;; Goren (goren -at- riseup.net)
|
||
;; This input method table is licensed under the WTFPL.
|
||
;; See http://sam.zoy.org/wtfpl/ for the full text of license and
|
||
;; conditions that apply.
|
||
|
||
;; This file is made for the m17n contrib; a sub-part of the m17n
|
||
;; library.
|
||
|
||
;; The m17n library is free software; you can redistribute it and/or
|
||
;; modify it under the terms of the GNU Lesser General Public License
|
||
;; as published by the Free Software Foundation; either version 2.1 of
|
||
;; the License, or (at your option) any later version.
|
||
|
||
;; The m17n library 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
|
||
;; Lesser General Public License for more details.
|
||
|
||
;; You should have received a copy of the GNU Lesser General Public
|
||
;; License along with the m17n library; if not, write to the Free
|
||
;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
||
;; Boston, MA 02110-1301 USA.
|
||
|
||
;;; Input method for Carrier language
|
||
;;;
|
||
|
||
(input-method ath phonetic)
|
||
|
||
(description
|
||
"Phonetic input method for Carrier (ᑕᗸᒡ Dakeɬ) language Déné (ᑓᘅ) Syllabics.
|
||
Although rarely used novadays, this interesting writing system has a big value.
|
||
The input table mostly follows the CLC standard (http://www.ydli.org/dakinfo/clcexp.htm)
|
||
Some additional ways to input di- or trigraph consonants were added for convinience.
|
||
")
|
||
|
||
(title "ᑕᗸᒡ")
|
||
|
||
;; The symbol for [s̪] is not in official unicode standard, but is
|
||
;; chosen from reserved for private use range.
|
||
(variable (s-bridge-below "private use" 0xE3AB))
|
||
|
||
(map
|
||
(map
|
||
("-" "") ;; adding dead dash to break symbols input when needed.
|
||
|
||
("a" "ᐊ")
|
||
("u" "ᐅ")
|
||
("e" "ᐈ")
|
||
("i" "ᐉ")
|
||
("o" "ᐃ")
|
||
("oo" "ᐁ")
|
||
|
||
("ba" "ᗭ")
|
||
("bu" "ᗪ")
|
||
("be" "ᗫ")
|
||
("bi" "ᗬ")
|
||
("bo" "ᗩ")
|
||
("boo" "ᗨ")
|
||
("b" "ᗮ")
|
||
|
||
("ta" "ᗡ")
|
||
("tu" "ᗞ")
|
||
("te" "ᗟ")
|
||
("ti" "ᗠ")
|
||
("to" "ᗝ")
|
||
("too" "ᗜ")
|
||
("t" "ᐪ")
|
||
|
||
("da" "ᑕ")
|
||
("du" "ᑐ")
|
||
("de" "ᑓ")
|
||
("di" "ᑔ")
|
||
("do" "ᑎ")
|
||
("doo" "ᑌ")
|
||
|
||
;; [t']-sound series
|
||
("Ta" "ᗧ")
|
||
("Tu" "ᗤ")
|
||
("Te" "ᗥ")
|
||
("Ti" "ᗦ")
|
||
("To" "ᗣ")
|
||
("Too" "ᗢ")
|
||
|
||
("t'a" "ᗧ")
|
||
("t'u" "ᗤ")
|
||
("t'e" "ᗥ")
|
||
("t'i" "ᗦ")
|
||
("t'o" "ᗣ")
|
||
("t'oo" "ᗢ")
|
||
|
||
;; [k]
|
||
("ka" "ᗺ")
|
||
("ku" "ᗷ")
|
||
("ke" "ᗸ")
|
||
("ki" "ᗹ")
|
||
("ko" "ᗶ")
|
||
("koo" "ᗵ")
|
||
("k" "ᐠ")
|
||
|
||
;; [g]
|
||
("ga" "ᗴ")
|
||
("gu" "ᗱ")
|
||
("ge" "ᗲ")
|
||
("gi" "ᗳ")
|
||
("go" "ᗰ")
|
||
("goo" "ᗯ")
|
||
("g" "ᐟ")
|
||
|
||
;; [k']
|
||
|
||
("Ka" "ᘀ")
|
||
("Ku" "ᗽ")
|
||
("Ke" "ᗾ")
|
||
("Ki" "ᗿ")
|
||
("Ko" "ᗼ")
|
||
("Koo" "ᗻ")
|
||
("K" "ᘁ")
|
||
|
||
("k'a" "ᘀ")
|
||
("k'u" "ᗽ")
|
||
("k'e" "ᗾ")
|
||
("k'i" "ᗿ")
|
||
("k'o" "ᗼ")
|
||
("k'oo" "ᗻ")
|
||
("k'" "ᘁ")
|
||
|
||
;; [tʃ]
|
||
|
||
("cha" "ᙠ")
|
||
("chu" "ᙝ")
|
||
("che" "ᙞ")
|
||
("chi" "ᙟ")
|
||
("cho" "ᙜ")
|
||
("choo" "ᙛ")
|
||
|
||
;; [dʒ]
|
||
|
||
("ja" "ᘛ")
|
||
("ju" "ᘗ")
|
||
("je" "ᘘ")
|
||
("ji" "ᘙ")
|
||
("jo" "ᘖ")
|
||
("joo" "ᘔ")
|
||
|
||
;; [tʃ'] - three variants
|
||
|
||
("ch'a" "ᘡ")
|
||
("ch'u" "ᘞ")
|
||
("ch'e" "ᘟ")
|
||
("ch'i" "ᘠ")
|
||
("ch'o" "ᘝ")
|
||
("ch'oo" "ᘜ")
|
||
|
||
("Cha" "ᘡ")
|
||
("Chu" "ᘞ")
|
||
("Che" "ᘟ")
|
||
("Chi" "ᘠ")
|
||
("Cho" "ᘝ")
|
||
("Choo" "ᘜ")
|
||
|
||
("CHa" "ᘡ")
|
||
("CHu" "ᘞ")
|
||
("CHe" "ᘟ")
|
||
("CHi" "ᘠ")
|
||
("CHo" "ᘝ")
|
||
("CHoo" "ᘜ")
|
||
|
||
;; [ts]
|
||
|
||
("tsa" "ᙦ")
|
||
("tsu" "ᙣ")
|
||
("tse" "ᙤ")
|
||
("tsi" "ᙥ")
|
||
("tso" "ᙢ")
|
||
("tsoo" "ᙡ")
|
||
|
||
("ca" "ᙦ")
|
||
("cu" "ᙣ")
|
||
("ce" "ᙤ")
|
||
("ci" "ᙥ")
|
||
("co" "ᙢ")
|
||
("coo" "ᙡ")
|
||
|
||
;; [dz]
|
||
|
||
("dza" "ᙍ")
|
||
("dzu" "ᙊ")
|
||
("dze" "ᙋ")
|
||
("dzi" "ᙌ")
|
||
("dzo" "ᙉ")
|
||
("dzoo" "ᙈ")
|
||
|
||
("Ja" "ᙍ")
|
||
("Ju" "ᙊ")
|
||
("Je" "ᙋ")
|
||
("Ji" "ᙌ")
|
||
("Jo" "ᙉ")
|
||
("Joo" "ᙈ")
|
||
|
||
;; [ts']
|
||
|
||
("Ca" "ᙬ")
|
||
("Cu" "ᙩ")
|
||
("Ce" "ᙪ")
|
||
("Ci" "ᙫ")
|
||
("Co" "ᙨ")
|
||
("Coo" "ᙧ")
|
||
|
||
("ts'a" "ᙬ")
|
||
("ts'u" "ᙩ")
|
||
("ts'e" "ᙪ")
|
||
("ts'i" "ᙫ")
|
||
("ts'o" "ᙨ")
|
||
("ts'oo" "ᙧ")
|
||
|
||
;; [n]
|
||
|
||
("na" "ᘇ")
|
||
("nu" "ᘄ")
|
||
("ne" "ᘅ")
|
||
("ni" "ᘆ")
|
||
("no" "ᘃ")
|
||
("noo" "ᘂ")
|
||
("n" "ᐣ")
|
||
|
||
;; [m]
|
||
("ma" "ᘍ")
|
||
("mu" "ᘊ")
|
||
("me" "ᘋ")
|
||
("mi" "ᘌ")
|
||
("mo" "ᘉ")
|
||
("moo" "ᘈ")
|
||
("m" "ᒼ")
|
||
|
||
("ng" "ᓑ") ;; [ŋ]
|
||
|
||
;;[l]
|
||
("la" "ᘧ")
|
||
("lu" "ᘤ")
|
||
("le" "ᘥ")
|
||
("li" "ᘦ")
|
||
("lo" "ᘣ")
|
||
("loo" "ᘢ")
|
||
("l" "ᑊ")
|
||
|
||
;; [ɬ] - adding two variants of input of this sound as different people find different variants more intuitive.
|
||
("La" "ᘳ")
|
||
("Lu" "ᘰ")
|
||
("Le" "ᘱ")
|
||
("Li" "ᘲ")
|
||
("Lo" "ᘯ")
|
||
("Loo" "ᘮ")
|
||
("L" "ᒡ")
|
||
|
||
("lha" "ᘳ")
|
||
("lhu" "ᘰ")
|
||
("lhe" "ᘱ")
|
||
("lhi" "ᘲ")
|
||
("lho" "ᘯ")
|
||
("lhoo" "ᘮ")
|
||
("lh" "ᒡ")
|
||
|
||
;; [tɬ]
|
||
("tla" "ᘹ")
|
||
("tlu" "ᘶ")
|
||
("tle" "ᘷ")
|
||
("tli" "ᘸ")
|
||
("tlo" "ᘵ")
|
||
("tloo" "ᘴ")
|
||
|
||
;; [dl]
|
||
("dla" "ᘭ")
|
||
("dlu" "ᘪ")
|
||
("dle" "ᘫ")
|
||
("dli" "ᘬ")
|
||
("dlo" "ᘩ")
|
||
("dloo" "ᘨ")
|
||
|
||
;; [tɬ']
|
||
("tl'a" "ᘿ")
|
||
("tl'u" "ᘼ")
|
||
("tl'e" "ᘽ")
|
||
("tl'i" "ᘾ")
|
||
("tl'o" "ᘻ")
|
||
("tl'oo" "ᘺ")
|
||
|
||
;; [s]
|
||
("sa" "ᙓ")
|
||
("su" "ᙐ")
|
||
("se" "ᙑ")
|
||
("si" "ᙒ")
|
||
("so" "ᙏ")
|
||
("soo" "ᙎ")
|
||
("s" "ᔆ")
|
||
|
||
("S" (insert s-bridge-below))
|
||
|
||
("za" "ᙅ")
|
||
("zu" "ᙂ")
|
||
("ze" "ᙃ")
|
||
("zi" "ᙄ")
|
||
("zo" "ᙁ")
|
||
("zoo" "ᙀ")
|
||
("z" "ᙆ")
|
||
|
||
("Z" "ᙇ") ;; [z̪]
|
||
|
||
;; [ʃ]
|
||
("sha" "ᙙ")
|
||
("shu" "ᙖ")
|
||
("she" "ᙗ")
|
||
("shi" "ᙘ")
|
||
("sho" "ᙕ")
|
||
("shoo" "ᙔ")
|
||
("sh" "ᙚ")
|
||
|
||
;; [x]
|
||
("kha" "ᗉ")
|
||
("khu" "ᗆ")
|
||
("khe" "ᗇ")
|
||
("khi" "ᗈ")
|
||
("kho" "ᗅ")
|
||
("khoo" "ᗄ")
|
||
("kh" "ᐥ")
|
||
|
||
("xa" "ᗉ")
|
||
("xu" "ᗆ")
|
||
("xe" "ᗇ")
|
||
("xi" "ᗈ")
|
||
("xo" "ᗅ")
|
||
("xoo" "ᗄ")
|
||
("x" "ᐥ")
|
||
|
||
;; [ɣ]
|
||
("gha" "ᗏ")
|
||
("ghu" "ᗌ")
|
||
("ghe" "ᗍ")
|
||
("ghi" "ᗎ")
|
||
("gho" "ᗋ")
|
||
("ghoo" "ᗊ")
|
||
("gh" "ᐦ")
|
||
|
||
("Ga" "ᗏ")
|
||
("Gu" "ᗌ")
|
||
("Ge" "ᗍ")
|
||
("Gi" "ᗎ")
|
||
("Go" "ᗋ")
|
||
("Goo" "ᗊ")
|
||
("G" "ᐦ")
|
||
|
||
;; [h]
|
||
("ha" "ᐸ")
|
||
("hu" "ᐳ")
|
||
("he" "ᐶ")
|
||
("hi" "ᐷ")
|
||
("ho" "ᐱ")
|
||
("hoo" "ᐯ")
|
||
("h" "ᑋ")
|
||
|
||
;; [w]
|
||
("wa" "ᗕ")
|
||
("wu" "ᗒ")
|
||
("we" "ᗓ")
|
||
("wi" "ᗔ")
|
||
("wo" "ᗑ")
|
||
("woo" "ᗐ")
|
||
|
||
;; [xʷ]
|
||
("wha" "ᗛ")
|
||
("whu" "ᗘ")
|
||
("whe" "ᗙ")
|
||
("whi" "ᗚ")
|
||
("who" "ᗗ")
|
||
("whoo" "ᗖ")
|
||
|
||
("xwa" "ᗛ")
|
||
("xwu" "ᗘ")
|
||
("xwe" "ᗙ")
|
||
("xwi" "ᗚ")
|
||
("xwo" "ᗗ")
|
||
("xwoo" "ᗖ")
|
||
|
||
;; [j]
|
||
("ya" "ᘓ")
|
||
("yu" "ᘐ")
|
||
("ye" "ᘑ")
|
||
("yi" "ᘒ")
|
||
("yo" "ᘏ")
|
||
("yoo" "ᘎ")
|
||
|
||
("'" "ᐧ") ;; [ʔ], a glottal stop.
|
||
|
||
))
|
||
|
||
(state
|
||
(init
|
||
(map)))
|
||
|
||
;; Local Variables:
|
||
;; coding: utf-8
|
||
;; mode: lisp
|
||
;; End:
|