hr-kbd.mim

   1 ;; hr-kdb.mim -- Croatian input method with Croatian 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> hr-kdb.mim
  25 ;;;
  26 ;;; Input method for Croatian.
  27 ;;; Simulating Croatian Latin keyboard on American keyboard.
  28 ;;;
  29 ;;; @verbatim
  30 ;;; 1!  2"  3#  4$  5%  6&  7/  8(  9)  0=  '?  +*  ¸¨
  31 ;;;   qQ  wW  rR  eE  tT  zZ  uU  iI  oO  pP  šŠ  đĐ
  32 ;;;     aA  sS  dD  fF  gG  hH  jJ  kK  lL  čČ  ćĆ  žŽ
  33 ;;;       yY  xX  cC  vV  bB  nN  mM  ,;  .:  -_
  34 ;;; @endverbatim
  35
  36 (title "HR")
  37
  38 (map
  39  (map
  40                 ("@" ?\")
  41                 ("^" ?&)
  42                 ("&" ?/)
  43                 ("*" ?\()
  44                 ("\(" ?\))
  45                 ("\)" ?=)
  46   ("-" ?')      ("_" ??)
  47   ("=" ?+)      ("+" ?*)
  48   ("`" ?¸)     ("~" ?¨)
  49
  50   ("y" ?z)      ("Y" ?Z)
  51   ("[" ?š)     ("{" ?Š)
  52   ("]" ?đ)     ("}" ?Đ)
  53
  54   (";" ?č)     (":" ?Č)
  55   ("'" ?ć)     ("\"" ?Ć)
  56   ("\\" ?ž)    ("|" ?Ž)
  57
  58   ("z" ?y)      ("Z" ?Y)
  59                 ("<" ?;)
  60                 (">" ?:)
  61   ("/" ?-)      ("?" ?_)
  62
  63   ("`c" ?ç)    ("`C" ?Ç)
  64   ("`s" ?ş)    ("`S" ?Ş)
  65   ("~a" ?ä)    ("~A" ?Ä)
  66   ("~e" ?ë)    ("~E" ?Ë)
  67   ("~o" ?ö)    ("~O" ?Ö)
  68   ("~u" ?ü)    ("~U" ?Ü)
  69   ))
  70
  71 (state
  72  (init
  73   (map)))
  74
  75 ;; Local Variables:
  76 ;; coding: utf-8
  77 ;; mode: lisp
  78 ;; End: