[bpt/emacs.git] / lisp / leim / quail / croatian.el

;;; croatian.el -- Quail package for inputting Croatian  -*-coding: utf-8;-*-

;; Copyright (C) 2003-2014 Free Software Foundation, Inc.

;; Author: Hrvoje Nikšić <hniksic@xemacs.org>
;; Keywords: i18n

;; This file is part of GNU Emacs.

;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs 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 General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; Modeled after czech.el by Milan Zamazal.

;;; Code:

(require 'quail)

(quail-define-package
 "croatian" "Croatian" "HR" nil
 "\"Standard\" Croatian keyboard."
  nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("@" ?\")
 ("^" ?&)
 ("&" ?/)
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("-" ?\')
 ("_" ??)
 ("=" ?+)
 ("+" ?*)
 ("[" ?š)
 ("{" ?Š)
 ("]" ?đ)
 ("}" ?Đ)
 (";" ?č)
 (":" ?Č)
 ("'" ?ć)
 ("\"" ?Ć)
 ("\\" ?ž)
 ("|" ?Ž)
 ("<" ?\;)
 (">" ?:)
 ("/" ?-)
 ("?" ?_)
 ("y" ?z)
 ("Y" ?Z)
 ("z" ?y)
 ("Z" ?Y))

(quail-define-package
 "croatian-qwerty" "Croatian" "HR" nil
 "Croatian keyboard without the y/z swap."
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("@" ?\")
 ("^" ?&)
 ("&" ?/)
 ("*" ?\()
 ("(" ?\))
 (")" ?=)
 ("-" ?\')
 ("_" ??)
 ("=" ?+)
 ("+" ?*)
 ("[" ?š)
 ("{" ?Š)
 ("]" ?đ)
 ("}" ?Đ)
 (";" ?č)
 (":" ?Č)
 ("'" ?ć)
 ("\"" ?Ć)
 ("\\" ?ž)
 ("|" ?Ž)
 ("<" ?\;)
 (">" ?:)
 ("/" ?-)
 ("?" ?_))

(quail-define-package
 "croatian-prefix" "Croatian" "HR" nil
 "Croatian input method, prefix.

\"c -> č
'c -> ć
\"s -> š
\"z -> ž
/d -> đ"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("\"c" ?č)
 ("\"C" ?Č)
 ("'c" ?ć)
 ("'C" ?Ć)
 ("\"s" ?š)
 ("\"S" ?Š)
 ("\"z" ?ž)
 ("\"Z" ?Ž)
 ("/d" ?đ)
 ("/D" ?Đ))

(quail-define-package
 "croatian-postfix" "Croatian" "HR" nil
 "Croatian input method, postfix.

c\" -> č
c' -> ć
s\" -> š
z\" -> ž
d/ -> đ"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("c\"" ?č)
 ("C\"" ?Č)
 ("c'" ?ć)
 ("C'" ?Ć)
 ("s\"" ?š)
 ("S\"" ?Š)
 ("z\"" ?ž)
 ("Z\"" ?Ž)
 ("d/" ?đ)
 ("D/" ?Đ))

(quail-define-package
 "croatian-xy" "Croatian" "HR" nil
 "An alternative Croatian input method.

cx -> č
cy -> ć
sx -> š
zx -> ž
dy -> đ"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("cx" ?č)
 ("CX" ?Č)
 ("Cx" ?Č)
 ("cy" ?ć)
 ("CY" ?Ć)
 ("Cy" ?Ć)
 ("sx" ?š)
 ("SX" ?Š)
 ("Sx" ?Š)
 ("zx" ?ž)
 ("ZX" ?Ž)
 ("Zx" ?Ž)
 ("dy" ?đ)
 ("DY" ?Đ)
 ("Dy" ?Đ))

(quail-define-package
 "croatian-cc" "Croatian" "HR" nil
 "Another alternative Croatian input method.

cc -> č
ch -> ć
ss -> š
zz -> ž
dd -> đ"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("cc" ?č)
 ("CC" ?Č)
 ("Cc" ?Č)
 ("ch" ?ć)
 ("CH" ?Ć)
 ("Ch" ?Ć)
 ("ss" ?š)
 ("SS" ?Š)
 ("Ss" ?Š)
 ("zz" ?ž)
 ("ZZ" ?Ž)
 ("Zz" ?Ž)
 ("dd" ?đ)
 ("DD" ?Đ)
 ("Dd" ?Đ))

;;; croatian.el ends here
Commit	Line	Data
e67e483f	1	;;; croatian.el -- Quail package for inputting Croatian --coding: utf-8;--
139c4e54	2
ba318903	3	;; Copyright (C) 2003-2014 Free Software Foundation, Inc.
139c4e54	4
c38e0c97	5	;; Author: Hrvoje Nikšić <hniksic@xemacs.org>
139c4e54 DL	6	;; Keywords: i18n
	7
	8	;; This file is part of GNU Emacs.
	9
3d544458	10	;; GNU Emacs is free software: you can redistribute it and/or modify
139c4e54	11	;; it under the terms of the GNU General Public License as published by
3d544458 GM	12	;; the Free Software Foundation, either version 3 of the License, or
3d544458 GM	13	;; (at your option) any later version.
139c4e54 DL	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
3d544458	21	;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
139c4e54	22
eb2ffb18 GM	23	;;; Commentary:
	24
	25	;; Modeled after czech.el by Milan Zamazal.
	26
139c4e54 DL	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	("+" ?*)
c38e0c97 PE	47	("[" ?š)
	48	("{" ?Š)
	49	("]" ?đ)
	50	("}" ?Đ)
	51	(";" ?č)
	52	(":" ?Č)
	53	("'" ?ć)
	54	("\"" ?Ć)
	55	("\\" ?ž)
	56	("\|" ?Ž)
139c4e54 DL	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	("+" ?*)
c38e0c97 PE	82	("[" ?š)
	83	("{" ?Š)
	84	("]" ?đ)
	85	("}" ?Đ)
	86	(";" ?č)
	87	(":" ?Č)
	88	("'" ?ć)
	89	("\"" ?Ć)
	90	("\\" ?ž)
	91	("\|" ?Ž)
139c4e54 DL	92	("<" ?\;)
	93	(">" ?:)
	94	("/" ?-)
	95	("?" ?_))
	96
	97	(quail-define-package
	98	"croatian-prefix" "Croatian" "HR" nil
e67e483f	99	"Croatian input method, prefix.
139c4e54	100
c38e0c97 PE	101	\"c -> č
	102	'c -> ć
	103	\"s -> š
	104	\"z -> ž
	105	/d -> đ"
139c4e54 DL	106	nil t nil nil nil nil nil nil nil nil t)
	107
	108	(quail-define-rules
c38e0c97 PE	109	("\"c" ?č)
	110	("\"C" ?Č)
	111	("'c" ?ć)
	112	("'C" ?Ć)
	113	("\"s" ?š)
	114	("\"S" ?Š)
	115	("\"z" ?ž)
	116	("\"Z" ?Ž)
	117	("/d" ?đ)
	118	("/D" ?Đ))
139c4e54 DL	119
	120	(quail-define-package
	121	"croatian-postfix" "Croatian" "HR" nil
	122	"Croatian input method, postfix.
	123
c38e0c97 PE	124	c\" -> č
	125	c' -> ć
	126	s\" -> š
	127	z\" -> ž
	128	d/ -> đ"
139c4e54 DL	129	nil t nil nil nil nil nil nil nil nil t)
	130
	131	(quail-define-rules
c38e0c97 PE	132	("c\"" ?č)
	133	("C\"" ?Č)
	134	("c'" ?ć)
	135	("C'" ?Ć)
	136	("s\"" ?š)
	137	("S\"" ?Š)
	138	("z\"" ?ž)
	139	("Z\"" ?Ž)
	140	("d/" ?đ)
	141	("D/" ?Đ))
139c4e54 DL	142
	143	(quail-define-package
	144	"croatian-xy" "Croatian" "HR" nil
	145	"An alternative Croatian input method.
	146
c38e0c97 PE	147	cx -> č
	148	cy -> ć
	149	sx -> š
	150	zx -> ž
	151	dy -> đ"
139c4e54 DL	152	nil t nil nil nil nil nil nil nil nil t)
	153
	154	(quail-define-rules
c38e0c97 PE	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" ?Đ))
139c4e54 DL	170
	171	(quail-define-package
	172	"croatian-cc" "Croatian" "HR" nil
	173	"Another alternative Croatian input method.
	174
c38e0c97 PE	175	cc -> č
	176	ch -> ć
	177	ss -> š
	178	zz -> ž
	179	dd -> đ"
139c4e54 DL	180	nil t nil nil nil nil nil nil nil nil t)
	181
	182	(quail-define-rules
c38e0c97 PE	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" ?Đ))
ab5796a9	198
3d544458	199	;;; croatian.el ends here