|
90825
|
1 ;;; arabic.el --- Quail package for inputting Arabic -*- coding: utf-8;-*-
|
|
|
2
|
|
|
3 ;; Copyright (C) 2007 Free Software Foundation, Inc.
|
|
|
4 ;; Written by James Cloos <cloos@jhcloos.com>
|
|
|
5 ;; Keywords: mule, input method, Arabic
|
|
|
6
|
|
|
7 ;; This file is part of GNU Emacs.
|
|
|
8
|
|
|
9 ;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
|
10 ;; it under the terms of the GNU General Public License as published by
|
|
|
11 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
12 ;; any later version.
|
|
|
13
|
|
|
14 ;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
17 ;; GNU General Public License for more details.
|
|
|
18
|
|
|
19 ;; You should have received a copy of the GNU General Public License
|
|
|
20 ;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
|
21 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
|
22 ;; Boston, MA 02110-1301, USA.
|
|
|
23
|
|
|
24 ;;; Commentary:
|
|
|
25
|
|
|
26 ;;; Code:
|
|
|
27
|
|
|
28 (require 'quail)
|
|
|
29
|
|
|
30 (quail-define-package
|
|
|
31 "arabic" "Arabic" "ع" nil "Arabic input method.
|
|
|
32
|
|
|
33 Based on Arabic table in X Keyboard Configuration DB.
|
|
|
34 " nil t t t t nil nil nil nil nil t)
|
|
|
35
|
|
|
36 ;; ذّ 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+
|
|
|
37 ;; ضَ صً ثُ قٌ فﻹ غإ ع` ه÷ خ× ح؛ ج{ د} <>
|
|
|
38 ;; ش\ سS ي[ ب] لﻷ اأ تـ ن، م/ ك: ط"
|
|
|
39 ;; ئ~ ءْ ؤِ رٍ ﻻﻵ ىآ ة' و, ز. ظ؟
|
|
|
40 ;;
|
|
|
41
|
|
|
42 (quail-define-rules
|
|
|
43 ("`" ?ذ)
|
|
|
44
|
|
|
45 ("Q" ?َ)
|
|
|
46 ("W" ?ً)
|
|
|
47 ("E" ?ُ)
|
|
|
48 ("R" ?ٌ)
|
|
|
49 ("T" ?ﻹ)
|
|
|
50 ("Y" ?إ)
|
|
|
51 ("U" ?`)
|
|
|
52 ("I" ?÷)
|
|
|
53 ("O" ?×)
|
|
|
54 ("P" ?؛)
|
|
|
55
|
|
|
56 ("A" ?\\)
|
|
|
57 ("S" ?S)
|
|
|
58 ("D" ?[)
|
|
|
59 ("F" ?])
|
|
|
60 ("G" ?ﻷ)
|
|
|
61 ("H" ?أ)
|
|
|
62 ("J" ?ـ)
|
|
|
63 ("K" ?،)
|
|
|
64 ("L" ?/)
|
|
|
65 (";" ?:)
|
|
|
66
|
|
|
67 ("Z" ?~)
|
|
|
68 ("X" ?ْ)
|
|
|
69 ("C" ?ِ)
|
|
|
70 ("V" ?ٍ)
|
|
|
71 ("B" ?ﻵ)
|
|
|
72 ("N" ?آ)
|
|
|
73 ("M" ?')
|
|
|
74 ("<" ?,)
|
|
|
75 (">" ?.)
|
|
|
76 ("?" ?؟)
|
|
|
77
|
|
|
78 ("`" ?ذ)
|
|
|
79
|
|
|
80 ("q" ?ض)
|
|
|
81 ("w" ?ص)
|
|
|
82 ("e" ?ث)
|
|
|
83 ("r" ?ق)
|
|
|
84 ("t" ?ف)
|
|
|
85 ("y" ?غ)
|
|
|
86 ("u" ?ع)
|
|
|
87 ("i" ?ه)
|
|
|
88 ("o" ?خ)
|
|
|
89 ("p" ?ح)
|
|
|
90
|
|
|
91 ("a" ?ش)
|
|
|
92 ("s" ?س)
|
|
|
93 ("d" ?ي)
|
|
|
94 ("f" ?ب)
|
|
|
95 ("g" ?ل)
|
|
|
96 ("h" ?ا)
|
|
|
97 ("j" ?ت)
|
|
|
98 ("k" ?ن)
|
|
|
99 ("l" ?م)
|
|
|
100 (";" ?ك)
|
|
|
101
|
|
|
102 ("z" ?ئ)
|
|
|
103 ("x" ?ء)
|
|
|
104 ("c" ?ؤ)
|
|
|
105 ("v" ?ر)
|
|
|
106 ("b" ?ﻻ)
|
|
|
107 ("n" ?ى)
|
|
|
108 ("m" ?ة)
|
|
|
109 ("," ?و)
|
|
|
110 ("." ?ز)
|
|
|
111 ("/" ?ظ)
|
|
|
112
|
|
|
113 ("'" ?ط))
|
|
|
114
|
|
90827
|
115 ;; arch-tag: 7e81e2af-5ea5-417f-bfe7-dfa6fd955cb5
|
|
90825
|
116 ;;; arabic.el ends here
|
