;; sa-iast-vedic.mim -- Input method for Romanized Sanskrit/Pali using a combination of IAST and the ISO 15919 scheme and widely used Vedic accents
;; Copyright (C) 2011  William Giddings <[email protected]>
;; Copyright (C) 2023  Vishvas Vasuki  <[email protected]>

;; This file is part of 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 General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>

;; This file is branched from sa-iast.mim.
;; Author: Vishvas Vasuki  <[email protected]>

(input-method sa IAST-vedic )

(description "Romanized Sanskrit input method with IAST and ISO 15919 conventions.
The table is based on
  <http://en.wikipedia.org/wiki/International_Alphabet_of_Sanskrit_Transliteration> and https://en.wikipedia.org/wiki/ISO_15919.

Some widely used Vedic accents in postfix notation are also supported
(See: https://en.wikipedia.org/wiki/Vedic_accent).
")

(title "IAST ISO-15919 Vedic")

(map
 (trans
  ("aa" "ā")
  ("AA" "Ā")
  ("^a" "â")
  ("^A" "Â")
  ("ii" "ī")
  ("II" "Ī")
  ("uu" "ū")
  ("UU" "Ū")

  ;; Widely used Vedic accents in postfix notation (See:
  ;; https://en.wikipedia.org/wiki/Vedic_accent) They clarify the
  ;; pitch accent of a vowel, _after_ its type and length are
  ;; determined (which is common for those used to unaccented
  ;; sanskrit; and devanAgarI accent notation)
  ("``" "̀") ; U+0300 COMBINING GRAVE ACCENT
  ("''" "́") ; U+0301 COMBINING ACUTE ACCENT
  ("a''" "á") ; U+00E1 LATIN SMALL LETTER A WITH ACUTE
  ("i''" "í") ; U+00ED LATIN SMALL LETTER I WITH ACUTE
  ("u''" "ú") ; U+00FA LATIN SMALL LETTER U WITH ACUTE
  ("uu''" "ṹ") ; U+1E79 LATIN SMALL LETTER U WITH TILDE AND ACUTE
  ("U''" "ṹ") ; U+1E79 LATIN SMALL LETTER U WITH TILDE AND ACUTE
  ("e''" "é") ; U+00E9 LATIN SMALL LETTER E WITH ACUTE
  ("o''" "ó") ; U+00F3 LATIN SMALL LETTER O WITH ACUTE
  ("a``" "à") ; U+00E0 LATIN SMALL LETTER A WITH GRAVE
  ("i``" "ì") ; U+00EC LATIN SMALL LETTER I WITH GRAVE
  ("u``" "ù") ; U+00F9 LATIN SMALL LETTER U WITH GRAVE
  ("uu``" "ũ̀") ; U+0169 LATIN SMALL LETTER U WITH TILDE U+0300 COMBINING GRAVE ACCENT
  ("U``" "ũ̀") ; U+0169 LATIN SMALL LETTER U WITH TILDE U+0300 COMBINING GRAVE ACCENT
  ("e``" "è") ; U+00E8 LATIN SMALL LETTER E WITH GRAVE
  ("o``" "ò") ; U+00F2 LATIN SMALL LETTER O WITH GRAVE

  (".r" "ṛ")
  (".R" "Ṛ")
  (".rr" "ṝ")
  (".RR" "Ṝ")
  (".l" "ḷ")
  (".L" "Ḷ")
  (".ll" "ḹ")
  (".LL" "Ḹ")
  (".M" "Ṃ")
  (".m" "ṃ")
  (".h" "ḥ")
  (".H" "Ḥ")
  (";n" "ṅ")
  (";N" "Ṅ")
  ("~n" "ñ")
  ("~N" "Ñ")
  (".t" "ṭ")
  (".T" "Ṭ")
  (".d" "ḍ")
  (".D" "Ḍ")
  (".n" "ṇ")
  (".N" "Ṇ")
  (".z" "ẓ")
  (".Z" "Ẓ")
  (";s" "ś")
  (";S" "Ś")
  (".s" "ṣ")
  (".S" "Ṣ")
  ("ee" "ē")
  ("EE" "Ē")
  ("oo" "ō")
  ("OO" "Ō")
  (";m" "ṁ")
  (",r" "r̥")
  (",R" "R̥")
  (",rr" "r̥̄")
  (",RR" "R̥̄")
  (",l" "l̥")
  (",L" "L̥")
  (",ll" "l̥̄")
  (",LL" "L̥̄")
  ("_h" "ẖ")
  ("_H" "H̱")
  ("_k" "ḵ")
  ("_K" "Ḵ")
  ("_kh" "k͟h")
  ("_KH" "K͟H")
  ("_l" "ḻ")
  ("_L" "Ḻ")
  ("_n" "ṉ")
  ("_N" "Ṉ")
  ("_r" "ṟ")
  ("_R" "Ṟ")
  ("_s" "s̱")
  ("_S" "S̱")
  ("_t" "ṯ")
  ("_T" "Ṯ")
  ("_z" "ẕ")
  ("_Z" "Ẕ")
  (";y" "ẏ")
  (";Y" "Ẏ")
  (";z" "ż")
  (";Z" "Ż")
  (".g" "ġ")
  (".G" "Ġ")
  ("~l" "l̐")
  ("~m" "m̐")
  (",h" "h̤")
  (",H" "H̤")
  (",s" "s̤")
  (",S" "S̤")
  (",t" "t̤")
  (",T" "T̤")
  ("^c" "ĉ")
  ("^C" "Ĉ")
  ("^e" "ê")
  ("^E" "Ê")
  ("^h" "ḫ")
  ("^H" "Ḫ")
  ("^j" "ĵ")
  ("^J" "Ĵ")
  ("^m" "m̆")
  ("^M" "M̆")
  ("^n" "n̆")
  ("^N" "N̆")
  ("^o" "ô")
  ("^O" "Ô")
  ("^r" "r̆")
  ("^R" "R̆")
  ("^u" "ŭ")
  ("^U" "Ŭ")
  ("^z" "ž")
  ("^Z" "Ž")
  ))

(state
 (init
  (trans)))