lisp/leim/quail/croatian.el

   1 ;;; croatian.el -- Quail package for inputting Croatian  -*-coding: utf-8;-*-
   2
   3 ;; Copyright (C) 2003-2018 Free Software Foundation, Inc.
   4
   5 ;; Author: Hrvoje Nikšić <hniksic@xemacs.org>
   6 ;; Keywords: i18n
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software: you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation, either version 3 of the License, or
  13 ;; (at your option) any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
  22
  23 ;;; Commentary:
  24
  25 ;; Modeled after czech.el by Milan Zamazal.
  26
  27 ;;; Code:
  28
  29 (require 'quail)
  30
  31 (quail-define-package
  32  "croatian" "Croatian" "HR" nil
  33  "\"Standard\" Croatian keyboard."
  34   nil t nil nil nil nil nil nil nil nil t)
  35
  36 (quail-define-rules
  37  ("@" ?\")
  38  ("^" ?&)
  39  ("&" ?/)
  40  ("*" ?\()
  41  ("(" ?\))
  42  (")" ?=)
  43  ("-" ?\')
  44  ("_" ??)
  45  ("=" ?+)
  46  ("+" ?*)
  47  ("[" ?š)
  48  ("{" ?Š)
  49  ("]" ?đ)
  50  ("}" ?Đ)
  51  (";" ?č)
  52  (":" ?Č)
  53  ("'" ?ć)
  54  ("\"" ?Ć)
  55  ("\\" ?ž)
  56  ("|" ?Ž)
  57  ("<" ?\;)
  58  (">" ?:)
  59  ("/" ?-)
  60  ("?" ?_)
  61  ("y" ?z)
  62  ("Y" ?Z)
  63  ("z" ?y)
  64  ("Z" ?Y))
  65
  66 (quail-define-package
  67  "croatian-qwerty" "Croatian" "HR" nil
  68  "Croatian keyboard without the y/z swap."
  69  nil t nil nil nil nil nil nil nil nil t)
  70
  71 (quail-define-rules
  72  ("@" ?\")
  73  ("^" ?&)
  74  ("&" ?/)
  75  ("*" ?\()
  76  ("(" ?\))
  77  (")" ?=)
  78  ("-" ?\')
  79  ("_" ??)
  80  ("=" ?+)
  81  ("+" ?*)
  82  ("[" ?š)
  83  ("{" ?Š)
  84  ("]" ?đ)
  85  ("}" ?Đ)
  86  (";" ?č)
  87  (":" ?Č)
  88  ("'" ?ć)
  89  ("\"" ?Ć)
  90  ("\\" ?ž)
  91  ("|" ?Ž)
  92  ("<" ?\;)
  93  (">" ?:)
  94  ("/" ?-)
  95  ("?" ?_))
  96
  97 (quail-define-package
  98  "croatian-prefix" "Croatian" "HR" nil
  99  "Croatian input method, prefix.
 100
 101 \"c -> č
 102 'c -> ć
 103 \"s -> š
 104 \"z -> ž
 105 /d -> đ"
 106  nil t nil nil nil nil nil nil nil nil t)
 107
 108 (quail-define-rules
 109  ("\"c" ?č)
 110  ("\"C" ?Č)
 111  ("'c" ?ć)
 112  ("'C" ?Ć)
 113  ("\"s" ?š)
 114  ("\"S" ?Š)
 115  ("\"z" ?ž)
 116  ("\"Z" ?Ž)
 117  ("/d" ?đ)
 118  ("/D" ?Đ))
 119
 120 (quail-define-package
 121  "croatian-postfix" "Croatian" "HR" nil
 122  "Croatian input method, postfix.
 123
 124 c\" -> č
 125 c' -> ć
 126 s\" -> š
 127 z\" -> ž
 128 d/ -> đ"
 129  nil t nil nil nil nil nil nil nil nil t)
 130
 131 (quail-define-rules
 132  ("c\"" ?č)
 133  ("C\"" ?Č)
 134  ("c'" ?ć)
 135  ("C'" ?Ć)
 136  ("s\"" ?š)
 137  ("S\"" ?Š)
 138  ("z\"" ?ž)
 139  ("Z\"" ?Ž)
 140  ("d/" ?đ)
 141  ("D/" ?Đ))
 142
 143 (quail-define-package
 144  "croatian-xy" "Croatian" "HR" nil
 145  "An alternative Croatian input method.
 146
 147 cx -> č
 148 cy -> ć
 149 sx -> š
 150 zx -> ž
 151 dy -> đ"
 152  nil t nil nil nil nil nil nil nil nil t)
 153
 154 (quail-define-rules
 155  ("cx" ?č)
 156  ("CX" ?Č)
 157  ("Cx" ?Č)
 158  ("cy" ?ć)
 159  ("CY" ?Ć)
 160  ("Cy" ?Ć)
 161  ("sx" ?š)
 162  ("SX" ?Š)
 163  ("Sx" ?Š)
 164  ("zx" ?ž)
 165  ("ZX" ?Ž)
 166  ("Zx" ?Ž)
 167  ("dy" ?đ)
 168  ("DY" ?Đ)
 169  ("Dy" ?Đ))
 170
 171 (quail-define-package
 172  "croatian-cc" "Croatian" "HR" nil
 173  "Another alternative Croatian input method.
 174
 175 cc -> č
 176 ch -> ć
 177 ss -> š
 178 zz -> ž
 179 dd -> đ"
 180  nil t nil nil nil nil nil nil nil nil t)
 181
 182 (quail-define-rules
 183  ("cc" ?č)
 184  ("CC" ?Č)
 185  ("Cc" ?Č)
 186  ("ch" ?ć)
 187  ("CH" ?Ć)
 188  ("Ch" ?Ć)
 189  ("ss" ?š)
 190  ("SS" ?Š)
 191  ("Ss" ?Š)
 192  ("zz" ?ž)
 193  ("ZZ" ?Ž)
 194  ("Zz" ?Ž)
 195  ("dd" ?đ)
 196  ("DD" ?Đ)
 197  ("Dd" ?Đ))
 198
 199 ;;; croatian.el ends here