procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improved transliterations + improved bidi insertion support for Farsi

Browse source 
* lisp/leim/quail/persian.el ("farsi-transliterate-banan"):
Improve and add transliterations.  (Bug#63361)
This commit is contained in:
Mohsen Banan 2023-05-07 10:11:55 -07:00 • committed by Eli Zaretskii
parent c1363a04bb
commit e6b4784a37
1 changed files with 75 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

124
lisp/leim/quail/persian.el
View file

@ -1,8 +1,8 @@
;;; persian.el --- Quail package for inputting Persian/Farsi keyboard -*- coding: utf-8; lexical-binding: t -*- ;;; persian.el --- Quail package for inputting Persian/Farsi keyboard -*- coding: utf-8; lexical-binding: t -*-
;; Copyright (C) 2011-2023 Free Software Foundation, Inc. ;; Copyright (C) 2011-2022 Free Software Foundation, Inc.
;; Author: Mohsen BANAN <libre@mohsen.1.banan.byname.net> ;; Author: Mohsen BANAN <emacs@mohsen.1.banan.byname.net>
;; URL: http://mohsen.1.banan.byname.net/contact ;; URL: http://mohsen.1.banan.byname.net/contact
;; Keywords: multilingual, input method, Farsi, Persian, keyboard ;; Keywords: multilingual, input method, Farsi, Persian, keyboard
@ -23,7 +23,7 @@
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary: ;;; Commentary:
;;
;; This file contains a collection of input methods for ;; This file contains a collection of input methods for
;; Persian languages (Farsi, Urdu, Pashto/Afghanic, ...) ;; Persian languages (Farsi, Urdu, Pashto/Afghanic, ...)
;; ;;
@ -395,6 +395,7 @@
("u" ?و) ("u" ?و)
("V" ?ؤ) ("V" ?ؤ)
("h" ?ه) ("h" ?ه)
("Hh" ?ه) ;; to take care of هه -- hHh
("y" ?ی) ("y" ?ی)
("i" ?ی) ("i" ?ی)
("I" ?ئ) ("I" ?ئ)
@ -402,7 +403,7 @@
;;;;;;;;;;; isiri-6219 Table 6 -- جدول ۶ - حروِفِ عربی ;;;;;;;;;;; isiri-6219 Table 6 -- جدول ۶ - حروِفِ عربی
("F" ?إ) ("F" ?إ)
("D" ?\u0671) ;; (insert-char #x0671)ٱ named: حرفِ الفِ وصل ("D" ?\u0671) ;; (ucs-insert #x0671)ٱ named: حرفِ الفِ وصل
("K" ?ك) ;; Arabic kaf ("K" ?ك) ;; Arabic kaf
("Th" ?ة) ;; ta marbuteh ("Th" ?ة) ;; ta marbuteh
("Y" ?ي) ("Y" ?ي)
@ -421,40 +422,40 @@
("8" ?۸) ("8" ?۸)
("9" ?۹) ("9" ?۹)
("\\/" ?\u066B) ;; (insert-char #x066B)٫ named: ممیزِ فارسی ("\\/" ?\u066B) ;; (ucs-insert #x066B)٫ named: ممیزِ فارسی
("\\," ?\u066C) ;; (insert-char #x066C)٬ named: جداکننده‌ی هزارهای فارسی ("\\," ?\u066C) ;; (ucs-insert #x066C)٬ named: جداکننده‌ی هزارهای فارسی
("%" ?\u066A) ;; (insert-char #x066A)٪ named: درصدِ فارسی ("%" ?\u066A) ;; (ucs-insert #x066A)٪ named: درصدِ فارسی
("+" ?\u002B) ;; (insert-char #x002B)+ named: علامتِ به‌اضافه ("+" ?\u002B) ;; (ucs-insert #x002B)+ named: علامتِ به‌اضافه
("-" ?\u2212) ;; (insert-char #x2212)− named: علامتِ منها ("-" ?\u2212) ;; (ucs-insert #x2212)− named: علامتِ منها
("\\*" ?\u00D7) ;; (insert-char #x00D7)× named: علامتِ ضرب ("\\*" ?\u00D7) ;; (ucs-insert #x00D7)× named: علامتِ ضرب
("\\-" ?\u00F7) ;; (insert-char #x00F7)÷ named: علامتِ تقسیم ("\\-" ?\u00F7) ;; (ucs-insert #x00F7)÷ named: علامتِ تقسیم
("<" ?\u003C) ;; (insert-char #x003C)< named: علامتِ کوچکتر ("<" ?\u003C) ;; (ucs-insert #x003C)< named: علامتِ کوچکتر
("=" ?\u003D) ;; (insert-char #x003D)= named: علامتِ مساوی ("=" ?\u003D) ;; (ucs-insert #x003D)= named: علامتِ مساوی
(">" ?\u003E) ;; (insert-char #x003E)> named: علامتِ بزرگتر (">" ?\u003E) ;; (ucs-insert #x003E)> named: علامتِ بزرگتر
;;;;;;;;;;; isiri-6219 Table 2 -- جدول ۲ - علائم نقطه گذاریِ مشترک ;;;;;;;;;;; isiri-6219 Table 2 -- جدول ۲ - علائم نقطه گذاریِ مشترک
;;; Space ;;; Space
("." ?.) ;; ("." ?.) ;;
(":" ?\u003A) ;; (insert-char #x003A): named: (":" ?\u003A) ;; (ucs-insert #x003A): named:
("!" ?\u0021) ;; (insert-char #x0021)! named: ("!" ?\u0021) ;; (ucs-insert #x0021)! named:
("\\." ?\u2026) ;; (insert-char #x2026)… named: ("\\." ?\u2026) ;; (ucs-insert #x2026)… named:
("\\-" ?\u2010) ;; (insert-char #x2010)‐ named: ("\\-" ?\u2010) ;; (ucs-insert #x2010)‐ named:
("-" ?\u002D) ;; (insert-char #x002D)- named: ("-" ?\u002D) ;; (ucs-insert #x002D)- named:
("|" ?|) ("|" ?|)
;;("\\\\" ?\) ;;("\\\\" ?\)
("//" ?/) ("//" ?/)
("*" ?\u002A) ;; (insert-char #x002A)* named: ("*" ?\u002A) ;; (ucs-insert #x002A)* named:
("(" ?\u0028) ;; (insert-char #x0028)( named: ("(" ?\u0028) ;; (ucs-insert #x0028)( named:
(")" ?\u0029) ;; (insert-char #x0029)) named: (")" ?\u0029) ;; (ucs-insert #x0029)) named:
("[" ?\u005B) ;; (insert-char #x005B)[ named: ("[" ?\u005B) ;; (ucs-insert #x005B)[ named:
("[" ?\u005D) ;; (insert-char #x005D)] named: ("[" ?\u005D) ;; (ucs-insert #x005D)] named:
("{" ?\u007B) ;; (insert-char #x007B){ named: ("{" ?\u007B) ;; (ucs-insert #x007B){ named:
("}" ?\u007D) ;; (insert-char #x007D)} named: ("}" ?\u007D) ;; (ucs-insert #x007D)} named:
("\\<" ?\u00AB) ;; (insert-char #x00AB)« named: ("\\<" ?\u00AB) ;; (ucs-insert #x00AB)« named:
("\\>" ?\u00BB) ;; (insert-char #x00BB)» named: ("\\>" ?\u00BB) ;; (ucs-insert #x00BB)» named:
("N" ?\u00AB) ;; (insert-char #x00AB)« named: ("N" ?\u00AB) ;; (ucs-insert #x00AB)« named:
("M" ?\u00BB) ;; (insert-char #x00BB)» named: ("M" ?\u00BB) ;; (ucs-insert #x00BB)» named:
;;;;;;;;;;; isiri-6219 Table 3 -- جدول ۳ - علائم نقطه گذاریِ فارسی ;;;;;;;;;;; isiri-6219 Table 3 -- جدول ۳ - علائم نقطه گذاریِ فارسی
("," ?،) ;; farsi ("," ?،) ;; farsi
@ -463,24 +464,49 @@
("_" ?ـ) ;; ("_" ?ـ) ;;
;;;;;;;;;;; isiri-6219 Table 1 -- جدول ۱ - نویسه‌های کنترلی ;;;;;;;;;;; isiri-6219 Table 1 (plus bidi updates) - جدول ۱ - نویسه‌های کنترلی
;; LF ;; LF
;; CR ;; CR
("&zwnj;" ?\u200C) ;; (insert-char #x200C)‌ named: فاصله‌ی مجازی ("&zwnj;" ?\u200C) ;; (ucs-insert #x200C)‌ named: فاصله‌ی مجازی
("/" ?\u200C) ;; ("/" ?\u200C) ;;
("&zwj;" ?\u200D) ;; (insert-char #x200D)‍ named: اتصالِ مجازی ("&zwj;" ?\u200D) ;; (ucs-insert #x200D)‍ named: اتصالِ مجازی
("J" ?\u200D) ;; ("J" ?\u200D) ;;
("&lrm;" ?\u200E) ;; (insert-char #x200E)‎ named: نشانه‌ی چپ‌به‌راست ("&ls;" ?\u2028) ;; (ucs-insert #x2028)
 named: جداکننده‌ی سطرها
("&rlm;" ?\u200F) ;; (insert-char #x200F)‏ named: نشانه‌ی راست‌به‌چپ ("&ps;" ?\u2029) ;; (ucs-insert #x2029)
 named: جداکننده‌ی بندها
("&ls;" ?\u2028) ;; (insert-char #x2028)
 named: جداکننده‌ی سطرها ;;
("&ps;" ?\u2028) ;; (insert-char #x2029)
 named: جداکننده‌ی بندها ;; Byte Order Mark (Historic)
("&lre;" ?\u202A) ;; (insert-char #x202A)‪ named: زیرمتنِ چپ‌به‌راست ("&bom;" ?\uFEFF) ;; (ucs-insert #xFEFF) named: نشانه‌ی ترتیبِ بایت‌ها
("&rle;" ?\u202B) ;; (insert-char #x202B) named: زیرمتنِ راست‌به‌چپ ;; BIDI Controls
("&pdf;" ?\u202C) ;; (insert-char #x202C) named: پایانِ زیرمتن ;; -------
("&lro;" ?\u202D) ;; (insert-char #x202D) named: زیرمتنِ اکیداً چپ‌به‌راست ;; LEFT-TO-RIGHT MARK (strongly typed LTR character)
("&rlo;" ?\u202D) ;; (insert-char #x202E) named: زیرمتنِ اکیداً راست‌به‌چپ ("&lrm;" ?\u200E) ;; (ucs-insert #x200E) named: نشانه‌ی چپ‌به‌راست
("&bom;" ?\uFEFF) ;; (insert-char #xFEFF) named: نشانه‌ی ترتیبِ بایت‌ها ("L" ?\u200E)
;; RIGHT-TO-LEFT MARK (strongly typed RTL character)
("&rlm;" ?\u200F) ;; (ucs-insert #x200F) named: نشانه‌ی راست‌به‌چپ
("R" ?\u200F)
;; LEFT-TO-RIGHT ISOLATE (sets base direction to LTR & isolates the embedded)
("&lri;" ?\u2066) ;; (ucs-insert #x2066)
;; RIGHT-TO-LEFT ISOLATE (sets base direction to RTL & isolates the embedded)
("&rli;" ?\u2067) ;; (ucs-insert #x2067)
;; FIRST-STRONG ISOLATE (isolates content & sets dir to first strongly typed)
("&fsi;" ?\u2068) ;; (ucs-insert #x2068)
;; POP DIRECTIONAL ISOLATE (used for RLI, LRI or FSI)
;; EMACS BUG
;; If ("&pdi;" ?\u2069) is included Emacs fully hangs with a (describe-input-method 'farsi-transliterate-banan)
;;("&pdi;" ?\u2069) ;; (ucs-insert #x2069)
;; LEFT-TO-RIGHT EMBEDDING (sets base dir to LTR but allows embedded text)
("&lre;" ?\u202A) ;; (ucs-insert #x202A) named: زیرمتنِ چپ‌به‌راست
("B" ?\u202A)
;; RIGHT-TO-LEFT EMBEDDING (sets base dir to RTL but allows embedded text)
("&rle;" ?\u202B) ;; (ucs-insert #x202B) named: زیرمتنِ راست‌به‌چپ
;; POP DIRECTIONAL FORMATTING (used for RLE or LRE and RLO or LRO)
;; EMACS ANOMOLY --- Why does &pdf not show up in (describe-input-method 'farsi-transliterate-banan)
("&pdf;" ?\u202C) ;; (ucs-insert #x202C) named: پایانِ زیرمتن
("P" ?\u202C)
;; LEFT-TO-RIGHT OVERRIDE (overrides the bidirectional algorithm, display LTR)
("&lro;" ?\u202D) ;; (ucs-insert #x202D) named: زیرمتنِ اکیداً چپ‌به‌راست
;; RIGHT-TO-LEFT OVERRIDE (overrides the bidirectional algorithm, display RTL)
("&rlo;" ?\u202E) ;; (ucs-insert #x202E) named: زیرمتنِ اکیداً راست‌به‌چپ
;;;;;;;;;;; isiri-6219 Table 7 -- جدول ۷ - نشانه‌هایِ فارسی ;;;;;;;;;;; isiri-6219 Table 7 -- جدول ۷ - نشانه‌هایِ فارسی
("^" ?َ) ;; zbar ;; زبر فارسى ("^" ?َ) ;; zbar ;; زبر فارسى
@ -491,14 +517,14 @@
("O" ?ٌ) ;; دو پيش فارسى -- تنوين رفع ("O" ?ٌ) ;; دو پيش فارسى -- تنوين رفع
("~" ?ّ) ;; tashdid ;; تشديد فارسى ("~" ?ّ) ;; tashdid ;; تشديد فارسى
("@" ?ْ) ;; ساکن فارسى ("@" ?ْ) ;; ساکن فارسى
("U" ?\u0653) ;; (insert-char #x0653)ٓ named: مدِ فارسی ("U" ?\u0653) ;; (ucs-insert #x0653)ٓ named: مدِ فارسی
("`" ?ٔ) ;; همزه فارسى بالا ("`" ?ٔ) ;; همزه فارسى بالا
("C" ?\u0655) ;; (insert-char #x0655)ٕ named: همزه فارسى پایین ("C" ?\u0655) ;; (ucs-insert #x0655)ٕ named: همزه فارسى پایین
("$" ?\u0670) ;; (insert-char #x0670)ٰ named: الفِ مقصوره‌ی فارسی ("$" ?\u0670) ;; (ucs-insert #x0670)ٰ named: الفِ مقصوره‌ی فارسی
;;;;;;;;;;; isiri-6219 Table 8 - Forbidden Characters -- جدول ۸ - نویسه‌هایِ ممنوع ;;;;;;;;;;; isiri-6219 Table 8 - Forbidden Characters -- جدول ۸ - نویسه‌هایِ ممنوع
;; ;; he ye (insert-char 1728) (insert-char #x06c0) kills emacs-24.0.90 ;; ;; he ye (ucs-insert 1728) (ucs-insert #x06c0) kills emacs-24.0.90
;; arabic digits 0-9 ;; arabic digits 0-9
@ -508,7 +534,7 @@
("\\~" ?~) ("\\~" ?~)
("\\@" ?@) ("\\@" ?@)
("\\#" ?#) ("\\#" ?#)
("\\$" ?\uFDFC) ;; (insert-char #xFDFC)﷼ named: ("\\$" ?\uFDFC) ;; (ucs-insert #xFDFC)﷼ named:
("\\^" ?^) ("\\^" ?^)
("\\1" ?1) ("\\1" ?1)
("\\2" ?2) ("\\2" ?2)