Mercurial > emacs
annotate leim/quail/croatian.el @ 112397:a7191495c39c
Include entries from yesterdays checkins that were in an unsaved buffer.
| author | Ken Manheimer <ken.manheimer@gmail.com> |
|---|---|
| date | Fri, 21 Jan 2011 11:36:24 -0500 |
| parents | ef719132ddfa |
| children |
| rev | line source |
|---|---|
| 49045 | 1 ;;; quail/croatian.el -- Quail package for inputing Croatian -*-coding: iso-8859-2;-*- |
| 2 | |
|
112218
376148b31b5e
Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
3 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 |
| 79727 | 4 ;; Free Software Foundation, Inc. |
| 49045 | 5 |
|
101078
5f4e85fd7c0a
Comments (minor fixes of some header conventions).
Glenn Morris <rgm@gnu.org>
parents:
100963
diff
changeset
|
6 ;; Author: Hrvoje Nik¹iæ <hniksic@xemacs.org> |
| 49045 | 7 ;; Keywords: i18n |
| 8 | |
| 9 ;; This file is part of GNU Emacs. | |
| 10 | |
|
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
| 49045 | 12 ;; it under the terms of the GNU General Public License as published by |
|
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
|
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
14 ;; (at your option) any later version. |
| 49045 | 15 |
| 16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
| 17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 19 ;; GNU General Public License for more details. | |
| 20 | |
| 21 ;; You should have received a copy of the GNU General Public License | |
|
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
| 49045 | 23 |
|
101078
5f4e85fd7c0a
Comments (minor fixes of some header conventions).
Glenn Morris <rgm@gnu.org>
parents:
100963
diff
changeset
|
24 ;;; Commentary: |
|
5f4e85fd7c0a
Comments (minor fixes of some header conventions).
Glenn Morris <rgm@gnu.org>
parents:
100963
diff
changeset
|
25 |
|
5f4e85fd7c0a
Comments (minor fixes of some header conventions).
Glenn Morris <rgm@gnu.org>
parents:
100963
diff
changeset
|
26 ;; Modeled after czech.el by Milan Zamazal. |
|
5f4e85fd7c0a
Comments (minor fixes of some header conventions).
Glenn Morris <rgm@gnu.org>
parents:
100963
diff
changeset
|
27 |
| 49045 | 28 ;;; Code: |
| 29 | |
| 30 (require 'quail) | |
| 31 | |
| 32 (quail-define-package | |
| 33 "croatian" "Croatian" "HR" nil | |
| 34 "\"Standard\" Croatian keyboard." | |
| 35 nil t nil nil nil nil nil nil nil nil t) | |
| 36 | |
| 37 (quail-define-rules | |
| 38 ("@" ?\") | |
| 39 ("^" ?&) | |
| 40 ("&" ?/) | |
| 41 ("*" ?\() | |
| 42 ("(" ?\)) | |
| 43 (")" ?=) | |
| 44 ("-" ?\') | |
| 45 ("_" ??) | |
| 46 ("=" ?+) | |
| 47 ("+" ?*) | |
| 48 ("[" ?¹) | |
| 49 ("{" ?©) | |
| 50 ("]" ?ð) | |
| 51 ("}" ?Ð) | |
| 52 (";" ?è) | |
| 53 (":" ?È) | |
| 54 ("'" ?æ) | |
| 55 ("\"" ?Æ) | |
| 56 ("\\" ?¾) | |
| 57 ("|" ?®) | |
| 58 ("<" ?\;) | |
| 59 (">" ?:) | |
| 60 ("/" ?-) | |
| 61 ("?" ?_) | |
| 62 ("y" ?z) | |
| 63 ("Y" ?Z) | |
| 64 ("z" ?y) | |
| 65 ("Z" ?Y)) | |
| 66 | |
| 67 (quail-define-package | |
| 68 "croatian-qwerty" "Croatian" "HR" nil | |
| 69 "Croatian keyboard without the y/z swap." | |
| 70 nil t nil nil nil nil nil nil nil nil t) | |
| 71 | |
| 72 (quail-define-rules | |
| 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 | |
| 98 (quail-define-package | |
| 99 "croatian-prefix" "Croatian" "HR" nil | |
| 100 "Croatian input method, postfix. | |
| 101 | |
| 102 \"c -> è | |
| 103 'c -> æ | |
| 104 \"s -> ¹ | |
| 105 \"z -> ¾ | |
| 106 /d -> ð" | |
| 107 nil t nil nil nil nil nil nil nil nil t) | |
| 108 | |
| 109 (quail-define-rules | |
| 110 ("\"c" ?è) | |
| 111 ("\"C" ?È) | |
| 112 ("'c" ?æ) | |
| 113 ("'C" ?Æ) | |
| 114 ("\"s" ?¹) | |
| 115 ("\"S" ?©) | |
| 116 ("\"z" ?¾) | |
| 117 ("\"Z" ?®) | |
| 118 ("/d" ?ð) | |
| 119 ("/D" ?Ð)) | |
| 120 | |
| 121 (quail-define-package | |
| 122 "croatian-postfix" "Croatian" "HR" nil | |
| 123 "Croatian input method, postfix. | |
| 124 | |
| 125 c\" -> è | |
| 126 c' -> æ | |
| 127 s\" -> ¹ | |
| 128 z\" -> ¾ | |
| 129 d/ -> ð" | |
| 130 nil t nil nil nil nil nil nil nil nil t) | |
| 131 | |
| 132 (quail-define-rules | |
| 133 ("c\"" ?è) | |
| 134 ("C\"" ?È) | |
| 135 ("c'" ?æ) | |
| 136 ("C'" ?Æ) | |
| 137 ("s\"" ?¹) | |
| 138 ("S\"" ?©) | |
| 139 ("z\"" ?¾) | |
| 140 ("Z\"" ?®) | |
| 141 ("d/" ?ð) | |
| 142 ("D/" ?Ð)) | |
| 143 | |
| 144 (quail-define-package | |
| 145 "croatian-xy" "Croatian" "HR" nil | |
| 146 "An alternative Croatian input method. | |
| 147 | |
| 148 cx -> è | |
| 149 cy -> æ | |
| 150 sx -> ¹ | |
| 151 zx -> ¾ | |
| 152 dy -> ð" | |
| 153 nil t nil nil nil nil nil nil nil nil t) | |
| 154 | |
| 155 (quail-define-rules | |
| 156 ("cx" ?è) | |
| 157 ("CX" ?È) | |
| 158 ("Cx" ?È) | |
| 159 ("cy" ?æ) | |
| 160 ("CY" ?Æ) | |
| 161 ("Cy" ?Æ) | |
| 162 ("sx" ?¹) | |
| 163 ("SX" ?©) | |
| 164 ("Sx" ?©) | |
| 165 ("zx" ?¾) | |
| 166 ("ZX" ?®) | |
| 167 ("Zx" ?®) | |
| 168 ("dy" ?ð) | |
| 169 ("DY" ?Ð) | |
| 170 ("Dy" ?Ð)) | |
| 171 | |
| 172 (quail-define-package | |
| 173 "croatian-cc" "Croatian" "HR" nil | |
| 174 "Another alternative Croatian input method. | |
| 175 | |
| 176 cc -> è | |
| 177 ch -> æ | |
| 178 ss -> ¹ | |
| 179 zz -> ¾ | |
| 180 dd -> ð" | |
| 181 nil t nil nil nil nil nil nil nil nil t) | |
| 182 | |
| 183 (quail-define-rules | |
| 184 ("cc" ?è) | |
| 185 ("CC" ?È) | |
| 186 ("Cc" ?È) | |
| 187 ("ch" ?æ) | |
| 188 ("CH" ?Æ) | |
| 189 ("Ch" ?Æ) | |
| 190 ("ss" ?¹) | |
| 191 ("SS" ?©) | |
| 192 ("Ss" ?©) | |
| 193 ("zz" ?¾) | |
| 194 ("ZZ" ?®) | |
| 195 ("Zz" ?®) | |
| 196 ("dd" ?ð) | |
| 197 ("DD" ?Ð) | |
| 198 ("Dd" ?Ð)) | |
| 52401 | 199 |
|
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
200 ;;; croatian.el ends here |