mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-11 09:20:51 +00:00
652 lines
20 KiB
EmacsLisp
652 lines
20 KiB
EmacsLisp
;;; indian.el --- Quail packages for inputting Indian -*- lexical-binding: t; -*-
|
||
|
||
;; Copyright (C) 2000-2022 Free Software Foundation, Inc.
|
||
|
||
;; Author: KAWABATA, Taichi <kawabata@m17n.org>
|
||
|
||
;; Keywords: multilingual, input method, Indian, Devanagari
|
||
|
||
;; 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 <https://www.gnu.org/licenses/>.
|
||
|
||
;;; Commentary:
|
||
|
||
;; History:
|
||
|
||
;; 2000.12.12
|
||
;; Totally re-written from devanagari.el to handle multiple Indian Scripts.
|
||
|
||
;;; Code:
|
||
|
||
(require 'quail)
|
||
(require 'ind-util)
|
||
|
||
;;;
|
||
;;; Input by transliteration
|
||
;;;
|
||
|
||
(defun quail-define-indian-trans-package (hashtbls pkgname
|
||
lang title doc)
|
||
;; This is a funcall to avoid `quail-update-leim-list-file'
|
||
;; determining that this is a quail definition (it searches for
|
||
;; "(quail-define-package").
|
||
(funcall #'quail-define-package pkgname lang title t doc
|
||
nil nil nil nil nil nil t nil)
|
||
(maphash
|
||
(lambda (key val)
|
||
(quail-defrule key (if (= (length val) 1)
|
||
(string-to-char val)
|
||
(vector val))))
|
||
(cdr hashtbls)))
|
||
|
||
;; This needs to be seen by quail-update-leim-list-file, but cannot be
|
||
;; commented out because quail-update-leim-list-file ignores
|
||
;; commented-out lines.
|
||
(if nil
|
||
(quail-define-package "devanagari-itrans" "Devanagari" "DevIT" t "Devanagari ITRANS"))
|
||
(quail-define-indian-trans-package
|
||
indian-dev-itrans-v5-hash "devanagari-itrans" "Devanagari" "DevIT"
|
||
"Devanagari transliteration by ITRANS method.")
|
||
(quail-defrule "..." ?॥)
|
||
(quail-defrule "\\'" ?॑)
|
||
(quail-defrule "\\_" ?॒)
|
||
(quail-defrule "\\__" ?_)
|
||
(quail-defrule "\\''" ?')
|
||
|
||
(if nil
|
||
(quail-define-package "devanagari-kyoto-harvard" "Devanagari" "DevKH" t "Devanagari Kyoto-Harvard"))
|
||
(quail-define-indian-trans-package
|
||
indian-dev-kyoto-harvard-hash
|
||
"devanagari-kyoto-harvard" "Devanagari" "DevKH"
|
||
"Devanagari transliteration by Kyoto-Harvard method.")
|
||
|
||
(if nil
|
||
(quail-define-package "devanagari-aiba" "Devanagari" "DevAB" t "Devanagari Aiba"))
|
||
(quail-define-indian-trans-package
|
||
indian-dev-aiba-hash "devanagari-aiba" "Devanagari" "DevAB"
|
||
"Devanagari transliteration by Aiba-method.")
|
||
|
||
(if nil
|
||
(quail-define-package "punjabi-itrans" "Punjabi" "PnjIT" t "Punjabi ITRANS"))
|
||
(quail-define-indian-trans-package
|
||
indian-pnj-itrans-v5-hash "punjabi-itrans" "Punjabi" "PnjIT"
|
||
"Punjabi transliteration by ITRANS method.")
|
||
|
||
(if nil
|
||
(quail-define-package "gujarati-itrans" "Gujarati" "GjrIT" t "Gujarati ITRANS"))
|
||
(quail-define-indian-trans-package
|
||
indian-gjr-itrans-v5-hash "gujarati-itrans" "Gujarati" "GjrIT"
|
||
"Gujarati transliteration by ITRANS method.")
|
||
|
||
(if nil
|
||
(quail-define-package "oriya-itrans" "Oriya" "OriIT" t "Oriya ITRANS"))
|
||
(quail-define-indian-trans-package
|
||
indian-ori-itrans-v5-hash "oriya-itrans" "Oriya" "OriIT"
|
||
"Oriya transliteration by ITRANS method.")
|
||
|
||
(if nil
|
||
(quail-define-package "bengali-itrans" "Bengali" "BngIT" t "Bengali ITRANS"))
|
||
(quail-define-indian-trans-package
|
||
indian-bng-itrans-v5-hash "bengali-itrans" "Bengali" "BngIT"
|
||
"Bengali transliteration by ITRANS method.")
|
||
|
||
(if nil
|
||
(quail-define-package "assamese-itrans" "Assamese" "AsmIT" t "Assamese ITRANS"))
|
||
(quail-define-indian-trans-package
|
||
indian-asm-itrans-v5-hash "assamese-itrans" "Assamese" "AsmIT"
|
||
"Assamese transliteration by ITRANS method.")
|
||
|
||
(if nil
|
||
(quail-define-package "telugu-itrans" "Telugu" "TlgIT" t "Telugu ITRANS"))
|
||
(quail-define-indian-trans-package
|
||
indian-tlg-itrans-v5-hash "telugu-itrans" "Telugu" "TlgIT"
|
||
"Telugu transliteration by ITRANS method.")
|
||
|
||
(if nil
|
||
(quail-define-package "kannada-itrans" "Kannada" "KndIT" t "Kannada ITRANS"))
|
||
(quail-define-indian-trans-package
|
||
indian-knd-itrans-v5-hash "kannada-itrans" "Kannada" "KndIT"
|
||
"Kannada transliteration by ITRANS method.")
|
||
|
||
;; ITRANS not applicable to Malayalam & could be removed eventually
|
||
(if nil
|
||
(quail-define-package "malayalam-itrans" "Malayalam" "MlmIT" t "Malayalam ITRANS"))
|
||
(quail-define-indian-trans-package
|
||
indian-mlm-itrans-v5-hash "malayalam-itrans" "Malayalam" "MlmIT"
|
||
"Malayalam transliteration by ITRANS method.")
|
||
|
||
(defvar quail-tamil-itrans-syllable-table
|
||
(let ((vowels
|
||
'(("à®…" nil "a")
|
||
("ஆ" "ா" "A")
|
||
("இ" "ி" "i")
|
||
("ஈ" "ீ" "I")
|
||
("உ" "à¯<EFBFBD>" "u")
|
||
("ஊ" "ூ" "U")
|
||
("எ" "ெ" "e")
|
||
("à®<EFBFBD>" "ே" "E")
|
||
("à®<EFBFBD>" "ை" "ai")
|
||
("ஒ" "ொ" "o")
|
||
("ஓ" "ோ" "O")
|
||
("ஔ" "ௌ" "au")))
|
||
(consonants
|
||
'(("க" "k") ; U+0B95
|
||
("à®™" "N^") ; U+0B99
|
||
("ச" "ch") ; U+0B9A
|
||
("ஞ" "JN") ; U+0B9E
|
||
("ட" "T") ; U+0B9F
|
||
("ண" "N") ; U+0BA3
|
||
("த" "t") ; U+0BA4
|
||
("ந" "n") ; U+0BA8
|
||
("ப" "p") ; U+0BAA
|
||
("à®®" "m") ; U+0BAE
|
||
("ய" "y") ; U+0BAF
|
||
("à®°" "r") ; U+0BB0
|
||
("ல" "l") ; U+0BB2
|
||
("வ" "v") ; U+0BB5
|
||
("à®´" "z") ; U+0BB4
|
||
("ள" "L") ; U+0BB3
|
||
("à®±" "rh") ; U+0BB1
|
||
("ன" "nh") ; U+0BA9
|
||
("ஜ" "j") ; U+0B9C
|
||
("ஶ" nil) ; U+0BB6
|
||
("à®·" "Sh") ; U+0BB7
|
||
("ஸ" "s") ; U+0BB8
|
||
("ஹ" "h") ; U+0BB9
|
||
("கà¯<EFBFBD>à®·" "x" ) ; U+0B95
|
||
))
|
||
(virama #x0BCD)
|
||
clm)
|
||
(with-temp-buffer
|
||
(insert "\n")
|
||
(insert " +")
|
||
(insert-char ?- 74)
|
||
(insert "\n |")
|
||
(setq clm 6)
|
||
(dolist (v vowels)
|
||
(insert (propertize "\t" 'display (list 'space :align-to clm))
|
||
(car v))
|
||
(setq clm (+ clm 6)))
|
||
(insert "\n |")
|
||
(setq clm 6)
|
||
(dolist (v vowels)
|
||
(insert (propertize "\t" 'display (list 'space :align-to clm))
|
||
(nth 2 v))
|
||
(setq clm (+ clm 6)))
|
||
(dolist (c consonants)
|
||
(insert "\n----+")
|
||
(insert-char ?- 74)
|
||
(insert "\n")
|
||
(insert (car c) virama
|
||
(propertize "\t" 'display '(space :align-to 4))
|
||
"|")
|
||
(setq clm 6)
|
||
(dolist (v vowels)
|
||
(insert (propertize "\t" 'display (list 'space :align-to clm))
|
||
(car c) (or (nth 1 v) ""))
|
||
(setq clm (+ clm 6)))
|
||
(insert "\n" (or (nth 1 c) "")
|
||
(propertize "\t" 'display '(space :align-to 4))
|
||
"|")
|
||
(setq clm 6)
|
||
|
||
(dolist (v vowels)
|
||
(apply #'insert (propertize "\t" 'display (list 'space :align-to clm))
|
||
(if (nth 1 c) (list (nth 1 c) (nth 2 v)) (list "")))
|
||
(setq clm (+ clm 6))))
|
||
(insert "\n")
|
||
(insert "----+")
|
||
(insert-char ?- 74)
|
||
(insert "\n")
|
||
(buffer-string))))
|
||
|
||
(defvar quail-tamil-itrans-numerics-and-symbols-table
|
||
(let ((numerics '((?௰ "பதà¯<EFBFBD>தà¯<EFBFBD>") (?௱ "நூறà¯<EFBFBD>") (?௲ "ஆயிரமà¯<EFBFBD>")))
|
||
(symbols '((?௳ "நாளà¯<EFBFBD>") (?௴ "மாதமà¯<EFBFBD>") (?௵ "வரà¯<EFBFBD>டமà¯<EFBFBD>")
|
||
(?௶ "பறà¯<EFBFBD>à®±à¯<EFBFBD>") (?௷ "வரவà¯<EFBFBD>") (?௸ "மேறà¯<EFBFBD>படி")
|
||
(?௹ "ரூபாயà¯<EFBFBD>") (?௺ "எணà¯<EFBFBD>")))
|
||
clm)
|
||
(with-temp-buffer
|
||
(insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
|
||
(insert
|
||
(propertize "\t" 'display '(space :align-to 5)) "numerics"
|
||
(propertize "\t" 'display '(space :align-to 18)) "|"
|
||
(propertize "\t" 'display '(space :align-to 45)) "symbols")
|
||
(insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
|
||
(dotimes (i 2)
|
||
(setq clm 0)
|
||
(dolist (elm numerics)
|
||
(if (> clm 0)
|
||
(insert (propertize "\t" 'display (list 'space :align-to clm))))
|
||
(insert (nth i elm))
|
||
(setq clm (+ clm 5)))
|
||
(insert (propertize "\t" 'display '(space :align-to 18)) "|")
|
||
(setq clm 19)
|
||
(dolist (elm symbols)
|
||
(if (> clm 19)
|
||
(insert (propertize "\t" 'display (list 'space :align-to clm))))
|
||
(insert (nth i elm))
|
||
(setq clm (+ clm 8)))
|
||
(insert "\n"))
|
||
(insert (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
|
||
(insert "\n")
|
||
(buffer-string))))
|
||
|
||
(defvar quail-tamil-itrans-various-signs-and-digits-table
|
||
(let ((various '((?ஃ . "H") ("ஸà¯<EFBFBD>ரீ" . "srii") (?à¯<EFBFBD>)))
|
||
(digits "௦௧௨௩௪௫௬à¯à¯®à¯¯")
|
||
(width 6) clm)
|
||
(with-temp-buffer
|
||
(insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
|
||
(insert
|
||
(propertize "\t" 'display '(space :align-to 5)) "various"
|
||
(propertize "\t" 'display '(space :align-to 18)) "|"
|
||
(propertize "\t" 'display '(space :align-to 45)) "digits")
|
||
|
||
(insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
|
||
(setq clm 0 )
|
||
|
||
(dotimes (i (length various))
|
||
(insert (propertize "\t" 'display (list 'space :align-to clm))
|
||
(car (nth i various)))
|
||
(setq clm (+ clm width)))
|
||
(insert (propertize "\t" 'display '(space :align-to 18)) "|")
|
||
(setq clm 20)
|
||
(dotimes (i 10)
|
||
(insert (propertize "\t" 'display (list 'space :align-to clm))
|
||
(aref digits i))
|
||
(setq clm (+ clm width)))
|
||
(insert "\n")
|
||
(setq clm 0)
|
||
(dotimes (i (length various))
|
||
(insert (propertize "\t" 'display (list 'space :align-to clm))
|
||
(or (cdr (nth i various)) ""))
|
||
(setq clm (+ clm width)))
|
||
(insert (propertize "\t" 'display '(space :align-to 18)) "|")
|
||
(setq clm 20)
|
||
(dotimes (i 10)
|
||
(insert (propertize "\t" 'display (list 'space :align-to clm))
|
||
(format "%d" i))
|
||
(setq clm (+ clm width)))
|
||
(insert "\n" (make-string 18 ?-) "+" (make-string 60 ?-) "\n")
|
||
(buffer-string))))
|
||
|
||
(if nil
|
||
(quail-define-package "tamil-itrans" "Tamil" "TmlIT" t "Tamil ITRANS"))
|
||
(quail-define-indian-trans-package
|
||
indian-tml-itrans-v5-hash "tamil-itrans" "Tamil" "TmlIT"
|
||
"Tamil transliteration by ITRANS method.
|
||
|
||
You can input characters using the following mapping tables.
|
||
Example: To enter வணகà¯<C3A0>கமà¯<C3A0>, type vaNakkam.
|
||
|
||
### Basic syllables (consonants + vowels) ###
|
||
\\<quail-tamil-itrans-syllable-table>
|
||
|
||
### Miscellaneous (various signs + digits) ###
|
||
\\<quail-tamil-itrans-various-signs-and-digits-table>
|
||
|
||
### Others (numerics + symbols) ###
|
||
|
||
Characters below have no ITRANS method associated with them.
|
||
Their descriptions are included for easy reference.
|
||
\\<quail-tamil-itrans-numerics-and-symbols-table>
|
||
|
||
Full key sequences are listed below:")
|
||
|
||
;;;
|
||
;;; Input by Inscript
|
||
;;;
|
||
|
||
(defun quail-define-inscript-package (char-tables key-tables pkgname lang
|
||
title docstring)
|
||
;; This is a funcall to avoid `quail-update-leim-list-file'
|
||
;; determining that this is a quail definition (it searches for
|
||
;; "(quail-define-package").
|
||
(funcall #'quail-define-package pkgname lang title nil docstring
|
||
nil nil nil t nil nil nil nil)
|
||
(let (char-table key-table char key)
|
||
(while (and char-tables key-tables)
|
||
(setq char-table (car char-tables)
|
||
char-tables (cdr char-tables)
|
||
key-table (car key-tables)
|
||
key-tables (cdr key-tables))
|
||
(while (and char-table key-table)
|
||
(setq char (car char-table)
|
||
char-table (cdr char-table)
|
||
key (car key-table)
|
||
key-table (cdr key-table))
|
||
(if (and (consp char) (consp key))
|
||
(setq char-table (append char char-table)
|
||
key-table (append key key-table))
|
||
(if (and key char)
|
||
(quail-defrule
|
||
(if (characterp key) (char-to-string key) key)
|
||
(if (stringp char) (vector char) char))))))))
|
||
|
||
;;
|
||
|
||
(defvar inscript-dev-keytable
|
||
'(
|
||
(;; VOWELS (18)
|
||
(?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
|
||
(?+ ?=) ("F]" "f]") (?! ?@) (?Z ?z) (?S ?s) (?W ?w)
|
||
(?| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=]") ("R]" "r]"))
|
||
(;; CONSONANTS (42)
|
||
?k ?K ?i ?I ?U ;; GRUTTALS
|
||
?\; ?: ?p ?P ?} ;; PALATALS
|
||
?' ?\" ?\[ ?{ ?C ;; CEREBRALS
|
||
?l ?L ?o ?O ?v ?V ;; DENTALS
|
||
?h ?H ?y ?Y ?c ;; LABIALS
|
||
?/ ?j ?J ?n ?N "N]" ?b ;; SEMIVOWELS
|
||
?M ?< ?m ?u ;; SIBILANTS
|
||
"k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
|
||
?% ?&)
|
||
(;; Misc Symbols (7)
|
||
?X ?x ?_ ">]" ?d "X]" ?>)
|
||
(;; Digits
|
||
?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
|
||
(;; Inscripts
|
||
?# ?$ ?^ ?* ?\])))
|
||
|
||
(defvar inscript-mlm-keytable
|
||
'(
|
||
(;; VOWELS (18)
|
||
(?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
|
||
(?= ?+) nil nil (?S ?s) (?Z ?z) (?W ?w)
|
||
nil (?~ ?`) (?A ?a) (?Q ?q))
|
||
(;; CONSONANTS (42)
|
||
?k ?K ?i ?I ?U ;; GRUTTALS
|
||
?\; ?: ?p ?P ?} ;; PALATALS
|
||
?' ?\" ?\[ ?{ ?C ;; CEREBRALS
|
||
?l ?L ?o ?O ?v nil ;; DENTALS
|
||
?h ?H ?y ?Y ?c ;; LABIALS
|
||
?/ ?j ?J ?n ?N ?B ?b ;; SEMIVOWELS
|
||
?M ?< ?m ?u ;; SIBILANTS
|
||
nil nil nil nil nil nil nil nil nil) ;; NUKTAS
|
||
(;; Misc Symbols (7)
|
||
nil ?x ?_ nil ?d)
|
||
(;; Digits
|
||
?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
|
||
(;; Chillus
|
||
"Cd" "Cd]" "vd" "vd]" "jd" "jd]" "nd" "nd]" "Nd" "Nd]")))
|
||
|
||
(defvar inscript-tml-keytable
|
||
'(
|
||
(;; VOWELS (18)
|
||
(?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t)
|
||
nil nil nil (?S ?s) (?Z ?z) (?W ?w)
|
||
nil (?A ?a) (?~ ?`) (?Q ?q) nil nil)
|
||
(;; CONSONANTS (42)
|
||
?k ?K ?i ?I ?U ;; GRUTTALS
|
||
?\; ?: ?p ?P ?} ;; PALATALS
|
||
?' ?\" ?\[ ?{ ?C ;; CEREBRALS
|
||
?l ?L ?o ?O ?v ?V ;; DENTALS
|
||
?h ?H ?y ?Y ?c ;; LABIALS
|
||
?/ ?j ?J ?n ?N "N]" ?b ;; SEMIVOWELS
|
||
?M ?< ?m ?u ;; SIBILANTS
|
||
"k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS
|
||
?% ?&)
|
||
(;; Misc Symbols (7)
|
||
?X ?x ?_ ">]" ?d "X]" ?>)
|
||
(;; Digits
|
||
?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)
|
||
(;; Inscripts
|
||
?# ?$ ?^ ?* ?\])))
|
||
|
||
(if nil
|
||
(quail-define-package "devanagari-inscript" "Devanagari" "DevIS" t "Devanagari keyboard Inscript"))
|
||
(quail-define-inscript-package
|
||
indian-dev-base-table inscript-dev-keytable
|
||
"devanagari-inscript" "Devanagari" "DevIS"
|
||
"Devanagari keyboard Inscript.")
|
||
|
||
(if nil
|
||
(quail-define-package "punjabi-inscript" "Punjabi" "PnjIS" t "Punjabi keyboard Inscript"))
|
||
(quail-define-inscript-package
|
||
indian-pnj-base-table inscript-dev-keytable
|
||
"punjabi-inscript" "Punjabi" "PnjIS"
|
||
"Punjabi keyboard Inscript.")
|
||
|
||
(if nil
|
||
(quail-define-package "gujarati-inscript" "Gujarati" "GjrIS" t "Gujarati keyboard Inscript"))
|
||
(quail-define-inscript-package
|
||
indian-gjr-base-table inscript-dev-keytable
|
||
"gujarati-inscript" "Gujarati" "GjrIS"
|
||
"Gujarati keyboard Inscript.")
|
||
|
||
(if nil
|
||
(quail-define-package "oriya-inscript" "Oriya" "OriIS" t "Oriya keyboard Inscript"))
|
||
(quail-define-inscript-package
|
||
indian-ori-base-table inscript-dev-keytable
|
||
"oriya-inscript" "Oriya" "OriIS"
|
||
"Oriya keyboard Inscript.")
|
||
|
||
(if nil
|
||
(quail-define-package "bengali-inscript" "Bengali" "BngIS" t "Bengali keyboard Inscript"))
|
||
(quail-define-inscript-package
|
||
indian-bng-base-table inscript-dev-keytable
|
||
"bengali-inscript" "Bengali" "BngIS"
|
||
"Bengali keyboard Inscript.")
|
||
|
||
(if nil
|
||
(quail-define-package "assamese-inscript" "Assamese" "AsmIS" t "Assamese keyboard Inscript"))
|
||
(quail-define-inscript-package
|
||
indian-asm-base-table inscript-dev-keytable
|
||
"assamese-inscript" "Assamese" "AsmIS"
|
||
"Assamese keyboard Inscript.")
|
||
|
||
(if nil
|
||
(quail-define-package "telugu-inscript" "Telugu" "TlgIS" t "Telugu keyboard Inscript"))
|
||
(quail-define-inscript-package
|
||
indian-tlg-base-table inscript-dev-keytable
|
||
"telugu-inscript" "Telugu" "TlgIS"
|
||
"Telugu keyboard Inscript.")
|
||
|
||
(if nil
|
||
(quail-define-package "kannada-inscript" "Kannada" "KndIS" t "Kannada keyboard Inscript"))
|
||
(quail-define-inscript-package
|
||
indian-knd-base-table inscript-dev-keytable
|
||
"kannada-inscript" "Kannada" "KndIS"
|
||
"Kannada keyboard Inscript.")
|
||
|
||
(if nil
|
||
(quail-define-package "malayalam-inscript" "Malayalam" "MlmIS" t "Malayalam keyboard Inscript"))
|
||
(quail-define-inscript-package
|
||
indian-mlm-base-table inscript-mlm-keytable
|
||
"malayalam-inscript" "Malayalam" "MlmIS"
|
||
"Malayalam keyboard Inscript.")
|
||
|
||
(quail-defrule "\\" ?‌)
|
||
(quail-defrule "X" ?​)
|
||
|
||
(if nil
|
||
(quail-define-package "tamil-inscript" "Tamil" "TmlIS" t "Tamil keyboard Inscript"))
|
||
(quail-define-inscript-package
|
||
indian-tml-base-table inscript-tml-keytable
|
||
"tamil-inscript" "Tamil" "TmlIS"
|
||
"Tamil keyboard Inscript.")
|
||
|
||
;; Probhat Input Method
|
||
(quail-define-package
|
||
"bengali-probhat" "Bengali" "BngPB" t
|
||
"Probhat keyboard for Bengali/Bangla" nil t nil nil nil nil nil nil nil nil t)
|
||
|
||
(quail-define-rules
|
||
("!" ?!)
|
||
("1" ?১)
|
||
("@" ?@)
|
||
("2" ?২)
|
||
("#" ?#)
|
||
("3" ?৩)
|
||
("$" ?৳)
|
||
("4" ?৪)
|
||
("%" ?%)
|
||
("5" ?৫)
|
||
("^" ?^)
|
||
("6" ?৬)
|
||
("&" ?ঞ)
|
||
("7" ?à§)
|
||
("*" ?ৎ)
|
||
("8" ?৮)
|
||
("(" ?\()
|
||
("9" ?৯)
|
||
(")" ?\))
|
||
("0" ?০)
|
||
("_" ?_)
|
||
("-" ?-)
|
||
("+" ?+)
|
||
("=" ?=)
|
||
("Q" ?ধ)
|
||
("q" ?দ)
|
||
("W" ?ঊ)
|
||
("w" ?ূ)
|
||
("E" ?ঈ)
|
||
("e" ?ী)
|
||
("R" ?ড়)
|
||
("r" ?র)
|
||
("T" ?ঠ)
|
||
("t" ?ট)
|
||
("Y" ?à¦<EFBFBD>)
|
||
("y" ?à¦<EFBFBD>)
|
||
("U" ?উ)
|
||
("u" ?à§<EFBFBD>)
|
||
("I" ?ই)
|
||
("i" ?ি)
|
||
("O" ?ঔ)
|
||
("o" ?ও)
|
||
("P" ?ফ)
|
||
("p" ?প)
|
||
("{" ?ৈ)
|
||
("[" ?ে)
|
||
("}" ?ৌ)
|
||
("]" ?ো)
|
||
("A" ?অ)
|
||
("a" ?া)
|
||
("S" ?ষ)
|
||
("s" ?স)
|
||
("D" ?ঢ)
|
||
("d" ?ড)
|
||
("F" ?থ)
|
||
("f" ?ত)
|
||
("G" ?ঘ)
|
||
("g" ?গ)
|
||
("H" ?ঃ)
|
||
("h" ?হ)
|
||
("J" ?à¦<EFBFBD>)
|
||
("j" ?জ)
|
||
("K" ?খ)
|
||
("k" ?ক)
|
||
("L" ?ং)
|
||
("l" ?ল)
|
||
(":" ?:)
|
||
(";" ?\;)
|
||
("\"" ?\")
|
||
("'" ?')
|
||
("|" ?॥)
|
||
("" ?‌)
|
||
("~" ?~)
|
||
("`" ?â€<EFBFBD>)
|
||
("Z" ?য)
|
||
("z" ?য়)
|
||
("X" ?à§<EFBFBD>)
|
||
("x" ?শ)
|
||
("C" ?ছ)
|
||
("c" ?চ)
|
||
("V" ?ঋ)
|
||
("v" ?আ)
|
||
("B" ?à¦)
|
||
("b" ?ব)
|
||
("N" ?ণ)
|
||
("n" ?ন)
|
||
("M" ?ঙ)
|
||
("m" ?ম)
|
||
("<" ?ৃ)
|
||
("," ?,)
|
||
(">" ?à¦<EFBFBD>)
|
||
("." ?।)
|
||
("?" ?\?)
|
||
("/" ?à§<EFBFBD>))
|
||
|
||
(defun indian-mlm-mozhi-update-translation (control-flag)
|
||
(let ((len (length quail-current-key)) chillu
|
||
(vowels '(?a ?e ?i ?o ?u ?A ?E ?I ?O ?U ?R)))
|
||
(cond ((numberp control-flag)
|
||
(progn (if (= control-flag 0)
|
||
(setq quail-current-str quail-current-key)
|
||
(cond (input-method-exit-on-first-char)
|
||
((and (memq (aref quail-current-key
|
||
(1- control-flag))
|
||
vowels)
|
||
(setq chillu (cl-position
|
||
(aref quail-current-key
|
||
control-flag)
|
||
'(?m ?N ?n ?r ?l ?L))))
|
||
;; conditions for putting chillu
|
||
(and (or (and (= control-flag (1- len))
|
||
(not (setq control-flag nil)))
|
||
(and (= control-flag (- len 2))
|
||
(let ((temp (aref quail-current-key
|
||
(1- len))))
|
||
;; is it last char of word?
|
||
(not
|
||
(or (and (>= temp ?a) (<= temp ?z))
|
||
(and (>= temp ?A) (<= temp ?Z))
|
||
(eq temp ?~))))
|
||
(setq control-flag (1+ control-flag))))
|
||
(setq quail-current-str ;; put chillu
|
||
(concat (if (not (stringp
|
||
quail-current-str))
|
||
(string quail-current-str)
|
||
quail-current-str)
|
||
(string
|
||
(nth chillu '(?ം ?ൺ ?ൻ ?ർ ?ൽ ?ൾ)))))))))
|
||
(and (not input-method-exit-on-first-char) control-flag
|
||
(while (> len control-flag)
|
||
(setq len (1- len))
|
||
(setq unread-command-events
|
||
(cons (aref quail-current-key len)
|
||
unread-command-events))))
|
||
))
|
||
((null control-flag)
|
||
(unless quail-current-str
|
||
(setq quail-current-str quail-current-key)
|
||
))
|
||
((equal control-flag t)
|
||
(if (memq (aref quail-current-key (1- len)) ;; If vowel ending,
|
||
vowels) ;; may have to put
|
||
(setq control-flag nil))))) ;; chillu. So don't
|
||
control-flag) ;; end translation
|
||
|
||
(quail-define-package "malayalam-mozhi" "Malayalam" "MlmMI" t
|
||
"Malayalam transliteration by Mozhi method."
|
||
nil nil t nil nil nil t nil
|
||
#'indian-mlm-mozhi-update-translation)
|
||
|
||
(maphash
|
||
(lambda (key val)
|
||
(quail-defrule key (if (= (length val) 1)
|
||
(string-to-char val)
|
||
(vector val))))
|
||
(cdr indian-mlm-mozhi-hash))
|
||
|
||
(defun indian-mlm-mozhi-underscore (_key _len) (throw 'quail-tag nil))
|
||
|
||
(quail-defrule "_" #'indian-mlm-mozhi-underscore)
|
||
(quail-defrule "|" ?‌)
|
||
(quail-defrule "||" ?​)
|
||
|
||
;;; indian.el ends here
|