Mercurial > emacs
annotate leim/quail/croatian.el @ 95204:c329829ac385
(font_style_to_value, font_score): Use xstricmp.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Thu, 22 May 2008 13:36:30 +0000 |
| parents | 4f1fd208c354 |
| children | 0d2e4142fb60 |
| rev | line source |
|---|---|
| 49045 | 1 ;;; quail/croatian.el -- Quail package for inputing Croatian -*-coding: iso-8859-2;-*- |
| 2 | |
| 79727 | 3 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008 |
| 4 ;; Free Software Foundation, Inc. | |
| 49045 | 5 |
| 6 ;; Author: Hrvoje Nik¹iæ <hniksic@xemacs.org>, | |
| 7 ;; modeled after czech.el by Milan Zamazal. | |
| 8 ;; Keywords: i18n | |
| 9 | |
| 10 ;; This file is part of GNU Emacs. | |
| 11 | |
|
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
| 49045 | 13 ;; 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
|
14 ;; 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
|
15 ;; (at your option) any later version. |
| 49045 | 16 |
| 17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
| 18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 20 ;; GNU General Public License for more details. | |
| 21 | |
| 22 ;; 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
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
| 49045 | 24 |
| 25 ;;; Code: | |
| 26 | |
| 27 (require 'quail) | |
| 28 | |
| 29 (quail-define-package | |
| 30 "croatian" "Croatian" "HR" nil | |
| 31 "\"Standard\" Croatian keyboard." | |
| 32 nil t nil nil nil nil nil nil nil nil t) | |
| 33 | |
| 34 (quail-define-rules | |
| 35 ("@" ?\") | |
| 36 ("^" ?&) | |
| 37 ("&" ?/) | |
| 38 ("*" ?\() | |
| 39 ("(" ?\)) | |
| 40 (")" ?=) | |
| 41 ("-" ?\') | |
| 42 ("_" ??) | |
| 43 ("=" ?+) | |
| 44 ("+" ?*) | |
| 45 ("[" ?¹) | |
| 46 ("{" ?©) | |
| 47 ("]" ?ð) | |
| 48 ("}" ?Ð) | |
| 49 (";" ?è) | |
| 50 (":" ?È) | |
| 51 ("'" ?æ) | |
| 52 ("\"" ?Æ) | |
| 53 ("\\" ?¾) | |
| 54 ("|" ?®) | |
| 55 ("<" ?\;) | |
| 56 (">" ?:) | |
| 57 ("/" ?-) | |
| 58 ("?" ?_) | |
| 59 ("y" ?z) | |
| 60 ("Y" ?Z) | |
| 61 ("z" ?y) | |
| 62 ("Z" ?Y)) | |
| 63 | |
| 64 (quail-define-package | |
| 65 "croatian-qwerty" "Croatian" "HR" nil | |
| 66 "Croatian keyboard without the y/z swap." | |
| 67 nil t nil nil nil nil nil nil nil nil t) | |
| 68 | |
| 69 (quail-define-rules | |
| 70 ("@" ?\") | |
| 71 ("^" ?&) | |
| 72 ("&" ?/) | |
| 73 ("*" ?\() | |
| 74 ("(" ?\)) | |
| 75 (")" ?=) | |
| 76 ("-" ?\') | |
| 77 ("_" ??) | |
| 78 ("=" ?+) | |
| 79 ("+" ?*) | |
| 80 ("[" ?¹) | |
| 81 ("{" ?©) | |
| 82 ("]" ?ð) | |
| 83 ("}" ?Ð) | |
| 84 (";" ?è) | |
| 85 (":" ?È) | |
| 86 ("'" ?æ) | |
| 87 ("\"" ?Æ) | |
| 88 ("\\" ?¾) | |
| 89 ("|" ?®) | |
| 90 ("<" ?\;) | |
| 91 (">" ?:) | |
| 92 ("/" ?-) | |
| 93 ("?" ?_)) | |
| 94 | |
| 95 (quail-define-package | |
| 96 "croatian-prefix" "Croatian" "HR" nil | |
| 97 "Croatian input method, postfix. | |
| 98 | |
| 99 \"c -> è | |
| 100 'c -> æ | |
| 101 \"s -> ¹ | |
| 102 \"z -> ¾ | |
| 103 /d -> ð" | |
| 104 nil t nil nil nil nil nil nil nil nil t) | |
| 105 | |
| 106 (quail-define-rules | |
| 107 ("\"c" ?è) | |
| 108 ("\"C" ?È) | |
| 109 ("'c" ?æ) | |
| 110 ("'C" ?Æ) | |
| 111 ("\"s" ?¹) | |
| 112 ("\"S" ?©) | |
| 113 ("\"z" ?¾) | |
| 114 ("\"Z" ?®) | |
| 115 ("/d" ?ð) | |
| 116 ("/D" ?Ð)) | |
| 117 | |
| 118 (quail-define-package | |
| 119 "croatian-postfix" "Croatian" "HR" nil | |
| 120 "Croatian input method, postfix. | |
| 121 | |
| 122 c\" -> è | |
| 123 c' -> æ | |
| 124 s\" -> ¹ | |
| 125 z\" -> ¾ | |
| 126 d/ -> ð" | |
| 127 nil t nil nil nil nil nil nil nil nil t) | |
| 128 | |
| 129 (quail-define-rules | |
| 130 ("c\"" ?è) | |
| 131 ("C\"" ?È) | |
| 132 ("c'" ?æ) | |
| 133 ("C'" ?Æ) | |
| 134 ("s\"" ?¹) | |
| 135 ("S\"" ?©) | |
| 136 ("z\"" ?¾) | |
| 137 ("Z\"" ?®) | |
| 138 ("d/" ?ð) | |
| 139 ("D/" ?Ð)) | |
| 140 | |
| 141 (quail-define-package | |
| 142 "croatian-xy" "Croatian" "HR" nil | |
| 143 "An alternative Croatian input method. | |
| 144 | |
| 145 cx -> è | |
| 146 cy -> æ | |
| 147 sx -> ¹ | |
| 148 zx -> ¾ | |
| 149 dy -> ð" | |
| 150 nil t nil nil nil nil nil nil nil nil t) | |
| 151 | |
| 152 (quail-define-rules | |
| 153 ("cx" ?è) | |
| 154 ("CX" ?È) | |
| 155 ("Cx" ?È) | |
| 156 ("cy" ?æ) | |
| 157 ("CY" ?Æ) | |
| 158 ("Cy" ?Æ) | |
| 159 ("sx" ?¹) | |
| 160 ("SX" ?©) | |
| 161 ("Sx" ?©) | |
| 162 ("zx" ?¾) | |
| 163 ("ZX" ?®) | |
| 164 ("Zx" ?®) | |
| 165 ("dy" ?ð) | |
| 166 ("DY" ?Ð) | |
| 167 ("Dy" ?Ð)) | |
| 168 | |
| 169 (quail-define-package | |
| 170 "croatian-cc" "Croatian" "HR" nil | |
| 171 "Another alternative Croatian input method. | |
| 172 | |
| 173 cc -> è | |
| 174 ch -> æ | |
| 175 ss -> ¹ | |
| 176 zz -> ¾ | |
| 177 dd -> ð" | |
| 178 nil t nil nil nil nil nil nil nil nil t) | |
| 179 | |
| 180 (quail-define-rules | |
| 181 ("cc" ?è) | |
| 182 ("CC" ?È) | |
| 183 ("Cc" ?È) | |
| 184 ("ch" ?æ) | |
| 185 ("CH" ?Æ) | |
| 186 ("Ch" ?Æ) | |
| 187 ("ss" ?¹) | |
| 188 ("SS" ?©) | |
| 189 ("Ss" ?©) | |
| 190 ("zz" ?¾) | |
| 191 ("ZZ" ?®) | |
| 192 ("Zz" ?®) | |
| 193 ("dd" ?ð) | |
| 194 ("DD" ?Ð) | |
| 195 ("Dd" ?Ð)) | |
| 52401 | 196 |
|
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
197 ;; arch-tag: 8cb44078-9c51-4e81-9ef8-7d5b89f62e31 |
|
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
198 ;;; croatian.el ends here |