Anonymous avatar Anonymous committed 0e20408

Add Richard Zidlicky's czech-translit input method.

Comments (0)

Files changed (3)

+2010-01-20  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* leim-list.el ("czech-translit"):
+	* quail/czech.el:
+	Add Richard Zidlicky's czech-translit input method; see
+	http://mid.gmane.org/20100119182357.GA6131@linux-m68k.org .  Thank
+	you Richard!
+
 2009-08-16  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.29 released.
 All other keys are the same as on standard US keyboard."
  "quail/czech")
 (register-input-method
+ "czech-translit" "Czech" #'quail-use-package
+ "cz-tr" "Intuitively transliterated keyboard layout for Czech:
+    aa -> ,Aa(B, ee -> ,Ai(B, AA -> ,AA(B ...
+    cc -> ,Bh(B, rr -> ,Bx(B , tt -> ,B;(B ...
+    nj -> ,Br(B, dj -> ,Bo(B
+    ie -> ,Bl(B
+    uu -> ,Az(B
+    uo -> ,By(B
+exceptions and strange cases:
+    iee -> i,Ai(B
+    iie -> ie
+    eee -> ee
+other
+    iii -> i
+"
+ "quail/czech")
+(register-input-method
  "slovak" "Slovak" #'quail-use-package
  "SK" "Standard Slovak keyboard."
  "quail/slovak")
 ;;; czech.el --- Quail package for inputting Czech -*-coding: iso-2022-7bit;-*-
 
 ;; Copyright (C) 1998, 2001, 2006  Free Software Foundation, Inc.
+;; Copyright (C) 2010 Richard Zidlicky
 
 ;; Author: Milan Zamazal <pdm@zamazal.org>
 ;; Maintainer: Pavel Jan,Bm(Bk <Pavel@Janik.cz>
  ([kp-0] ?0)
  ([kp-add] ?+))
 
+;; XEmacs change; czech-translit from Richard Zidlicky
+
+;; enter Czech accented keys by combination of ASCII letters.
+;; Works well because the used double letter combinations are very rare
+;; - with the exception of "ie" which is frequent in words of foreign origin.
+;; To deal with foreign words and names it is essential to have toggle-input-method
+;; bound to a very convenient key
+
+(quail-define-package
+ "czech-translit" "Czech" "cz-tr" t   ; name, language, title guidance
+ "Intuitively transliterated keyboard layout for Czech:
+    aa -> ,Aa(B, ee -> ,Ai(B, AA -> ,AA(B ...
+    cc -> ,Bh(B, rr -> ,Bx(B , tt -> ,B;(B ...
+    nj -> ,Br(B, dj -> ,Bo(B
+    ie -> ,Bl(B
+    uu -> ,Az(B
+    uo -> ,By(B
+exceptions and strange cases:
+    iee -> i,Ai(B
+    iie -> ie
+    eee -> ee
+other
+    iii -> i
+"
+  nil t     ; translation-keys, forget-last-selection
+  t t       ; deterministic,  kbd-translate 
+  t nil     ; show-layout, create-decode-map
+  nil nil   ; maximum-shortest (non-greedy), overlay-plist
+  nil nil   ; update-translation-function, conversion-keys
+  t         ; simple
+)
+
+(quail-define-rules
+ ("aa" ?,Aa(B)
+ ("ee" ?,Ai(B)
+ ("eee" ["ee"])
+ ("ii" ?,Am(B)
+ ("ie" ?,Bl(B)
+ ("iee" ["i,Ai(B"])
+ ("iie" ["ie"])
+ ("iii" ?i)
+ ("oo" ?,As(B)
+ ("uu" ?,Az(B)
+ ("uo" ?,By(B)
+ ("yy" ?,A}(B)
+ ("AA" ?,AA(B)
+ ("EE" ?,AI(B)
+ ("II" ?,AM(B)
+ ("III" ?,AM(B)
+ ("OO" ?,AS(B)
+ ("UU" ?,AZ(B)
+ ("YY" ?,A](B)
+ ("cc" ?,Bh(B)
+ ("dj" ?,Bo(B)
+ ("nj" ?,Br(B)
+ ("rr" ?,Bx(B)
+ ("ss" ?,B9(B)
+ ("tt" ?,B;(B)
+ ("zz" ?,B>(B)
+ ("CC" ?,BH(B)
+ ("DJ" ?,BO(B)
+ ("NJ" ?,BR(B)
+ ("RR" ?,BX(B)
+ ("SS" ?,B)(B)
+ ("TT" ?,B+(B)
+ ("ZZ" ?,B.(B)
+ ("IE" ?,BL(B)
+)
+
 ;;; arch-tag: 0a27dffc-a5e1-479f-9da2-a9eb91b34d8a
 ;;; czech.el ends here
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.