A new input method for Croatian.

diff --git a/hr-kbd.mim b/hr-kbd.mim
new file mode 100644 (file)
index 0000000..9b9a42a
--- /dev/null
+++ b/hr-kbd.mim
@@ -0,0 +1,78 @@
+;; hr-kdb.mim -- Croatian input method with Croatian keyboard layout
+;; Copyright (C) 2004
+;;   National Institute of Advanced Industrial Science and Technology (AIST)
+;;   Registration Number H15PRO112
+
+;; This file is part of the m17n database; 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
+;; 02111-1307, USA.
+
+;;; <li> hr-kdb.mim
+;;;
+;;; Input method for Croatian.
+;;; Simulating Croatian Latin keyboard on American keyboard.
+;;;
+;;; @verbatim
+;;; 1!  2"  3#  4$  5%  6&  7/  8(  9)  0=  '?  +*  ¸¨
+;;;   qQ  wW  rR  eE  tT  zZ  uU  iI  oO  pP  šŠ  đĐ
+;;;     aA  sS  dD  fF  gG  hH  jJ  kK  lL  čČ  ćĆ  žŽ
+;;;       yY  xX  cC  vV  bB  nN  mM  ,;  .:  -_
+;;; @endverbatim
+
+(title "HR")
+
+(map
+ (map
+               ("@" ?\")
+               ("^" ?&)
+               ("&" ?/)
+               ("*" ?\()
+               ("\(" ?\))
+               ("\)" ?=)
+  ("-" ?')     ("_" ??)
+  ("=" ?+)     ("+" ?*)
+  ("`" ?¸)    ("~" ?¨)
+
+  ("y" ?z)     ("Y" ?Z)
+  ("[" ?š)    ("{" ?Š)
+  ("]" ?đ)    ("}" ?Đ)
+
+  (";" ?č)    (":" ?Č)
+  ("'" ?ć)    ("\"" ?Ć)
+  ("\\" ?ž)   ("|" ?Ž)
+
+  ("z" ?y)     ("Z" ?Y)
+               ("<" ?;)
+               (">" ?:)
+  ("/" ?-)     ("?" ?_)
+
+  ("`c" ?ç)   ("`C" ?Ç)
+  ("`s" ?ş)   ("`S" ?Ş)
+  ("~a" ?ä)   ("~A" ?Ä)
+  ("~e" ?ë)   ("~E" ?Ë)
+  ("~o" ?ö)   ("~O" ?Ö)
+  ("~u" ?ü)   ("~U" ?Ü)
+  ))
+
+(state
+ (init
+  (map)))
+
+;; Local Variables:
+;; coding: utf-8
+;; mode: lisp
+;; End: