| 1 | ;;; cyrillic.el --- Quail package for inputting Cyrillic characters |
| 2 | |
| 3 | ;; Copyright (C) 1997-1998, 2001-2012 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, |
| 5 | ;; 2006, 2007, 2008, 2009, 2010, 2011 |
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 |
| 8 | |
| 9 | ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org> |
| 10 | ;; Keywords: multilingual, input method, Cyrillic, i18n |
| 11 | |
| 12 | ;; This file is part of GNU Emacs. |
| 13 | |
| 14 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
| 15 | ;; it under the terms of the GNU General Public License as published by |
| 16 | ;; the Free Software Foundation, either version 3 of the License, or |
| 17 | ;; (at your option) any later version. |
| 18 | |
| 19 | ;; GNU Emacs is distributed in the hope that it will be useful, |
| 20 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 21 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 22 | ;; GNU General Public License for more details. |
| 23 | |
| 24 | ;; You should have received a copy of the GNU General Public License |
| 25 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
| 26 | |
| 27 | ;;; Commentary: |
| 28 | |
| 29 | ;; These methods use a mixture of 8859-5 and Unicode. Quail, used |
| 30 | ;; with ucs-tables provides support for translating on the fly to |
| 31 | ;; what's appropriate for aa buffer's file coding system, so the |
| 32 | ;; encoding shouldn't matter too much provided it supports the |
| 33 | ;; necessary characters. |
| 34 | |
| 35 | ;;; Code: |
| 36 | |
| 37 | (require 'quail) |
| 38 | |
| 39 | ;; This was `cyrillic-jcuken'. Alexander Mikhailian |
| 40 | ;; <mikhailian@altern.org> says: "cyrillic-jcuken" is actually |
| 41 | ;; russian. It is ok but a bit outdated. This layout has been used |
| 42 | ;; in typewriters for ages but it has been superseded on desktops by |
| 43 | ;; a variation of this layout, implemented in M$ Windows software. |
| 44 | ;; The Windows layout is greatly preferred because of the comma and |
| 45 | ;; period being placed more conveniently and, of course, because of |
| 46 | ;; the popularity of Windows software. This layout is a common option |
| 47 | ;; in X Windows and console layouts for GNU/Linux. [See |
| 48 | ;; `russian-computer' below.] |
| 49 | (quail-define-package |
| 50 | "russian-typewriter" "Russian" "\e,L69\e(B" nil |
| 51 | "\e,L9FC:5=\e(B Russian typewriter layout (ISO 8859-5 encoding)." |
| 52 | nil t t t t nil nil nil nil nil t) |
| 53 | |
| 54 | ;; \e,Lp\e(B1 -2 /3 "4 :5 ,6 .7 _8 ?9 %0 != ;\ |+ |
| 55 | ;; \e,L9\e(B \e,LF\e(B \e,LC\e(B \e,L:\e(B \e,L5\e(B \e,L=\e(B \e,L3\e(B \e,LH\e(B \e,LI\e(B \e,L7\e(B \e,LE\e(B \e,LJ\e(B )( |
| 56 | ;; \e,LD\e(B \e,LK\e(B \e,L2\e(B \e,L0\e(B \e,L?\e(B \e,L@\e(B \e,L>\e(B \e,L;\e(B \e,L4\e(B \e,L6\e(B \e,LM\e(B |
| 57 | ;; \e,LO\e(B \e,LG\e(B \e,LA\e(B \e,L<\e(B \e,L8\e(B \e,LB\e(B \e,LL\e(B \e,L1\e(B \e,LN\e(B \e,L!\e(B |
| 58 | |
| 59 | (quail-define-rules |
| 60 | ("1" ?\e,Lp\e(B) |
| 61 | ("2" ?-) |
| 62 | ("3" ?/) |
| 63 | ("4" ?\") |
| 64 | ("5" ?:) |
| 65 | ("6" ?,) |
| 66 | ("7" ?.) |
| 67 | ("8" ?_) |
| 68 | ("9" ??) |
| 69 | ("0" ?%) |
| 70 | ("-" ?!) |
| 71 | ("=" ?\;) |
| 72 | ("`" ?|) |
| 73 | ("q" ?\e,LY\e(B) |
| 74 | ("w" ?\e,Lf\e(B) |
| 75 | ("e" ?\e,Lc\e(B) |
| 76 | ("r" ?\e,LZ\e(B) |
| 77 | ("t" ?\e,LU\e(B) |
| 78 | ("y" ?\e,L]\e(B) |
| 79 | ("u" ?\e,LS\e(B) |
| 80 | ("i" ?\e,Lh\e(B) |
| 81 | ("o" ?\e,Li\e(B) |
| 82 | ("p" ?\e,LW\e(B) |
| 83 | ("[" ?\e,Le\e(B) |
| 84 | ("]" ?\e,Lj\e(B) |
| 85 | ("a" ?\e,Ld\e(B) |
| 86 | ("s" ?\e,Lk\e(B) |
| 87 | ("d" ?\e,LR\e(B) |
| 88 | ("f" ?\e,LP\e(B) |
| 89 | ("g" ?\e,L_\e(B) |
| 90 | ("h" ?\e,L`\e(B) |
| 91 | ("j" ?\e,L^\e(B) |
| 92 | ("k" ?\e,L[\e(B) |
| 93 | ("l" ?\e,LT\e(B) |
| 94 | (";" ?\e,LV\e(B) |
| 95 | ("'" ?\e,Lm\e(B) |
| 96 | ("\\" ?\)) |
| 97 | ("z" ?\e,Lo\e(B) |
| 98 | ("x" ?\e,Lg\e(B) |
| 99 | ("c" ?\e,La\e(B) |
| 100 | ("v" ?\e,L\\e(B) |
| 101 | ("b" ?\e,LX\e(B) |
| 102 | ("n" ?\e,Lb\e(B) |
| 103 | ("m" ?\e,Ll\e(B) |
| 104 | ("," ?\e,LQ\e(B) |
| 105 | ("." ?\e,Ln\e(B) |
| 106 | ("/" ?\e,Lq\e(B) |
| 107 | |
| 108 | ("!" ?1) |
| 109 | ("@" ?2) |
| 110 | ("#" ?3) |
| 111 | ("$" ?4) |
| 112 | ("%" ?5) |
| 113 | ("^" ?6) |
| 114 | ("&" ?7) |
| 115 | ("*" ?8) |
| 116 | ("(" ?9) |
| 117 | (")" ?0) |
| 118 | ("_" ?=) |
| 119 | ("+" ?\\) |
| 120 | ("~" ?+) |
| 121 | ("Q" ?\e,L9\e(B) |
| 122 | ("W" ?\e,LF\e(B) |
| 123 | ("E" ?\e,LC\e(B) |
| 124 | ("R" ?\e,L:\e(B) |
| 125 | ("T" ?\e,L5\e(B) |
| 126 | ("Y" ?\e,L=\e(B) |
| 127 | ("U" ?\e,L3\e(B) |
| 128 | ("I" ?\e,LH\e(B) |
| 129 | ("O" ?\e,LI\e(B) |
| 130 | ("P" ?\e,L7\e(B) |
| 131 | ("{" ?\e,LE\e(B) |
| 132 | ("}" ?\e,LJ\e(B) |
| 133 | ("A" ?\e,LD\e(B) |
| 134 | ("S" ?\e,LK\e(B) |
| 135 | ("D" ?\e,L2\e(B) |
| 136 | ("F" ?\e,L0\e(B) |
| 137 | ("G" ?\e,L?\e(B) |
| 138 | ("H" ?\e,L@\e(B) |
| 139 | ("J" ?\e,L>\e(B) |
| 140 | ("K" ?\e,L;\e(B) |
| 141 | ("L" ?\e,L4\e(B) |
| 142 | (":" ?\e,L6\e(B) |
| 143 | ("\"" ?\e,LM\e(B) |
| 144 | ("|" ?\() |
| 145 | ("Z" ?\e,LO\e(B) |
| 146 | ("X" ?\e,LG\e(B) |
| 147 | ("C" ?\e,LA\e(B) |
| 148 | ("V" ?\e,L<\e(B) |
| 149 | ("B" ?\e,L8\e(B) |
| 150 | ("N" ?\e,LB\e(B) |
| 151 | ("M" ?\e,LL\e(B) |
| 152 | ("<" ?\e,L1\e(B) |
| 153 | (">" ?\e,LN\e(B) |
| 154 | ("?" ?\e,L!\e(B) |
| 155 | ) |
| 156 | |
| 157 | ;; Maintain the obsolete name for now. |
| 158 | (push (cons "cyrillic-jcuken" |
| 159 | (cdr (assoc "russian-typewriter" quail-package-alist))) |
| 160 | quail-package-alist) |
| 161 | |
| 162 | ;; This needs to be seen by quail-update-leim-list-file, but cannot be |
| 163 | ;; commented out because quail-update-leim-list-file ignores |
| 164 | ;; commented-out lines. |
| 165 | (if nil |
| 166 | (quail-define-package |
| 167 | "cyrillic-jcuken" "Russian" "\e,L69\e(B" nil |
| 168 | "\e,L9FC:5=\e(B Russian typewriter layout (ISO 8859-5 encoding).")) |
| 169 | |
| 170 | ;; See comment above. This is the variant `winkeys' from `ru' in XKB. |
| 171 | (quail-define-package |
| 172 | "russian-computer" "Russian" "RU" nil |
| 173 | "\e,L9FC:5=\e(B Russian computer layout" |
| 174 | nil t t t t nil nil nil nil nil t) |
| 175 | |
| 176 | ;; 1! 2" 3\e,Lp\e(B 4; 5% 6: 7? 8* 9( 0) -_ =+ \/ \e,Lq!\e(B |
| 177 | ;; \e,L9\e(B \e,LF\e(B \e,LC\e(B \e,L:\e(B \e,L5\e(B \e,L=\e(B \e,L3\e(B \e,LH\e(B \e,LI\e(B \e,L7\e(B \e,LE\e(B \e,LJ\e(B |
| 178 | ;; \e,LD\e(B \e,LK\e(B \e,L2\e(B \e,L0\e(B \e,L?\e(B \e,L@\e(B \e,L>\e(B \e,L;\e(B \e,L4\e(B \e,L6\e(B \e,LM\e(B |
| 179 | ;; \e,LO\e(B \e,LG\e(B \e,LA\e(B \e,L<\e(B \e,L8\e(B \e,LB\e(B \e,LL\e(B \e,L1\e(B \e,LN\e(B ., |
| 180 | |
| 181 | (quail-define-rules |
| 182 | ("1" ?1) |
| 183 | ("2" ?2) |
| 184 | ("3" ?3) |
| 185 | ("4" ?4) |
| 186 | ("5" ?5) |
| 187 | ("6" ?6) |
| 188 | ("7" ?7) |
| 189 | ("8" ?8) |
| 190 | ("9" ?9) |
| 191 | ("0" ?0) |
| 192 | ("-" ?-) |
| 193 | ("=" ?=) |
| 194 | ("|" ?/) |
| 195 | ("`" ?\e,Lq\e(B) |
| 196 | ("q" ?\e,LY\e(B) |
| 197 | ("w" ?\e,Lf\e(B) |
| 198 | ("e" ?\e,Lc\e(B) |
| 199 | ("r" ?\e,LZ\e(B) |
| 200 | ("t" ?\e,LU\e(B) |
| 201 | ("y" ?\e,L]\e(B) |
| 202 | ("u" ?\e,LS\e(B) |
| 203 | ("i" ?\e,Lh\e(B) |
| 204 | ("o" ?\e,Li\e(B) |
| 205 | ("p" ?\e,LW\e(B) |
| 206 | ("[" ?\e,Le\e(B) |
| 207 | ("]" ?\e,Lj\e(B) |
| 208 | ("a" ?\e,Ld\e(B) |
| 209 | ("s" ?\e,Lk\e(B) |
| 210 | ("d" ?\e,LR\e(B) |
| 211 | ("f" ?\e,LP\e(B) |
| 212 | ("g" ?\e,L_\e(B) |
| 213 | ("h" ?\e,L`\e(B) |
| 214 | ("j" ?\e,L^\e(B) |
| 215 | ("k" ?\e,L[\e(B) |
| 216 | ("l" ?\e,LT\e(B) |
| 217 | (";" ?\e,LV\e(B) |
| 218 | ("'" ?\e,Lm\e(B) |
| 219 | ("\\" ?\\) |
| 220 | ("z" ?\e,Lo\e(B) |
| 221 | ("x" ?\e,Lg\e(B) |
| 222 | ("c" ?\e,La\e(B) |
| 223 | ("v" ?\e,L\\e(B) |
| 224 | ("b" ?\e,LX\e(B) |
| 225 | ("n" ?\e,Lb\e(B) |
| 226 | ("m" ?\e,Ll\e(B) |
| 227 | ("," ?\e,LQ\e(B) |
| 228 | ("." ?\e,Ln\e(B) |
| 229 | ("/" ?.) |
| 230 | ("!" ?!) |
| 231 | ("@" ?\") |
| 232 | ("#" ?\e,Lp\e(B) |
| 233 | ("$" ?\;) |
| 234 | ("%" ?%) |
| 235 | ("^" ?:) |
| 236 | ("&" ??) |
| 237 | ("*" ?*) |
| 238 | ("(" ?() |
| 239 | (")" ?)) |
| 240 | ("_" ?_) |
| 241 | ("+" ?+) |
| 242 | ("~" ?\e,L!\e(B) |
| 243 | ("Q" ?\e,L9\e(B) |
| 244 | ("W" ?\e,LF\e(B) |
| 245 | ("E" ?\e,LC\e(B) |
| 246 | ("R" ?\e,L:\e(B) |
| 247 | ("T" ?\e,L5\e(B) |
| 248 | ("Y" ?\e,L=\e(B) |
| 249 | ("U" ?\e,L3\e(B) |
| 250 | ("I" ?\e,LH\e(B) |
| 251 | ("O" ?\e,LI\e(B) |
| 252 | ("P" ?\e,L7\e(B) |
| 253 | ("{" ?\e,LE\e(B) |
| 254 | ("}" ?\e,LJ\e(B) |
| 255 | ("A" ?\e,LD\e(B) |
| 256 | ("S" ?\e,LK\e(B) |
| 257 | ("D" ?\e,L2\e(B) |
| 258 | ("F" ?\e,L0\e(B) |
| 259 | ("G" ?\e,L?\e(B) |
| 260 | ("H" ?\e,L@\e(B) |
| 261 | ("J" ?\e,L>\e(B) |
| 262 | ("K" ?\e,L;\e(B) |
| 263 | ("L" ?\e,L4\e(B) |
| 264 | (":" ?\e,L6\e(B) |
| 265 | ("\"" ?\e,LM\e(B) |
| 266 | ("|" ?|) |
| 267 | ("Z" ?\e,LO\e(B) |
| 268 | ("X" ?\e,LG\e(B) |
| 269 | ("C" ?\e,LA\e(B) |
| 270 | ("V" ?\e,L<\e(B) |
| 271 | ("B" ?\e,L8\e(B) |
| 272 | ("N" ?\e,LB\e(B) |
| 273 | ("M" ?\e,LL\e(B) |
| 274 | ("<" ?\e,L1\e(B) |
| 275 | (">" ?\e,LN\e(B) |
| 276 | ("?" ?,)) |
| 277 | |
| 278 | ;; Mikhailian couldn't check the next two. |
| 279 | |
| 280 | ;; This seems to have the same layout for letters as mk in XKB, but at |
| 281 | ;; least the top row is different. |
| 282 | (quail-define-package |
| 283 | "cyrillic-macedonian" "Cyrillic" "\e,L6\e(BM" nil |
| 284 | "\e,L)*5@B7\e(B-\e,L#,\e(B keyboard layout based on JUS.I.K1.004" |
| 285 | nil t t t t nil nil nil nil nil t) |
| 286 | |
| 287 | ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> |
| 288 | ;; \e,L)\e(B \e,L*\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,L7\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,L#\e(B |
| 289 | ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L(\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B \e,L,\e(B \e,L6\e(B |
| 290 | ;; \e,L%\e(B \e,L/\e(B \e,LF\e(B \e,L2\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,; .: -_ |
| 291 | |
| 292 | (quail-define-rules |
| 293 | ("1" ?1) |
| 294 | ("2" ?2) |
| 295 | ("3" ?3) |
| 296 | ("4" ?4) |
| 297 | ("5" ?5) |
| 298 | ("6" ?6) |
| 299 | ("7" ?7) |
| 300 | ("8" ?8) |
| 301 | ("9" ?9) |
| 302 | ("0" ?0) |
| 303 | ("-" ?/) |
| 304 | ("=" ?+) |
| 305 | ("`" ?<) |
| 306 | ("q" ?\e,Ly\e(B) |
| 307 | ("w" ?\e,Lz\e(B) |
| 308 | ("e" ?\e,LU\e(B) |
| 309 | ("r" ?\e,L`\e(B) |
| 310 | ("t" ?\e,Lb\e(B) |
| 311 | ("y" ?\e,LW\e(B) |
| 312 | ("u" ?\e,Lc\e(B) |
| 313 | ("i" ?\e,LX\e(B) |
| 314 | ("o" ?\e,L^\e(B) |
| 315 | ("p" ?\e,L_\e(B) |
| 316 | ("[" ?\e,Lh\e(B) |
| 317 | ("]" ?\e,Ls\e(B) |
| 318 | ("a" ?\e,LP\e(B) |
| 319 | ("s" ?\e,La\e(B) |
| 320 | ("d" ?\e,LT\e(B) |
| 321 | ("f" ?\e,Ld\e(B) |
| 322 | ("g" ?\e,LS\e(B) |
| 323 | ("h" ?\e,Le\e(B) |
| 324 | ("j" ?\e,Lx\e(B) |
| 325 | ("k" ?\e,LZ\e(B) |
| 326 | ("l" ?\e,L[\e(B) |
| 327 | (";" ?\e,Lg\e(B) |
| 328 | ("'" ?\e,L|\e(B) |
| 329 | ("\\" ?\e,LV\e(B) |
| 330 | ("z" ?\e,Lu\e(B) |
| 331 | ("x" ?\e,L\7f\e(B) |
| 332 | ("c" ?\e,Lf\e(B) |
| 333 | ("v" ?\e,LR\e(B) |
| 334 | ("b" ?\e,LQ\e(B) |
| 335 | ("n" ?\e,L]\e(B) |
| 336 | ("m" ?\e,L\\e(B) |
| 337 | ("," ?,) |
| 338 | ("." ?.) |
| 339 | ("/" ?-) |
| 340 | |
| 341 | ("!" ?!) |
| 342 | ("@" ?\") |
| 343 | ("#" ?#) |
| 344 | ("$" ?$) |
| 345 | ("%" ?%) |
| 346 | ("^" ?&) |
| 347 | ("&" ?') |
| 348 | ("*" ?\() |
| 349 | ("(" ?\)) |
| 350 | (")" ?=) |
| 351 | ("_" ??) |
| 352 | ("+" ?*) |
| 353 | ("~" ?>) |
| 354 | ("Q" ?\e,L)\e(B) |
| 355 | ("W" ?\e,L*\e(B) |
| 356 | ("E" ?\e,L5\e(B) |
| 357 | ("R" ?\e,L@\e(B) |
| 358 | ("T" ?\e,LB\e(B) |
| 359 | ("Y" ?\e,L7\e(B) |
| 360 | ("U" ?\e,LC\e(B) |
| 361 | ("I" ?\e,L8\e(B) |
| 362 | ("O" ?\e,L>\e(B) |
| 363 | ("P" ?\e,L?\e(B) |
| 364 | ("{" ?\e,LH\e(B) |
| 365 | ("}" ?\e,L#\e(B) |
| 366 | ("A" ?\e,L0\e(B) |
| 367 | ("S" ?\e,LA\e(B) |
| 368 | ("D" ?\e,L4\e(B) |
| 369 | ("F" ?\e,LD\e(B) |
| 370 | ("G" ?\e,L3\e(B) |
| 371 | ("H" ?\e,LE\e(B) |
| 372 | ("J" ?\e,L(\e(B) |
| 373 | ("K" ?\e,L:\e(B) |
| 374 | ("L" ?\e,L;\e(B) |
| 375 | (":" ?\e,LG\e(B) |
| 376 | ("\"" ?\e,L,\e(B) |
| 377 | ("|" ?\e,L6\e(B) |
| 378 | ("Z" ?\e,L%\e(B) |
| 379 | ("X" ?\e,L/\e(B) |
| 380 | ("C" ?\e,LF\e(B) |
| 381 | ("V" ?\e,L2\e(B) |
| 382 | ("B" ?\e,L1\e(B) |
| 383 | ("N" ?\e,L=\e(B) |
| 384 | ("M" ?\e,L<\e(B) |
| 385 | ("<" ?\;) |
| 386 | (">" ?:) |
| 387 | ("?" ?_)) |
| 388 | |
| 389 | ;; |
| 390 | |
| 391 | (quail-define-package |
| 392 | "cyrillic-serbian" "Cyrillic" "\e,L6\e(BS" nil |
| 393 | "\e,L)*5@B7\e(B-\e,L"+\e(B keyboard layout based on JUS.I.K1.005" |
| 394 | nil t t t t nil nil nil nil nil t) |
| 395 | |
| 396 | ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> |
| 397 | ;; \e,L)\e(B \e,L*\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,L7\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,L"\e(B |
| 398 | ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L(\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B \e,L+\e(B \e,L6\e(B |
| 399 | ;; \e,L%\e(B \e,L/\e(B \e,LF\e(B \e,L2\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,; .: -_ |
| 400 | |
| 401 | (quail-define-rules |
| 402 | ("1" ?1) |
| 403 | ("2" ?2) |
| 404 | ("3" ?3) |
| 405 | ("4" ?4) |
| 406 | ("5" ?5) |
| 407 | ("6" ?6) |
| 408 | ("7" ?7) |
| 409 | ("8" ?8) |
| 410 | ("9" ?9) |
| 411 | ("0" ?0) |
| 412 | ("-" ?/) |
| 413 | ("=" ?+) |
| 414 | ("`" ?<) |
| 415 | ("q" ?\e,Ly\e(B) |
| 416 | ("w" ?\e,Lz\e(B) |
| 417 | ("e" ?\e,LU\e(B) |
| 418 | ("r" ?\e,L`\e(B) |
| 419 | ("t" ?\e,Lb\e(B) |
| 420 | ("y" ?\e,LW\e(B) |
| 421 | ("u" ?\e,Lc\e(B) |
| 422 | ("i" ?\e,LX\e(B) |
| 423 | ("o" ?\e,L^\e(B) |
| 424 | ("p" ?\e,L_\e(B) |
| 425 | ("[" ?\e,Lh\e(B) |
| 426 | ("]" ?\e,Lr\e(B) |
| 427 | ("a" ?\e,LP\e(B) |
| 428 | ("s" ?\e,La\e(B) |
| 429 | ("d" ?\e,LT\e(B) |
| 430 | ("f" ?\e,Ld\e(B) |
| 431 | ("g" ?\e,LS\e(B) |
| 432 | ("h" ?\e,Le\e(B) |
| 433 | ("j" ?\e,Lx\e(B) |
| 434 | ("k" ?\e,LZ\e(B) |
| 435 | ("l" ?\e,L[\e(B) |
| 436 | (";" ?\e,Lg\e(B) |
| 437 | ("'" ?\e,L{\e(B) |
| 438 | ("\\" ?\e,LV\e(B) |
| 439 | ("z" ?\e,Lu\e(B) |
| 440 | ("x" ?\e,L\7f\e(B) |
| 441 | ("c" ?\e,Lf\e(B) |
| 442 | ("v" ?\e,LR\e(B) |
| 443 | ("b" ?\e,LQ\e(B) |
| 444 | ("n" ?\e,L]\e(B) |
| 445 | ("m" ?\e,L\\e(B) |
| 446 | ("," ?,) |
| 447 | ("." ?.) |
| 448 | ("/" ?-) |
| 449 | |
| 450 | ("!" ?!) |
| 451 | ("@" ?\") |
| 452 | ("#" ?#) |
| 453 | ("$" ?$) |
| 454 | ("%" ?%) |
| 455 | ("^" ?&) |
| 456 | ("&" ?') |
| 457 | ("*" ?\() |
| 458 | ("(" ?\)) |
| 459 | (")" ?=) |
| 460 | ("_" ??) |
| 461 | ("+" ?*) |
| 462 | ("~" ?>) |
| 463 | ("Q" ?\e,L)\e(B) |
| 464 | ("W" ?\e,L*\e(B) |
| 465 | ("E" ?\e,L5\e(B) |
| 466 | ("R" ?\e,L@\e(B) |
| 467 | ("T" ?\e,LB\e(B) |
| 468 | ("Y" ?\e,L7\e(B) |
| 469 | ("U" ?\e,LC\e(B) |
| 470 | ("I" ?\e,L8\e(B) |
| 471 | ("O" ?\e,L>\e(B) |
| 472 | ("P" ?\e,L?\e(B) |
| 473 | ("{" ?\e,LH\e(B) |
| 474 | ("}" ?\e,L"\e(B) |
| 475 | ("A" ?\e,L0\e(B) |
| 476 | ("S" ?\e,LA\e(B) |
| 477 | ("D" ?\e,L4\e(B) |
| 478 | ("F" ?\e,LD\e(B) |
| 479 | ("G" ?\e,L3\e(B) |
| 480 | ("H" ?\e,LE\e(B) |
| 481 | ("J" ?\e,L(\e(B) |
| 482 | ("K" ?\e,L:\e(B) |
| 483 | ("L" ?\e,L;\e(B) |
| 484 | (":" ?\e,LG\e(B) |
| 485 | ("\"" ?\e,L+\e(B) |
| 486 | ("|" ?\e,L6\e(B) |
| 487 | ("Z" ?\e,L%\e(B) |
| 488 | ("X" ?\e,L/\e(B) |
| 489 | ("C" ?\e,LF\e(B) |
| 490 | ("V" ?\e,L2\e(B) |
| 491 | ("B" ?\e,L1\e(B) |
| 492 | ("N" ?\e,L=\e(B) |
| 493 | ("M" ?\e,L<\e(B) |
| 494 | ("<" ?\;) |
| 495 | (">" ?:) |
| 496 | ("?" ?_)) |
| 497 | |
| 498 | ;; |
| 499 | |
| 500 | ;; Alexander Mikhailian comments: |
| 501 | ;; Having worked for several years as a Belarusian linguist, I still |
| 502 | ;; can not find the origin of this layout which BTW does include |
| 503 | ;; several characters that are not present in Belarusian and does not |
| 504 | ;; include a few ones that do exist in Belarusian. Besides, the typo |
| 505 | ;; in the name of this layout speaks for itself since Belarusian has |
| 506 | ;; an outdated version of spelling which is "Byelorussian" and not |
| 507 | ;; "beylorussian". I suggest that you just remove this layout. |
| 508 | |
| 509 | ;; [`derived from JUS.I.K1' according to an old Mule note -- fx] |
| 510 | |
| 511 | ;; (quail-define-package |
| 512 | ;; "cyrillic-beylorussian" "Belarussian" "\e,L6\e(BB" nil |
| 513 | ;; "\e,L)*5@B7\e(B-\e,L&.\e(B BEYLORUSSIAN (ISO 8859-5 encoding)" |
| 514 | ;; nil t t t t nil nil nil nil nil t) |
| 515 | |
| 516 | ;; ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> |
| 517 | ;; ;; \e,L)\e(B \e,L*\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,L7\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,L&\e(B |
| 518 | ;; ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L(\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B \e,L.\e(B \e,L6\e(B |
| 519 | ;; ;; \e,L%\e(B \e,L/\e(B \e,LF\e(B \e,L2\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,; .: -_ |
| 520 | |
| 521 | ;; (quail-define-rules |
| 522 | ;; ("-" ?/) |
| 523 | ;; ("=" ?+) |
| 524 | ;; ("`" ?<) |
| 525 | ;; ("q" ?\e,Ly\e(B) |
| 526 | ;; ("w" ?\e,Lz\e(B) |
| 527 | ;; ("e" ?\e,LU\e(B) |
| 528 | ;; ("r" ?\e,L`\e(B) |
| 529 | ;; ("t" ?\e,Lb\e(B) |
| 530 | ;; ("y" ?\e,LW\e(B) |
| 531 | ;; ("u" ?\e,Lc\e(B) |
| 532 | ;; ("i" ?\e,LX\e(B) |
| 533 | ;; ("o" ?\e,L^\e(B) |
| 534 | ;; ("p" ?\e,L_\e(B) |
| 535 | ;; ("[" ?\e,Lh\e(B) |
| 536 | ;; ("]" ?\e,Lv\e(B) |
| 537 | ;; ("a" ?\e,LP\e(B) |
| 538 | ;; ("s" ?\e,La\e(B) |
| 539 | ;; ("d" ?\e,LT\e(B) |
| 540 | ;; ("f" ?\e,Ld\e(B) |
| 541 | ;; ("g" ?\e,LS\e(B) |
| 542 | ;; ("h" ?\e,Le\e(B) |
| 543 | ;; ("j" ?\e,Lx\e(B) |
| 544 | ;; ("k" ?\e,LZ\e(B) |
| 545 | ;; ("l" ?\e,L[\e(B) |
| 546 | ;; (";" ?\e,Lg\e(B) |
| 547 | ;; ("'" ?\e,L~\e(B) |
| 548 | ;; ("\\" ?\e,LV\e(B) |
| 549 | ;; ("z" ?\e,Lu\e(B) |
| 550 | ;; ("x" ?\e,L\7f\e(B) |
| 551 | ;; ("c" ?\e,Lf\e(B) |
| 552 | ;; ("v" ?\e,LR\e(B) |
| 553 | ;; ("b" ?\e,LQ\e(B) |
| 554 | ;; ("n" ?\e,L]\e(B) |
| 555 | ;; ("m" ?\e,L\\e(B) |
| 556 | ;; ("/" ?-) |
| 557 | |
| 558 | ;; ("@" ?\") |
| 559 | ;; ("^" ?&) |
| 560 | ;; ("&" ?') |
| 561 | ;; ("*" ?\() |
| 562 | ;; ("(" ?\)) |
| 563 | ;; (")" ?=) |
| 564 | ;; ("_" ??) |
| 565 | ;; ("+" ?*) |
| 566 | ;; ("~" ?>) |
| 567 | ;; ("Q" ?\e,L)\e(B) |
| 568 | ;; ("W" ?\e,L*\e(B) |
| 569 | ;; ("E" ?\e,L5\e(B) |
| 570 | ;; ("R" ?\e,L@\e(B) |
| 571 | ;; ("T" ?\e,LB\e(B) |
| 572 | ;; ("Y" ?\e,L7\e(B) |
| 573 | ;; ("U" ?\e,LC\e(B) |
| 574 | ;; ("I" ?\e,L8\e(B) |
| 575 | ;; ("O" ?\e,L>\e(B) |
| 576 | ;; ("P" ?\e,L?\e(B) |
| 577 | ;; ("{" ?\e,LH\e(B) |
| 578 | ;; ("}" ?\e,L&\e(B) |
| 579 | ;; ("A" ?\e,L0\e(B) |
| 580 | ;; ("S" ?\e,LA\e(B) |
| 581 | ;; ("D" ?\e,L4\e(B) |
| 582 | ;; ("F" ?\e,LD\e(B) |
| 583 | ;; ("G" ?\e,L3\e(B) |
| 584 | ;; ("H" ?\e,LE\e(B) |
| 585 | ;; ("J" ?\e,L(\e(B) |
| 586 | ;; ("K" ?\e,L:\e(B) |
| 587 | ;; ("L" ?\e,L;\e(B) |
| 588 | ;; (":" ?\e,LG\e(B) |
| 589 | ;; ("\"" ?\e,L.\e(B) |
| 590 | ;; ("|" ?\e,L6\e(B) |
| 591 | ;; ("Z" ?\e,L%\e(B) |
| 592 | ;; ("X" ?\e,L/\e(B) |
| 593 | ;; ("C" ?\e,LF\e(B) |
| 594 | ;; ("V" ?\e,L2\e(B) |
| 595 | ;; ("B" ?\e,L1\e(B) |
| 596 | ;; ("N" ?\e,L=\e(B) |
| 597 | ;; ("M" ?\e,L<\e(B) |
| 598 | ;; ("<" ?\;) |
| 599 | ;; (">" ?:) |
| 600 | ;; ("?" ?_)) |
| 601 | |
| 602 | ;; |
| 603 | |
| 604 | ;; Alexander Mikhailian reports the opinion of fellow Ukrainian |
| 605 | ;; linguist Bogdan Babych <babych@altern.org>: |
| 606 | ;; He had seen this layout on some oldish systems but that the vast |
| 607 | ;; majority of the population uses a modified version of the M$ Windows |
| 608 | ;; layout. In fact, Microsoft shipped for a while a layout that was lacking |
| 609 | ;; two characters, precisely the "GHE_WITH_UPTURN" and the apostrophe. The |
| 610 | ;; latest versions of Windows software do have the "GHE_WITH_UPTURN" in the |
| 611 | ;; ukrainian keyboard layout but the apostrophe is still not there, whereas |
| 612 | ;; there is one letter, "Cyrillic_YO", not used in ukrainian. Ukrainians |
| 613 | ;; normally replace the "Cyrillic_YO" by the apostrophe sign and live |
| 614 | ;; happily with this little change. [See "ukrainian-computer" below.] |
| 615 | |
| 616 | ;; Fixme: add GHE_WITH_UPTURN. |
| 617 | (quail-define-package |
| 618 | "cyrillic-ukrainian" "Ukrainian" "\e,L6\e(BU" nil |
| 619 | "\e,L$'5@B7\e(B-\e,L&.\e(B UKRAINIAN |
| 620 | |
| 621 | Sorry, but 'ghe with upturn' is not included in ISO 8859-5." |
| 622 | nil t t t t nil nil nil nil nil t) |
| 623 | |
| 624 | ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> |
| 625 | ;; \e,L$\e(B \e,L'\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,L7\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,L&\e(B |
| 626 | ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L(\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B \e,L.\e(B \e,L6\e(B |
| 627 | ;; \e,L%\e(B \e,L/\e(B \e,LF\e(B \e,L2\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,; .: -_ |
| 628 | |
| 629 | (quail-define-rules |
| 630 | ("1" ?1) |
| 631 | ("2" ?2) |
| 632 | ("3" ?3) |
| 633 | ("4" ?4) |
| 634 | ("5" ?5) |
| 635 | ("6" ?6) |
| 636 | ("7" ?7) |
| 637 | ("8" ?8) |
| 638 | ("9" ?9) |
| 639 | ("0" ?0) |
| 640 | ("-" ?/) |
| 641 | ("=" ?+) |
| 642 | ("`" ?<) |
| 643 | ("q" ?\e,Lt\e(B) |
| 644 | ("w" ?\e,Lw\e(B) |
| 645 | ("e" ?\e,LU\e(B) |
| 646 | ("r" ?\e,L`\e(B) |
| 647 | ("t" ?\e,Lb\e(B) |
| 648 | ("y" ?\e,LW\e(B) |
| 649 | ("u" ?\e,Lc\e(B) |
| 650 | ("i" ?\e,LX\e(B) |
| 651 | ("o" ?\e,L^\e(B) |
| 652 | ("p" ?\e,L_\e(B) |
| 653 | ("[" ?\e,Lh\e(B) |
| 654 | ("]" ?\e,Lv\e(B) |
| 655 | ("a" ?\e,LP\e(B) |
| 656 | ("s" ?\e,La\e(B) |
| 657 | ("d" ?\e,LT\e(B) |
| 658 | ("f" ?\e,Ld\e(B) |
| 659 | ("g" ?\e,LS\e(B) |
| 660 | ("h" ?\e,Le\e(B) |
| 661 | ("j" ?\e,Lx\e(B) |
| 662 | ("k" ?\e,LZ\e(B) |
| 663 | ("l" ?\e,L[\e(B) |
| 664 | (";" ?\e,Lg\e(B) |
| 665 | ("'" ?\e,L~\e(B) |
| 666 | ("\\" ?\e,LV\e(B) |
| 667 | ("z" ?\e,Lu\e(B) |
| 668 | ("x" ?\e,L\7f\e(B) |
| 669 | ("c" ?\e,Lf\e(B) |
| 670 | ("v" ?\e,LR\e(B) |
| 671 | ("b" ?\e,LQ\e(B) |
| 672 | ("n" ?\e,L]\e(B) |
| 673 | ("m" ?\e,L\\e(B) |
| 674 | ("," ?,) |
| 675 | ("." ?.) |
| 676 | ("/" ?-) |
| 677 | |
| 678 | ("!" ?!) |
| 679 | ("@" ?\") |
| 680 | ("#" ?#) |
| 681 | ("$" ?$) |
| 682 | ("%" ?%) |
| 683 | ("^" ?&) |
| 684 | ("&" ?') |
| 685 | ("*" ?\() |
| 686 | ("(" ?\)) |
| 687 | (")" ?=) |
| 688 | ("_" ??) |
| 689 | ("+" ?*) |
| 690 | ("~" ?>) |
| 691 | ("Q" ?\e,L$\e(B) |
| 692 | ("W" ?\e,L'\e(B) |
| 693 | ("E" ?\e,L5\e(B) |
| 694 | ("R" ?\e,L@\e(B) |
| 695 | ("T" ?\e,LB\e(B) |
| 696 | ("Y" ?\e,L7\e(B) |
| 697 | ("U" ?\e,LC\e(B) |
| 698 | ("I" ?\e,L8\e(B) |
| 699 | ("O" ?\e,L>\e(B) |
| 700 | ("P" ?\e,L?\e(B) |
| 701 | ("{" ?\e,LH\e(B) |
| 702 | ("}" ?\e,L&\e(B) |
| 703 | ("A" ?\e,L0\e(B) |
| 704 | ("S" ?\e,LA\e(B) |
| 705 | ("D" ?\e,L4\e(B) |
| 706 | ("F" ?\e,LD\e(B) |
| 707 | ("G" ?\e,L3\e(B) |
| 708 | ("H" ?\e,LE\e(B) |
| 709 | ("J" ?\e,L(\e(B) |
| 710 | ("K" ?\e,L:\e(B) |
| 711 | ("L" ?\e,L;\e(B) |
| 712 | (":" ?\e,LG\e(B) |
| 713 | ("\"" ?\e,L.\e(B) |
| 714 | ("|" ?\e,L6\e(B) |
| 715 | ("Z" ?\e,L%\e(B) |
| 716 | ("X" ?\e,L/\e(B) |
| 717 | ("C" ?\e,LF\e(B) |
| 718 | ("V" ?\e,L2\e(B) |
| 719 | ("B" ?\e,L1\e(B) |
| 720 | ("N" ?\e,L=\e(B) |
| 721 | ("M" ?\e,L<\e(B) |
| 722 | ("<" ?\;) |
| 723 | (">" ?:) |
| 724 | ("?" ?_)) |
| 725 | |
| 726 | |
| 727 | (quail-define-package |
| 728 | "ukrainian-computer" "Ukrainian" "UK" nil |
| 729 | "\e$,1(9(F(C(:(5(=\e(B Ukrainian (Unicode-based for use with KOI8-U encoding)." |
| 730 | nil t t t t nil nil nil nil nil t) |
| 731 | |
| 732 | ;; ' 1! 2" 3\e$,1uV\e(B 4; 5% 6: 7? 8* 9( 0) -_ =+ |
| 733 | ;; \e$,1(9\e(B \e$,1(F\e(B \e$,1(C\e(B \e$,1(:\e(B \e$,1(5\e(B \e$,1(=\e(B \e$,1(3\e(B \e$,1(H\e(B \e$,1(I\e(B \e$,1(7\e(B \e$,1(E\e(B \e$,1('\e(B |
| 734 | ;; \e$,1(D\e(B \e$,1(&\e(B \e$,1(2\e(B \e$,1(0\e(B \e$,1(?\e(B \e$,1(@\e(B \e$,1(>\e(B \e$,1(;\e(B \e$,1(4\e(B \e$,1(6\e(B \e$,1($\e(B \e$,1)P\e(B |
| 735 | ;; \e$,1(O\e(B \e$,1(G\e(B \e$,1(A\e(B \e$,1(<\e(B \e$,1(8\e(B \e$,1(B\e(B \e$,1(L\e(B \e$,1(1\e(B \e$,1(N\e(B ., |
| 736 | |
| 737 | (quail-define-rules |
| 738 | ("1" ?1) |
| 739 | ("2" ?2) |
| 740 | ("3" ?3) |
| 741 | ("4" ?4) |
| 742 | ("5" ?5) |
| 743 | ("6" ?6) |
| 744 | ("7" ?7) |
| 745 | ("8" ?8) |
| 746 | ("9" ?9) |
| 747 | ("0" ?0) |
| 748 | ("-" ?-) |
| 749 | ("=" ?=) |
| 750 | ("`" ?') |
| 751 | ("q" ?\e$,1(Y\e(B) |
| 752 | ("w" ?\e$,1(f\e(B) |
| 753 | ("e" ?\e$,1(c\e(B) |
| 754 | ("r" ?\e$,1(Z\e(B) |
| 755 | ("t" ?\e$,1(U\e(B) |
| 756 | ("y" ?\e$,1(]\e(B) |
| 757 | ("u" ?\e$,1(S\e(B) |
| 758 | ("i" ?\e$,1(h\e(B) |
| 759 | ("o" ?\e$,1(i\e(B) |
| 760 | ("p" ?\e$,1(W\e(B) |
| 761 | ("[" ?\e$,1(e\e(B) |
| 762 | ("]" ?\e$,1(w\e(B) |
| 763 | ("a" ?\e$,1(d\e(B) |
| 764 | ("s" ?\e$,1(v\e(B) |
| 765 | ("d" ?\e$,1(R\e(B) |
| 766 | ("f" ?\e$,1(P\e(B) |
| 767 | ("g" ?\e$,1(_\e(B) |
| 768 | ("h" ?\e$,1(`\e(B) |
| 769 | ("j" ?\e$,1(^\e(B) |
| 770 | ("k" ?\e$,1([\e(B) |
| 771 | ("l" ?\e$,1(T\e(B) |
| 772 | (";" ?\e$,1(V\e(B) |
| 773 | ("'" ?\e$,1(t\e(B) |
| 774 | ("z" ?\e$,1(o\e(B) |
| 775 | ("x" ?\e$,1(g\e(B) |
| 776 | ("c" ?\e$,1(a\e(B) |
| 777 | ("v" ?\e$,1(\\e(B) |
| 778 | ("b" ?\e$,1(X\e(B) |
| 779 | ("n" ?\e$,1(b\e(B) |
| 780 | ("m" ?\e$,1(l\e(B) |
| 781 | ("," ?\e$,1(Q\e(B) |
| 782 | ("." ?\e$,1(n\e(B) |
| 783 | ("/" ?.) |
| 784 | ("!" ?!) |
| 785 | ("@" ?\") |
| 786 | ("#" ?\e$,1uV\e(B) |
| 787 | ("$" ?\;) |
| 788 | ("%" ?%) |
| 789 | ("^" ?:) |
| 790 | ("&" ??) |
| 791 | ("*" ?*) |
| 792 | ("(" ?() |
| 793 | (")" ?)) |
| 794 | ("_" ?_) |
| 795 | ("+" ?+) |
| 796 | ("~" ?') |
| 797 | ("Q" ?\e$,1(9\e(B) |
| 798 | ("W" ?\e$,1(F\e(B) |
| 799 | ("E" ?\e$,1(C\e(B) |
| 800 | ("R" ?\e$,1(:\e(B) |
| 801 | ("T" ?\e$,1(5\e(B) |
| 802 | ("Y" ?\e$,1(=\e(B) |
| 803 | ("U" ?\e$,1(3\e(B) |
| 804 | ("I" ?\e$,1(H\e(B) |
| 805 | ("O" ?\e$,1(I\e(B) |
| 806 | ("P" ?\e$,1(7\e(B) |
| 807 | ("{" ?\e$,1(E\e(B) |
| 808 | ("}" ?\e$,1('\e(B) |
| 809 | ("A" ?\e$,1(D\e(B) |
| 810 | ("S" ?\e$,1(&\e(B) |
| 811 | ("D" ?\e$,1(2\e(B) |
| 812 | ("F" ?\e$,1(0\e(B) |
| 813 | ("G" ?\e$,1(?\e(B) |
| 814 | ("H" ?\e$,1(@\e(B) |
| 815 | ("J" ?\e$,1(>\e(B) |
| 816 | ("K" ?\e$,1(;\e(B) |
| 817 | ("L" ?\e$,1(4\e(B) |
| 818 | (":" ?\e$,1(6\e(B) |
| 819 | ("\"" ?\e$,1($\e(B) |
| 820 | ("Z" ?\e$,1(O\e(B) |
| 821 | ("X" ?\e$,1(G\e(B) |
| 822 | ("C" ?\e$,1(A\e(B) |
| 823 | ("V" ?\e$,1(<\e(B) |
| 824 | ("B" ?\e$,1(8\e(B) |
| 825 | ("N" ?\e$,1(B\e(B) |
| 826 | ("M" ?\e$,1(L\e(B) |
| 827 | ("<" ?\e$,1(1\e(B) |
| 828 | (">" ?\e$,1(N\e(B) |
| 829 | ("?" ?,) |
| 830 | ("\\" ?\e$,1)Q\e(B) |
| 831 | ("|" ?\e$,1)P\e(B)) |
| 832 | ;; |
| 833 | |
| 834 | ;; Alexander Mikhailian says this is of limited use. It has been |
| 835 | ;; popular among emigrants or foreigners who have to type in Cyrillic |
| 836 | ;; (mostly Russian) from time to time. |
| 837 | (quail-define-package |
| 838 | "cyrillic-yawerty" "Cyrillic" "\e,L6O\e(B" nil |
| 839 | "\e,LO25@BK\e(B Roman transcription |
| 840 | |
| 841 | This layout is based on Roman transcription by phonemic resemblance. |
| 842 | When preceded by a '/', the second and the third rows (number key row) change |
| 843 | as follows. |
| 844 | |
| 845 | keytop | Q W E R T Y U I O P A S D |
| 846 | --------+--------------------------------------- |
| 847 | input | \e,L"\e(B \e,L#\e(B \e,L$\e(B \e,L%\e(B \e,L&\e(B \e,L'\e(B \e,L(\e(B \e,L)\e(B \e,L*\e(B \e,L+\e(B \e,L,\e(B \e,L.\e(B \e,L/\e(B" |
| 848 | nil t t t t nil nil nil nil nil t) |
| 849 | |
| 850 | ;; 1! 2\e,Lq\e(B 3\e,Lj\e(B 4\e,L!\e(B 5% 6^ 7& 8* 9( 0) -_ \e,LG\e(B \e,LN\e(B |
| 851 | ;; \e,LO\e(B \e,L2\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,LK\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,LI\e(B |
| 852 | ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L9\e(B \e,L:\e(B \e,L;\e(B ;: '" \e,LM\e(B |
| 853 | ;; \e,L7\e(B \e,LL\e(B \e,LF\e(B \e,L6\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,< .> /? |
| 854 | |
| 855 | ;; 1! 2\e,Lq\e(B 3\e,Lj\e(B 4\e,L!\e(B 5% 6^ 7& 8* 9( 0) -_ \e,LG\e(B \e,LN\e(B |
| 856 | ;; \e,L"\e(B \e,L#\e(B \e,L$\e(B \e,L%\e(B \e,L&\e(B \e,L'\e(B \e,L(\e(B \e,L)\e(B \e,L*\e(B \e,L+\e(B \e,LH\e(B \e,LI\e(B |
| 857 | ;; \e,L,\e(B \e,L.\e(B \e,L/\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L9\e(B \e,L:\e(B \e,L;\e(B ;: '" \e,LM\e(B |
| 858 | ;; \e,L7\e(B \e,LL\e(B \e,LF\e(B \e,L6\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,< .> /? |
| 859 | |
| 860 | (quail-define-rules |
| 861 | ("1" ?1) |
| 862 | ("2" ?2) |
| 863 | ("3" ?3) |
| 864 | ("4" ?4) |
| 865 | ("5" ?5) |
| 866 | ("6" ?6) |
| 867 | ("7" ?7) |
| 868 | ("8" ?8) |
| 869 | ("9" ?9) |
| 870 | ("0" ?0) |
| 871 | ("-" ?-) |
| 872 | ("=" ?\e,Lg\e(B) |
| 873 | ("`" ?\e,Ln\e(B) |
| 874 | ("q" ?\e,Lo\e(B) |
| 875 | ("w" ?\e,LR\e(B) |
| 876 | ("e" ?\e,LU\e(B) |
| 877 | ("r" ?\e,L`\e(B) |
| 878 | ("t" ?\e,Lb\e(B) |
| 879 | ("y" ?\e,Lk\e(B) |
| 880 | ("u" ?\e,Lc\e(B) |
| 881 | ("i" ?\e,LX\e(B) |
| 882 | ("o" ?\e,L^\e(B) |
| 883 | ("p" ?\e,L_\e(B) |
| 884 | ("[" ?\e,Lh\e(B) |
| 885 | ("]" ?\e,Li\e(B) |
| 886 | ("a" ?\e,LP\e(B) |
| 887 | ("s" ?\e,La\e(B) |
| 888 | ("d" ?\e,LT\e(B) |
| 889 | ("f" ?\e,Ld\e(B) |
| 890 | ("g" ?\e,LS\e(B) |
| 891 | ("h" ?\e,Le\e(B) |
| 892 | ("j" ?\e,LY\e(B) |
| 893 | ("k" ?\e,LZ\e(B) |
| 894 | ("l" ?\e,L[\e(B) |
| 895 | (";" ?\;) |
| 896 | ("'" ?') |
| 897 | ("\\" ?\e,Lm\e(B) |
| 898 | ("z" ?\e,LW\e(B) |
| 899 | ("x" ?\e,Ll\e(B) |
| 900 | ("c" ?\e,Lf\e(B) |
| 901 | ("v" ?\e,LV\e(B) |
| 902 | ("b" ?\e,LQ\e(B) |
| 903 | ("n" ?\e,L]\e(B) |
| 904 | ("m" ?\e,L\\e(B) |
| 905 | ("," ?,) |
| 906 | ("." ?.) |
| 907 | ("/" ?/) |
| 908 | |
| 909 | ("!" ?!) |
| 910 | ("@" ?\e,Lq\e(B) |
| 911 | ("#" ?\e,Lj\e(B) |
| 912 | ("$" ?\e,L!\e(B) |
| 913 | ("%" ?%) |
| 914 | ("^" ?^) |
| 915 | ("&" ?&) |
| 916 | ("*" ?*) |
| 917 | ("(" ?\() |
| 918 | (")" ?\)) |
| 919 | ("_" ?_) |
| 920 | ("+" ?\e,LG\e(B) |
| 921 | ("~" ?\e,LN\e(B) |
| 922 | ("Q" ?\e,LO\e(B) |
| 923 | ("W" ?\e,L2\e(B) |
| 924 | ("E" ?\e,L5\e(B) |
| 925 | ("R" ?\e,L@\e(B) |
| 926 | ("T" ?\e,LB\e(B) |
| 927 | ("Y" ?\e,LK\e(B) |
| 928 | ("U" ?\e,LC\e(B) |
| 929 | ("I" ?\e,L8\e(B) |
| 930 | ("O" ?\e,L>\e(B) |
| 931 | ("P" ?\e,L?\e(B) |
| 932 | ("{" ?\e,LH\e(B) |
| 933 | ("}" ?\e,LI\e(B) |
| 934 | ("A" ?\e,L0\e(B) |
| 935 | ("S" ?\e,LA\e(B) |
| 936 | ("D" ?\e,L4\e(B) |
| 937 | ("F" ?\e,LD\e(B) |
| 938 | ("G" ?\e,L3\e(B) |
| 939 | ("H" ?\e,LE\e(B) |
| 940 | ("J" ?\e,L9\e(B) |
| 941 | ("K" ?\e,L:\e(B) |
| 942 | ("L" ?\e,L;\e(B) |
| 943 | (":" ?:) |
| 944 | ("\"" ?\") |
| 945 | ("|" ?\e,LM\e(B) |
| 946 | ("Z" ?\e,L7\e(B) |
| 947 | ("X" ?\e,LL\e(B) |
| 948 | ("C" ?\e,LF\e(B) |
| 949 | ("V" ?\e,L6\e(B) |
| 950 | ("B" ?\e,L1\e(B) |
| 951 | ("N" ?\e,L=\e(B) |
| 952 | ("M" ?\e,L<\e(B) |
| 953 | ("<" ?<) |
| 954 | (">" ?>) |
| 955 | ("?" ??) |
| 956 | |
| 957 | ("/q" ?\e,Lr\e(B) |
| 958 | ("/w" ?\e,Ls\e(B) |
| 959 | ("/e" ?\e,Lt\e(B) |
| 960 | ("/r" ?\e,Lu\e(B) |
| 961 | ("/t" ?\e,Lv\e(B) |
| 962 | ("/y" ?\e,Lw\e(B) |
| 963 | ("/u" ?\e,Lx\e(B) |
| 964 | ("/i" ?\e,Ly\e(B) |
| 965 | ("/o" ?\e,Lz\e(B) |
| 966 | ("/p" ?\e,L{\e(B) |
| 967 | ("/a" ?\e,L|\e(B) |
| 968 | ("/s" ?\e,L~\e(B) |
| 969 | ("/d" ?\e,L\7f\e(B) |
| 970 | |
| 971 | ("/Q" ?\e,L"\e(B) |
| 972 | ("/W" ?\e,L#\e(B) |
| 973 | ("/E" ?\e,L$\e(B) |
| 974 | ("/R" ?\e,L%\e(B) |
| 975 | ("/T" ?\e,L&\e(B) |
| 976 | ("/Y" ?\e,L'\e(B) |
| 977 | ("/U" ?\e,L(\e(B) |
| 978 | ("/I" ?\e,L)\e(B) |
| 979 | ("/O" ?\e,L*\e(B) |
| 980 | ("/P" ?\e,L+\e(B) |
| 981 | ("/A" ?\e,L,\e(B) |
| 982 | ("/S" ?\e,L.\e(B) |
| 983 | ("/D" ?\e,L/\e(B)) |
| 984 | |
| 985 | ;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>. |
| 986 | |
| 987 | ;; Ognyan Kulev <ogi@fmi.uni-sofia.bg> wrote: |
| 988 | |
| 989 | ;; I would suggest future `cyrillic-translit' to be with the |
| 990 | ;; modification of `cyrillic-translit-bulgarian' applied and the |
| 991 | ;; latter to disappear. It could be used by people who write |
| 992 | ;; bulgarian e-mails with latin letters for kick start (phonetic input |
| 993 | ;; method is not so obvious as translit input method but each letter |
| 994 | ;; is one keypress and a *lot* of people know it). |
| 995 | |
| 996 | ;; Anton Zinoviev <anton@lml.bas.bg> wrote: |
| 997 | ;; I would say that the main idea for cyrillic-translit is to be |
| 998 | ;; language-independent and universal. It should be able to generate all |
| 999 | ;; Cyrillic symbols. |
| 1000 | (quail-define-package |
| 1001 | "cyrillic-translit" "Cyrillic" "\e,L6\e(Bt" t |
| 1002 | "Intuitively transliterated keyboard layout. |
| 1003 | Most convenient for entering Russian, but all Cyrillic characters |
| 1004 | are included. Should handle most cases. However: |
| 1005 | for \e,Lf\e(B (TSE) use \"c\", never \"ts\" |
| 1006 | \e,Li\e(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\", |
| 1007 | \e,Lm\e(B (REVERSE ROUNDED E) = \"e\\\" |
| 1008 | \e,Le\e(B (KHA) when after \e,La\e(B (S) = \"x\" or \"kh\" |
| 1009 | \e,Lj\e(B (HARD SIGN) = \"~\", \e,LJ\e(B (CAPITAL HARD SIGN) = \"~~\", |
| 1010 | \e,Ll\e(B (SOFT SIGN) = \"'\", \e,LL\e(B (CAPITAL SOFT SIGN) = \"''\", |
| 1011 | \e,Lo\e(B (YA) = \"ya\", \"ja\" or \"q\". |
| 1012 | |
| 1013 | Russian alphabet: a b v=w g d e yo=jo zh z i j=j' k l m n o p r s t |
| 1014 | u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e\\ yu=ju ya=ja=q |
| 1015 | |
| 1016 | Also included are Ukrainian \e,Lt\e(B (YE) = \"/e\", \e,Lw\e(B (YI) = \"yi\", |
| 1017 | \e$,1)Q\e(B (GHE WITH UPTURN) = \"g'\", |
| 1018 | Belarusian \e,L~\e(B (SHORT U) = \"u~\", |
| 1019 | Serbo-Croatian \e,Lr\e(B (DJE) = \"/d\", \e,L{\e(B (CHJE)= \"/ch\", |
| 1020 | Macedonian \e,Ls\e(B (GJE) = \"/g\", \e,Lu\e(B (DZE) = \"/s\", \e,L|\e(B (KJE) = \"/k\", |
| 1021 | cyrillic \e,Lv\e(B (I DECIMAL) = \"/i\", \e,Lx\e(B (JE) = \"/j\", |
| 1022 | \e,Ly\e(B (LJE) = \"/l\", \e,Lz\e(B (NJE) = \"/n\" and \e,L\7f\e(B (DZE) =\"/z\"." |
| 1023 | nil t t t t nil nil nil nil nil t) |
| 1024 | |
| 1025 | (quail-define-rules |
| 1026 | ("a" ?\e,LP\e(B) ("b" ?\e,LQ\e(B) ("v" ?\e,LR\e(B) ("w" ?\e,LR\e(B) ("g" ?\e,LS\e(B) ("d" ?\e,LT\e(B) |
| 1027 | ("e" ?\e,LU\e(B) ("je" ?\e,LU\e(B) |
| 1028 | ("yo" ?\e,Lq\e(B) ("jo" ?\e,Lq\e(B) |
| 1029 | ("zh" ?\e,LV\e(B) ("z" ?\e,LW\e(B) ("i" ?\e,LX\e(B) |
| 1030 | ("j" ?\e,LY\e(B) ("j'" ?\e,LY\e(B) ("j`" ?\e,LY\e(B) ("k" ?\e,LZ\e(B) ("l" ?\e,L[\e(B) |
| 1031 | ("m" ?\e,L\\e(B) ("n" ?\e,L]\e(B) ("o" ?\e,L^\e(B) ("p" ?\e,L_\e(B) ("r" ?\e,L`\e(B) ("s" ?\e,La\e(B) ("t" ?\e,Lb\e(B) ("u" ?\e,Lc\e(B) |
| 1032 | ("f" ?\e,Ld\e(B) ("x" ?\e,Le\e(B) ("h" ?\e,Le\e(B) ("kh" ?\e,Le\e(B) |
| 1033 | ("c" ?\e,Lf\e(B) ("ch" ?\e,Lg\e(B) |
| 1034 | ("sh" ?\e,Lh\e(B) |
| 1035 | ("shch" ?\e,Li\e(B) ("sj" ?\e,Li\e(B) |
| 1036 | ("/sht" ?\e,Li\e(B) ("/t" ?\e,Li\e(B) |
| 1037 | ("~" ?\e,Lj\e(B) ("y" ?\e,Lk\e(B) ("'" ?\e,Ll\e(B) ("`" ?\e,Ll\e(B) |
| 1038 | ("e\\" ?\e,Lm\e(B) ("e'" ?\e,Lm\e(B) ("e`" ?\e,Lm\e(B) ("@" ?\e,Lm\e(B) |
| 1039 | ("yu" ?\e,Ln\e(B) ("ju" ?\e,Ln\e(B) |
| 1040 | ("ya" ?\e,Lo\e(B) ("ja" ?\e,Lo\e(B) ("q" ?\e,Lo\e(B) |
| 1041 | |
| 1042 | ("A" ?\e,L0\e(B) ("B" ?\e,L1\e(B) ("V" ?\e,L2\e(B) ("W" ?\e,L2\e(B) ("G" ?\e,L3\e(B) ("D" ?\e,L4\e(B) |
| 1043 | ("E" ?\e,L5\e(B) ("Je" ?\e,L5\e(B) ("JE" ?\e,L5\e(B) |
| 1044 | ("Yo" ?\e,L!\e(B) ("YO" ?\e,L!\e(B) ("Jo" ?\e,L!\e(B) ("JO" ?\e,L!\e(B) |
| 1045 | ("Zh" ?\e,L6\e(B) ("ZH" ?\e,L6\e(B) ("Z" ?\e,L7\e(B) ("I" ?\e,L8\e(B) |
| 1046 | ("J" ?\e,L9\e(B) ("J'" ?\e,L9\e(B) ("J`" ?\e,L9\e(B) ("K" ?\e,L:\e(B) ("L" ?\e,L;\e(B) |
| 1047 | ("M" ?\e,L<\e(B) ("N" ?\e,L=\e(B) ("O" ?\e,L>\e(B) ("P" ?\e,L?\e(B) ("R" ?\e,L@\e(B) ("S" ?\e,LA\e(B) ("T" ?\e,LB\e(B) ("U" ?\e,LC\e(B) |
| 1048 | ("F" ?\e,LD\e(B) ("X" ?\e,LE\e(B) ("H" ?\e,LE\e(B) ("Kh" ?\e,LE\e(B) ("KH" ?\e,LE\e(B) |
| 1049 | ("C" ?\e,LF\e(B) ("Ch" ?\e,LG\e(B) ("CH" ?\e,LG\e(B) |
| 1050 | ("Sh" ?\e,LH\e(B) ("SH" ?\e,LH\e(B) |
| 1051 | ("Shch" ?\e,LI\e(B) ("SHCH" ?\e,LI\e(B) ("Sj" ?\e,LI\e(B) ("SJ" ?\e,LI\e(B) |
| 1052 | ("/Sht" ?\e,LI\e(B) ("/SHT" ?\e,LI\e(B) ("/T" ?\e,LI\e(B) |
| 1053 | ("~~" ?\e,LJ\e(B) ("Y" ?\e,LK\e(B) ("''" ?\e,LL\e(B) |
| 1054 | ("E\\" ?\e,LM\e(B) ("E'" ?\e,LM\e(B) ("E`" ?\e,LM\e(B) ("@@" ?\e,LM\e(B) |
| 1055 | ("Yu" ?\e,LN\e(B) ("YU" ?\e,LN\e(B) ("Ju" ?\e,LN\e(B) ("JU" ?\e,LN\e(B) |
| 1056 | ("Ya" ?\e,LO\e(B) ("YA" ?\e,LO\e(B) ("Ja" ?\e,LO\e(B) ("JA" ?\e,LO\e(B) ("Q" ?\e,LO\e(B) |
| 1057 | |
| 1058 | ("/e" ?\e,Lt\e(B) ("yi" ?\e,Lw\e(B) ("u'" ?\e,L~\e(B) ("u~" ?\e,L~\e(B) |
| 1059 | ("g'" ?\e$,1)Q\e(B) |
| 1060 | ("/d" ?\e,Lr\e(B) ("/ch" ?\e,L{\e(B) |
| 1061 | ("/g" ?\e,Ls\e(B) ("/s" ?\e,Lu\e(B) ("/k" ?\e,L|\e(B) |
| 1062 | ("/i" ?\e,Lv\e(B) ("/j" ?\e,Lx\e(B) ("/l" ?\e,Ly\e(B) ("/n" ?\e,Lz\e(B) ("/z" ?\e,L\7f\e(B) |
| 1063 | ("/E" ?\e,L$\e(B) ("YE" ?\e,L$\e(B) ("Yi" ?\e,L'\e(B) ("YI" ?\e,L'\e(B) ("U'" ?\e,L.\e(B) ("U~" ?\e,L.\e(B) |
| 1064 | ("G'" ?\e$,1)P\e(B) |
| 1065 | ("/D" ?\e,L"\e(B) ("/Ch" ?\e,L+\e(B) ("/CH" ?\e,L+\e(B) |
| 1066 | ("/G" ?\e,L#\e(B) ("/S" ?\e,L%\e(B) ("/K" ?\e,L,\e(B) |
| 1067 | ("/I" ?\e,L&\e(B) ("/J" ?\e,L(\e(B) ("/L" ?\e,L)\e(B) ("/N" ?\e,L*\e(B) ("/Z" ?\e,L/\e(B) |
| 1068 | |
| 1069 | ;; Combining accents as a separate character |
| 1070 | ("//'" ?\e$(O+Z\e(B) ("//`" ?\e$(O+\\e(B) |
| 1071 | |
| 1072 | ;; In the following two rules the accent is not a separate character |
| 1073 | ("i`" ?\e$,1(}\e(B) ("I`" ?\e$,1(-\e(B) |
| 1074 | |
| 1075 | ("/-" ?\e$(G!9\e(B) ;; EN DASH |
| 1076 | ("/--" ?\e$(G!7\e(B) ;; EM DASH |
| 1077 | ("/*" ?\e$(O#@\e(B) ;; BULLET |
| 1078 | ("/." ?\e$,1s$\e(B) ;; ONE DOT LEADER |
| 1079 | ("/.." ?\e$(G!-\e(B) ;; TWO DOT LEADER |
| 1080 | ("/..." ?\e$A!-\e(B) ;; HORIZONTAL ELLIPSIS |
| 1081 | ("/,," ?\e,Y%\e(B) ;; DOUBLE LOW-9 QUOTATION MARK |
| 1082 | ("/," ?\e$,1rz\e(B) ;; SINGLE LOW-9 QUOTATION MARK |
| 1083 | ("/''" ?\e,Y!\e(B) ;; RIGHT DOUBLE QUOTATION MARK |
| 1084 | ("/'" ?\e,F"\e(B) ;; RIGHT SINGLE QUOTATION MARK |
| 1085 | ("/``" ?\e,Y4\e(B) ;; LEFT DOUBLE QUOTATION MARK |
| 1086 | ("/`" ?\e,F!\e(B) ;; LEFT SINGLE QUOTATION MARK |
| 1087 | ("/<<" ?\e,A+\e(B) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK |
| 1088 | ("/>>" ?\e,A;\e(B) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK |
| 1089 | |
| 1090 | ("/&" ?\e,A'\e(B) |
| 1091 | ("/ab" ?\e,A'\e(B) ; _\e,LPQ\e(B_\e,LWPf\e(B |
| 1092 | ("/pa" ?\e,A'\e(B) ; _pa_ragraph |
| 1093 | ("/#" ?\e,Lp\e(B) |
| 1094 | ("/no" ?\e,Lp\e(B) ; _\e,L]^\e(B_\e,L\U`\e(B |
| 1095 | |
| 1096 | ("/c" ?\e,A)\e(B) |
| 1097 | ("/tm" ?\e$(D"o\e(B) |
| 1098 | ("/reg" ?\e,A.\e(B) |
| 1099 | ("/eu" ?\e,b$\e(B) |
| 1100 | ("/ce" ?\e,A"\e(B) |
| 1101 | |
| 1102 | ;; fractions |
| 1103 | ("/78" ?\e$(C(~\e(B) |
| 1104 | ("/58" ?\e$(C(}\e(B) |
| 1105 | ("/38" ?\e$(C(|\e(B) |
| 1106 | ("/18" ?\e$(C({\e(B) |
| 1107 | ("/56" ?\e$,1v:\e(B) |
| 1108 | ("/16" ?\e$,1v9\e(B) |
| 1109 | ("/45" ?\e$,1v8\e(B) |
| 1110 | ("/35" ?\e$,1v7\e(B) |
| 1111 | ("/25" ?\e$,1v6\e(B) |
| 1112 | ("/15" ?\e$(O'z\e(B) |
| 1113 | ("/23" ?\e$(O'y\e(B) |
| 1114 | ("/13" ?\e$(O'x\e(B) |
| 1115 | ("/34" ?\e,A>\e(B) |
| 1116 | ("/12" ?\e,A=\e(B) |
| 1117 | ("/14" ?\e,A<\e(B) |
| 1118 | |
| 1119 | ;; Roman numerals, commonly used for months and section/subsection numbers |
| 1120 | ("/RI" ?\e$A"q\e(B) |
| 1121 | ("/RII" ?\e$A"r\e(B) |
| 1122 | ("/RIII" ?\e$A"s\e(B) |
| 1123 | ("/RIV" ?\e$A"t\e(B) |
| 1124 | ("/RV" ?\e$A"u\e(B) |
| 1125 | ("/RVI" ?\e$A"v\e(B) |
| 1126 | ("/RVII" ?\e$A"w\e(B) |
| 1127 | ("/RVIII" ?\e$A"x\e(B) |
| 1128 | ("/RIX" ?\e$A"y\e(B) |
| 1129 | ("/RX" ?\e$A"z\e(B) |
| 1130 | ("/RXI" ?\e$A"{\e(B) |
| 1131 | ("/RXII" ?\e$A"|\e(B) |
| 1132 | |
| 1133 | ("/ri" ?\e$(G&5\e(B) |
| 1134 | ("/rii" ?\e$(G&6\e(B) |
| 1135 | ("/riii" ?\e$(G&7\e(B) |
| 1136 | ("/riv" ?\e$(G&8\e(B) |
| 1137 | ("/rv" ?\e$(G&9\e(B) |
| 1138 | ("/rvi" ?\e$(G&:\e(B) |
| 1139 | ("/rvii" ?\e$(G&;\e(B) |
| 1140 | ("/rviii" ?\e$(G&<\e(B) |
| 1141 | ("/rix" ?\e$(G&=\e(B) |
| 1142 | ("/rx" ?\e$(G&>\e(B) |
| 1143 | ("/rxi" ?\e$(O,?\e(B) |
| 1144 | ("/rxii" ?\e$(O,@\e(B) |
| 1145 | ) |
| 1146 | |
| 1147 | ;; Originally from Yudit's `Belarusian input table according to |
| 1148 | ;; STB955-94 belarusian standard' (not all) by Alexander Mikhailian |
| 1149 | ;; <mikhailian@altern.org>, subsequently amended by AM. |
| 1150 | (quail-define-package |
| 1151 | "belarusian" "Belarusian" "BE" nil |
| 1152 | "\e$,1(9(F(C(:(5(=\e(B keyboard layout registered as STB955-94 Belarusian standard. |
| 1153 | Unicode based." |
| 1154 | nil t t t t nil nil nil nil nil t) |
| 1155 | |
| 1156 | ;; \e$,1(q(!\e(B 1! 2" 3N 4; 5% 6: 7? 8* 9( 0) -_ =+ |
| 1157 | ;; \e$,1(9\e(B \e$,1(F\e(B \e$,1(C\e(B \e$,1(:\e(B \e$,1(5\e(B \e$,1(=\e(B \e$,1(3\e(B \e$,1(H\e(B \e$,1(.\e(B \e$,1(7\e(B \e$,1(E\e(B ' |
| 1158 | ;; \e$,1(D\e(B \e$,1(K\e(B \e$,1(2\e(B \e$,1(0\e(B \e$,1(?\e(B \e$,1(@\e(B \e$,1(>\e(B \e$,1(;\e(B \e$,1(4\e(B \e$,1(6\e(B \e$,1(M\e(B |
| 1159 | ;; \e$,1(O\e(B \e$,1(G\e(B \e$,1(A\e(B \e$,1(<\e(B \e$,1(&\e(B \e$,1(B\e(B \e$,1(L\e(B \e$,1(1\e(B \e$,1(N\e(B ., |
| 1160 | |
| 1161 | (quail-define-rules |
| 1162 | ("~" ?\e$,1(!\e(B) |
| 1163 | ("@" ?\") |
| 1164 | ("#" ?\e$,1uV\e(B) |
| 1165 | ("$" ?\;) |
| 1166 | ("%" ?%) |
| 1167 | ("^" ?:) |
| 1168 | ("&" ??) |
| 1169 | ("Q" ?\e$,1(9\e(B) |
| 1170 | ("W" ?\e$,1(F\e(B) |
| 1171 | ("E" ?\e$,1(C\e(B) |
| 1172 | ("R" ?\e$,1(:\e(B) |
| 1173 | ("T" ?\e$,1(5\e(B) |
| 1174 | ("Y" ?\e$,1(=\e(B) |
| 1175 | ("U" ?\e$,1(3\e(B) |
| 1176 | ("I" ?\e$,1(H\e(B) |
| 1177 | ("O" ?\e$,1(.\e(B) |
| 1178 | ("P" ?\e$,1(7\e(B) |
| 1179 | ("{" ?\e$,1(E\e(B) |
| 1180 | ("}" ?') |
| 1181 | ("A" ?\e$,1(D\e(B) |
| 1182 | ("S" ?\e$,1(K\e(B) |
| 1183 | ("D" ?\e$,1(2\e(B) |
| 1184 | ("F" ?\e$,1(0\e(B) |
| 1185 | ("G" ?\e$,1(?\e(B) |
| 1186 | ("H" ?\e$,1(@\e(B) |
| 1187 | ("J" ?\e$,1(>\e(B) |
| 1188 | ("K" ?\e$,1(;\e(B) |
| 1189 | ("L" ?\e$,1(4\e(B) |
| 1190 | (":" ?\e$,1(6\e(B) |
| 1191 | ("\"" ?\e$,1(M\e(B) |
| 1192 | ("|" ?|) |
| 1193 | ("Z" ?\e$,1(O\e(B) |
| 1194 | ("X" ?\e$,1(G\e(B) |
| 1195 | ("C" ?\e$,1(A\e(B) |
| 1196 | ("V" ?\e$,1(<\e(B) |
| 1197 | ("B" ?\e$,1(&\e(B) |
| 1198 | ("N" ?\e$,1(B\e(B) |
| 1199 | ("M" ?\e$,1(L\e(B) |
| 1200 | ("<" ?\e$,1(1\e(B) |
| 1201 | (">" ?\e$,1(N\e(B) |
| 1202 | ("?" ?,) |
| 1203 | |
| 1204 | ("`" ?\e$,1(q\e(B) |
| 1205 | ("q" ?\e$,1(Y\e(B) |
| 1206 | ("w" ?\e$,1(f\e(B) |
| 1207 | ("e" ?\e$,1(c\e(B) |
| 1208 | ("r" ?\e$,1(Z\e(B) |
| 1209 | ("t" ?\e$,1(U\e(B) |
| 1210 | ("y" ?\e$,1(]\e(B) |
| 1211 | ("u" ?\e$,1(S\e(B) |
| 1212 | ("i" ?\e$,1(h\e(B) |
| 1213 | ("o" ?\e$,1(~\e(B) |
| 1214 | ("p" ?\e$,1(W\e(B) |
| 1215 | ("[" ?\e$,1(e\e(B) |
| 1216 | ("]" ?') |
| 1217 | ("a" ?\e$,1(d\e(B) |
| 1218 | ("s" ?\e$,1(k\e(B) |
| 1219 | ("d" ?\e$,1(R\e(B) |
| 1220 | ("f" ?\e$,1(P\e(B) |
| 1221 | ("g" ?\e$,1(_\e(B) |
| 1222 | ("h" ?\e$,1(`\e(B) |
| 1223 | ("j" ?\e$,1(^\e(B) |
| 1224 | ("k" ?\e$,1([\e(B) |
| 1225 | ("l" ?\e$,1(T\e(B) |
| 1226 | (";" ?\e$,1(V\e(B) |
| 1227 | ("'" ?\e$,1(m\e(B) |
| 1228 | ("z" ?\e$,1(o\e(B) |
| 1229 | ("x" ?\e$,1(g\e(B) |
| 1230 | ("c" ?\e$,1(a\e(B) |
| 1231 | ("v" ?\e$,1(\\e(B) |
| 1232 | ("b" ?\e$,1(v\e(B) |
| 1233 | ("n" ?\e$,1(b\e(B) |
| 1234 | ("m" ?\e$,1(l\e(B) |
| 1235 | ("," ?\e$,1(Q\e(B) |
| 1236 | ("." ?\e$,1(n\e(B) |
| 1237 | ("/" ?.)) |
| 1238 | |
| 1239 | ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov |
| 1240 | ;; <al_shopov@web.bg>. |
| 1241 | |
| 1242 | ;; Extra commentary and the indicator from an independent |
| 1243 | ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev |
| 1244 | ;; <ogi@fmi.uni-sofia.bg> and name changes from Anton Zinoviev |
| 1245 | ;; <anton@lml.bas.bg>. |
| 1246 | (quail-define-package |
| 1247 | "bulgarian-phonetic" "Bulgarian" "\e$,1(6(1(D\e(B" |
| 1248 | nil |
| 1249 | "Bulgarian Phonetic keyboard layout, producing Unicode. |
| 1250 | |
| 1251 | The layout is similar to `cyrillic-translit', but all Bulgarian |
| 1252 | characters are typed with a single key. |
| 1253 | |
| 1254 | Use /& for \e,A'\e(B (Cyrillic paragraph) and /# for \e$,1uV\e(B. |
| 1255 | |
| 1256 | The letters \e$,1(G\e(B, \e$,1(H\e(B, \e$,1(I\e(B and \e$,1(N\e(B are not affected by Caps Lock." |
| 1257 | nil t t t t nil nil nil nil nil t) |
| 1258 | |
| 1259 | ;; \e$,1(G\e(B |
| 1260 | ;; \e$,1(O\e(B \e$,1(2\e(B \e$,1(5\e(B \e$,1(@\e(B \e$,1(B\e(B \e$,1(J\e(B \e$,1(C\e(B \e$,1(8\e(B \e$,1(>\e(B \e$,1(?\e(B \e$,1(H\e(B \e$,1(I\e(B |
| 1261 | ;; \e$,1(0\e(B \e$,1(A\e(B \e$,1(4\e(B \e$,1(D\e(B \e$,1(3\e(B \e$,1(E\e(B \e$,1(9\e(B \e$,1(:\e(B \e$,1(;\e(B \e$,1(N\e(B |
| 1262 | ;; \e$,1(7\e(B \e$,1(L\e(B \e$,1(F\e(B \e$,1(6\e(B \e$,1(1\e(B \e$,1(=\e(B \e$,1(<\e(B |
| 1263 | |
| 1264 | (quail-define-rules |
| 1265 | ("/&" ?\e,A'\e(B) |
| 1266 | ("/#" ?\e$,1uV\e(B) |
| 1267 | ("A" ?\e$,1(0\e(B) |
| 1268 | ("B" ?\e$,1(1\e(B) |
| 1269 | ("W" ?\e$,1(2\e(B) |
| 1270 | ("G" ?\e$,1(3\e(B) |
| 1271 | ("D" ?\e$,1(4\e(B) |
| 1272 | ("E" ?\e$,1(5\e(B) |
| 1273 | ("V" ?\e$,1(6\e(B) |
| 1274 | ("Z" ?\e$,1(7\e(B) |
| 1275 | ("I" ?\e$,1(8\e(B) |
| 1276 | ("J" ?\e$,1(9\e(B) |
| 1277 | ("K" ?\e$,1(:\e(B) |
| 1278 | ("L" ?\e$,1(;\e(B) |
| 1279 | ("M" ?\e$,1(<\e(B) |
| 1280 | ("N" ?\e$,1(=\e(B) |
| 1281 | ("O" ?\e$,1(>\e(B) |
| 1282 | ("P" ?\e$,1(?\e(B) |
| 1283 | ("R" ?\e$,1(@\e(B) |
| 1284 | ("S" ?\e$,1(A\e(B) |
| 1285 | ("T" ?\e$,1(B\e(B) |
| 1286 | ("U" ?\e$,1(C\e(B) |
| 1287 | ("F" ?\e$,1(D\e(B) |
| 1288 | ("H" ?\e$,1(E\e(B) |
| 1289 | ("C" ?\e$,1(F\e(B) |
| 1290 | ("~" ?\e$,1(G\e(B) |
| 1291 | ("{" ?\e$,1(H\e(B) |
| 1292 | ("}" ?\e$,1(I\e(B) |
| 1293 | ("Y" ?\e$,1(J\e(B) |
| 1294 | ("X" ?\e$,1(L\e(B) |
| 1295 | ("|" ?\e$,1(N\e(B) |
| 1296 | ("Q" ?\e$,1(O\e(B) |
| 1297 | ("a" ?\e$,1(P\e(B) |
| 1298 | ("b" ?\e$,1(Q\e(B) |
| 1299 | ("w" ?\e$,1(R\e(B) |
| 1300 | ("g" ?\e$,1(S\e(B) |
| 1301 | ("d" ?\e$,1(T\e(B) |
| 1302 | ("e" ?\e$,1(U\e(B) |
| 1303 | ("v" ?\e$,1(V\e(B) |
| 1304 | ("z" ?\e$,1(W\e(B) |
| 1305 | ("i" ?\e$,1(X\e(B) |
| 1306 | ("j" ?\e$,1(Y\e(B) |
| 1307 | ("k" ?\e$,1(Z\e(B) |
| 1308 | ("l" ?\e$,1([\e(B) |
| 1309 | ("m" ?\e$,1(\\e(B) |
| 1310 | ("n" ?\e$,1(]\e(B) |
| 1311 | ("o" ?\e$,1(^\e(B) |
| 1312 | ("p" ?\e$,1(_\e(B) |
| 1313 | ("r" ?\e$,1(`\e(B) |
| 1314 | ("s" ?\e$,1(a\e(B) |
| 1315 | ("t" ?\e$,1(b\e(B) |
| 1316 | ("u" ?\e$,1(c\e(B) |
| 1317 | ("f" ?\e$,1(d\e(B) |
| 1318 | ("h" ?\e$,1(e\e(B) |
| 1319 | ("c" ?\e$,1(f\e(B) |
| 1320 | ("`" ?\e$,1(g\e(B) |
| 1321 | ("[" ?\e$,1(h\e(B) |
| 1322 | ("]" ?\e$,1(i\e(B) |
| 1323 | ("y" ?\e$,1(j\e(B) |
| 1324 | ("x" ?\e$,1(l\e(B) |
| 1325 | ("\\" ?\e$,1(n\e(B) |
| 1326 | ("q" ?\e$,1(o\e(B)) |
| 1327 | |
| 1328 | ;; Based on an implementation by Ognyan Kulev <ogi@fmi.uni-sofia.bg>. |
| 1329 | ;; This follows XKB bg. |
| 1330 | |
| 1331 | (quail-define-package |
| 1332 | "bulgarian-bds" "Bulgarian" "\e$,1(1(4(A\e(B" nil |
| 1333 | "Bulgarian standard keyboard layout (BDS) |
| 1334 | |
| 1335 | This keyboard layout is standard for Bulgarian typewriters. |
| 1336 | |
| 1337 | The letters \e$,1(F\e(B, \e$,1(<\e(B, \e$,1(G\e(B, \e$,1(@\e(B, \e$,1(;\e(B, \e$,1(1\e(B and \e$,1(K\e(B are not affected by Caps Lock. |
| 1338 | |
| 1339 | In addition to original Bulgarian typewriter layout, keys \\ and | |
| 1340 | are transformed into ' and \e$,1(K\e(B respectively. Some keyboards mark these |
| 1341 | keys as being transformed into ( and ) respectively. For ( and ), use |
| 1342 | ` and ~ respectively. This input method follows XKB." |
| 1343 | nil t t t t nil nil nil nil nil t) |
| 1344 | |
| 1345 | ;; () 1! 2? 3+ 4" 5% 6= 7: 8/ 9_ 0\e$,1uV\e(B -I .V |
| 1346 | ;; ,\e$,1(k\e(B \e$,1(C\e(B \e$,1(5\e(B \e$,1(8\e(B \e$,1(H\e(B \e$,1(I\e(B \e$,1(:\e(B \e$,1(A\e(B \e$,1(4\e(B \e$,1(7\e(B \e$,1(F\e(B ;\e,A'\e(B |
| 1347 | ;; \e$,1(L\e(B \e$,1(O\e(B \e$,1(0\e(B \e$,1(>\e(B \e$,1(6\e(B \e$,1(3\e(B \e$,1(B\e(B \e$,1(=\e(B \e$,1(2\e(B \e$,1(<\e(B \e$,1(G\e(B '\e$,1(K\e(B |
| 1348 | ;; \e$,1(N\e(B \e$,1(9\e(B \e$,1(J\e(B \e$,1(M\e(B \e$,1(D\e(B \e$,1(E\e(B \e$,1(?\e(B \e$,1(@\e(B \e$,1(;\e(B \e$,1(1\e(B |
| 1349 | |
| 1350 | (quail-define-rules |
| 1351 | |
| 1352 | ("1" ?1) ("!" ?!) |
| 1353 | ("2" ?2) ("@" ??) |
| 1354 | ("3" ?3) ("#" ?+) |
| 1355 | ("4" ?4) ("$" ?\") |
| 1356 | ("5" ?5) ("%" ?%) |
| 1357 | ("6" ?6) ("^" ?=) |
| 1358 | ("7" ?7) ("&" ?:) |
| 1359 | ("8" ?8) ("*" ?/) |
| 1360 | ("9" ?9) ("(" ?_) |
| 1361 | ("0" ?0) (")" ?\e$,1uV\e(B) |
| 1362 | ("-" ?-) ("_" ?I) |
| 1363 | ("=" ?.) ("+" ?V) |
| 1364 | |
| 1365 | ("q" ?,) ("Q" ?\e$,1(k\e(B) |
| 1366 | ("w" ?\e$,1(c\e(B) ("W" ?\e$,1(C\e(B) |
| 1367 | ("e" ?\e$,1(U\e(B) ("E" ?\e$,1(5\e(B) |
| 1368 | ("r" ?\e$,1(X\e(B) ("R" ?\e$,1(8\e(B) |
| 1369 | ("t" ?\e$,1(h\e(B) ("T" ?\e$,1(H\e(B) |
| 1370 | ("y" ?\e$,1(i\e(B) ("Y" ?\e$,1(I\e(B) |
| 1371 | ("u" ?\e$,1(Z\e(B) ("U" ?\e$,1(:\e(B) |
| 1372 | ("i" ?\e$,1(a\e(B) ("I" ?\e$,1(A\e(B) |
| 1373 | ("o" ?\e$,1(T\e(B) ("O" ?\e$,1(4\e(B) |
| 1374 | ("p" ?\e$,1(W\e(B) ("P" ?\e$,1(7\e(B) |
| 1375 | ("[" ?\e$,1(f\e(B) ("{" ?\e$,1(F\e(B) |
| 1376 | ("]" ?\;) ("}" ?\e,A'\e(B) |
| 1377 | |
| 1378 | ("a" ?\e$,1(l\e(B) ("A" ?\e$,1(L\e(B) |
| 1379 | ("s" ?\e$,1(o\e(B) ("S" ?\e$,1(O\e(B) |
| 1380 | ("d" ?\e$,1(P\e(B) ("D" ?\e$,1(0\e(B) |
| 1381 | ("f" ?\e$,1(^\e(B) ("F" ?\e$,1(>\e(B) |
| 1382 | ("g" ?\e$,1(V\e(B) ("G" ?\e$,1(6\e(B) |
| 1383 | ("h" ?\e$,1(S\e(B) ("H" ?\e$,1(3\e(B) |
| 1384 | ("j" ?\e$,1(b\e(B) ("J" ?\e$,1(B\e(B) |
| 1385 | ("k" ?\e$,1(]\e(B) ("K" ?\e$,1(=\e(B) |
| 1386 | ("l" ?\e$,1(R\e(B) ("L" ?\e$,1(2\e(B) |
| 1387 | (";" ?\e$,1(\\e(B) (":" ?\e$,1(<\e(B) |
| 1388 | ("'" ?\e$,1(g\e(B) ("\"" ?\e$,1(G\e(B) |
| 1389 | ("`" ?\() ("~" ?\)) |
| 1390 | |
| 1391 | ("z" ?\e$,1(n\e(B) ("Z" ?\e$,1(N\e(B) |
| 1392 | ("x" ?\e$,1(Y\e(B) ("X" ?\e$,1(9\e(B) |
| 1393 | ("c" ?\e$,1(j\e(B) ("C" ?\e$,1(J\e(B) |
| 1394 | ("v" ?\e$,1(m\e(B) ("V" ?\e$,1(M\e(B) |
| 1395 | ("b" ?\e$,1(d\e(B) ("B" ?\e$,1(D\e(B) |
| 1396 | ("n" ?\e$,1(e\e(B) ("N" ?\e$,1(E\e(B) |
| 1397 | ("m" ?\e$,1(_\e(B) ("M" ?\e$,1(?\e(B) |
| 1398 | ("," ?\e$,1(`\e(B) ("<" ?\e$,1(@\e(B) |
| 1399 | ("." ?\e$,1([\e(B) (">" ?\e$,1(;\e(B) |
| 1400 | ("/" ?\e$,1(Q\e(B) ("?" ?\e$,1(1\e(B) |
| 1401 | ("\\" ?') ("|" ?\e$,1(K\e(B)) |
| 1402 | |
| 1403 | ;; Local Variables: |
| 1404 | ;; coding: iso-2022-7bit |
| 1405 | ;; End: |
| 1406 | |
| 1407 | ;;; cyrillic.el ends here |