;; doi-inscript2-deva.mim -- Dogri input method for enhanced inscript layout
;; Copyright (c) 2011-2016 Red Hat, Inc. All Rights Reserved.

;; This program 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.

;; This program 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., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;
;; Author: Parag Nemade <pnemade@redhat.com>

(input-method doi inscript2)

(description "Dogri input method for enhanced inscript layout.

Reference URL - http://pune.cdac.in/html/gist/down/inscript_d.asp

Use AltGr (Alt_R key) to type the following characters:

Character    Key
----------------------------
ZWJ            AltGr + 1
ZWNJ         AltGr + 2
₹              AltGr + 4
")

(title "क")

(map
 (trans
  ((KP_1) "१")
  ((KP_2) "२")
  ((KP_3) "३")
  ((KP_4) "४")
  ((KP_5) "५")
  ((KP_6) "६")
  ((KP_7) "७")
  ((KP_8) "८")
  ((KP_9) "९")
  ((KP_0) "०")
  ((KP_Decimal) ".")
  ((KP_Divide) "/")
  ((KP_Multiply) "*")
  ((KP_Add) "+")
  ((KP_Subtract) "-") 
 
  ("1" "१")
  ((G-1) "‍")
  ("2" "२")
  ((G-2) "‌")
  ("#" "्र")
  ("3" "३")
  ("$" "र्")
  ("4" "४")
  ((G-4) "₹")
  ("%" "ज्ञ")
  ("5" "५")
  ("^" "त्र")
  ("6" "६")
  ("&" "क्ष")
  ("7" "७")
  ("*" "श्र")
  ("8" "८")
  ("(" "(")
  ("9" "९")
  (")" ")")
  ("0" "०")
  ("_" "ः")
  ("-" "-")
  ("+" "ऋ")
  ((G-+) "ॠ")
  ("=" "ृ")
  ((G-=) "ॄ")
  ("Q" "औ")
  ("q" "ौ")
  ("W" "ऐ")
  ("w" "ै")
  ("E" "आ")
  ("e" "ा")
  ((G-e) "॑") 
  ("R" "ई")
  ((G-R) "ॡ")
  ("r" "ी")
  ((G-r) "ॣ")
  ("T" "ऊ")
  ("t" "ू")
  ("Y" "भ")
  ("y" "ब")
  ("U" "ङ")
  ("u" "ह")
  ("I" "घ")
  ("i" "ग")
  ((G-i) "ग़")
  ("O" "ध")
  ("o" "द")
  ("P" "झ")
  ("p" "ज")
  ((G-p) "ज़")
  ("{" "ढ")
  ((G-{) "ढ़")
  ("[" "ड")
  ((G-[) "ड़")
  ("}" "ञ")
  ("]" "़")
  ("A" "ओ")
  ("a" "ो")
  ("S" "ए")
  ("s" "े")
  ("D" "अ")
  ("d" "्")
  ((G-d) "॒")
  ("F" "इ")
  ((G-F) "ऌ")
  ("f" "ि")
  ((G-f) "ॢ")
  ("G" "उ")
  ("g" "ु")
  ("H" "फ")
  ((G-H) "फ़")
  ("h" "प")
  ("j" "र")
  ("K" "ख")
  ("k" "क")
  ("L" "थ")
  ("l" "त")
  (":" "छ")
  (";" "च")
  ("\"" "ठ")
  ("'" "ट")
  ("z" "ʼ")
  ("X" "ँ")
  ((G-X) "ॐ")
  ("C" "ण")
  ("c" "म")
  ("v" "न")
  ("b" "व")
  ("n" "ल")
  ("N" "N")
  ((G-N) "ळ")
  ("M" "श")
  ("m" "स")
  ("<" "ष")
  ("," ",")
  (">" "।")
  ((G->) "ऽ")
  ("." ".")
  ((G-.) "॥")
  ("/" "य")
  ))

(state
 (init
    (trans)))