view leim/quail/arabic.el @ 103051:ccf9a356f1a1

Checked os.texi.
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 22 Apr 2009 04:23:09 +0000 (2009-04-22)
parents 0d2e4142fb60
children 9c0333026404
line wrap: on
line source
;;; arabic.el --- Quail package for inputting Arabic	-*- coding: utf-8;-*-

;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.

;; Author: James Cloos <cloos@jhcloos.com>
;; Keywords: mule, input method, Arabic

;; 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:

;;; Code:

(require 'quail)

(quail-define-package
 "arabic" "Arabic" "惺" nil "Arabic input method.

Based on Arabic table in X Keyboard Configuration DB.
" nil t t t t nil nil nil nil nil t)

;;  悵� 1! 2@ 3# 4$ 5% 6^ 7& 8* 9) 0( -_ =+
;;      惷� 惶� 惓� �� �鏤� 愃悒 惺` �歎 悽� 忰� 悴< 惆> <>
;;       愆� 愕� �] 惡[ �鏤� 悋悖 惠� �� �/ �: 愀"
;;        悧~ 悄� 悗} 惘{ 鏤誌撒 �悛 悸' �, 慍. 惴�
;;

(quail-define-rules
 ("`" ?悵)

 ("Q" ?�)
 ("W" ?�)
 ("E" ?�)
 ("R" ?�)
 ("T" ?鏤�)
 ("Y" ?悒)
 ("U" ?`)
 ("I" ?歎)
 ("O" ?�)
 ("P" ?�)

 ("A" ?�)
 ("S" ?�)
 ("D" ?])
 ("F" ?[)
 ("G" ?鏤�)
 ("H" ?悖)
 ("J" ?�)
 ("K" ?�)
 ("L" ?/)
 (";" ?:)

 ("Z" ?~)
 ("X" ?�)
 ("C" ?})
 ("V" ?{)
 ("B" ?鏤�)
 ("N" ?悛)
 ("M" ?')
 ("<" ?,)
 (">" ?.)
 ("?" ?�)

 ("`" ?悵)

 ("q" ?惷)
 ("w" ?惶)
 ("e" ?惓)
 ("r" ?�)
 ("t" ?�)
 ("y" ?愃)
 ("u" ?惺)
 ("i" ?�)
 ("o" ?悽)
 ("p" ?忰)

 ("a" ?愆)
 ("s" ?愕)
 ("d" ?�)
 ("f" ?惡)
 ("g" ?�)
 ("h" ?悋)
 ("j" ?惠)
 ("k" ?�)
 ("l" ?�)
 (";" ?�)

 ("z" ?悧)
 ("x" ?悄)
 ("c" ?悗)
 ("v" ?惘)
 ("b" ?鏤�)
 ("n" ?�)
 ("m" ?悸)
 ("," ?�)
 ("." ?慍)
 ("/" ?惴)

 ("'" ?愀))

;; arch-tag: 7e81e2af-5ea5-417f-bfe7-dfa6fd955cb5
;;; arabic.el ends here