("([CR]n?H)([NJ])"): Fix for the case of this pattern.
[m17n/m17n-db.git] / sr-kbd.mim
1 ;; sr-kdb.mim -- Serbian input method with Serbian keyboard layout
2 ;; Copyright (C) 2004
3 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
4 ;;   Registration Number H15PRO112
5
6 ;; This file is part of the m17n database; a sub-part of the m17n
7 ;; library.
8
9 ;; The m17n library is free software; you can redistribute it and/or
10 ;; modify it under the terms of the GNU Lesser General Public License
11 ;; as published by the Free Software Foundation; either version 2.1 of
12 ;; the License, or (at your option) any later version.
13
14 ;; The m17n library is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17 ;; Lesser General Public License for more details.
18
19 ;; You should have received a copy of the GNU Lesser General Public
20 ;; License along with the m17n library; if not, write to the Free
21 ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
22 ;; 02111-1307, USA.
23
24 ;;; <li> sr-kdb.mim
25 ;;;
26 ;;; Input method for Serbian.
27 ;;; Simulating Serbian Cyrillic keyboard on American keyboard.
28 ;;; @image html sr-kbd.png "Keyboard Layout"
29
30 ;;      1!  2"  3#  4$  5%  6&  7'  8(  9)  0=  /?  +*  <> 
31 ;;        љЉ  њЊ  еЕ  рР  тТ  зЗ  уУ  иИ  оО  пП  шШ  ђЂ 
32 ;;         аА  сС  дД  фФ  гГ  хХ  јЈ  кК  лЛ  чЧ  ћЋ  жЖ 
33 ;;           ѕЅ  џЏ  цЦ  вВ  бБ  нН  мМ  ,;  .:  -_ 
34
35 (title "SR")
36
37 (map
38  (map
39                 ("@" ?\")
40                 ("^" ?&)
41                 ("&" ?/)
42                 ("*" ?\()
43                 ("\(" ?\))
44                 ("\)" ?=)
45   ("-" ?')      ("_" ??)
46   ("=" ?+)      ("+" ?*)
47
48   ("q" ?љ)     ("Q" ?Љ)
49   ("w" ?њ)     ("W" ?Њ)
50   ("e" ?е)     ("E" ?Е)
51   ("r" ?р)     ("R" ?Р)
52   ("t" ?т)     ("T" ?Т)
53   ("y" ?з)     ("Y" ?З)
54   ("u" ?у)     ("U" ?У)
55   ("i" ?и)     ("I" ?И)
56   ("o" ?о)     ("O" ?О)
57   ("p" ?п)     ("P" ?П)
58   ("[" ?ш)     ("{" ?Ш)
59   ("]" ?ђ)     ("}" ?Ђ)
60
61   ("a" ?а)     ("A" ?А)
62   ("s" ?с)     ("S" ?С)
63   ("d" ?д)     ("D" ?Д)
64   ("f" ?ф)     ("F" ?Ф)
65   ("g" ?г)     ("G" ?Г)
66   ("h" ?х)     ("H" ?Х)
67   ("j" ?ј)     ("J" ?Ј)
68   ("k" ?к)     ("K" ?К)
69   ("l" ?л)     ("L" ?Л)
70   (";" ?ч)     (":" ?Ч)
71   ("'" ?ћ)     ("\"" ?Ћ)
72   ("\\" ?ж)    ("|" ?Ж)
73
74   ("z" ?ѕ)     ("Z" ?Ѕ)
75   ("x" ?џ)     ("X" ?Џ)
76   ("c" ?ц)     ("C" ?Ц)
77   ("v" ?в)     ("V" ?В)
78   ("b" ?б)     ("B" ?Б)
79   ("n" ?н)     ("N" ?Н)
80   ("m" ?м)     ("M" ?М)
81                 ("<" ?;)
82                 (">" ?:)
83   ("/" ?-)      ("?" ?_)
84
85   ("-g" ?ѓ)    ("-G" ?Ѓ)
86   ("-k" ?ќ)    ("-K" ?Ќ)
87   ))
88
89 (state
90  (init
91   (map)))
92
93 ;; Local Variables:
94 ;; coding: utf-8
95 ;; mode: lisp
96 ;; End: