writing: substitute arabic isolated forms by common glyphs

Presentational forms should be avoided without good reason.

diff --git a/writing-phnx.inc.pl b/writing-phnx.inc.pl
index b3f7ed2289a2972ab0ab6dcd35d3c38367c973cb..38169712bb85f9bac0e5255846b9b8b87dbc693e 100644 (file)
--- a/writing-phnx.inc.pl
+++ b/writing-phnx.inc.pl
@@ -12,4 +12,5 @@ armi     => [qw{ 𐡀 > 𐡁  > 𐡂  𐡃  > 𐡄  >  >  >  𐡅 𐡆 𐡇  > 
 #brah     => [qw{ अ > ब  > ग  ध  > -  >  >  >  व द -  थ ठ  > य क ल म न > श  -  प >  स ख  र > ष  त }],
 hebr     => [qw{ א > ב  > ג  ד  > ה  >  >  ו  װ ז ח  > ט  י ײ כ ל מ נ > ס  ע  פ צ  ץ ק  ר > ש  ת }],
 syrc     => [qw{ ܐ > ܒ  > ܓ  ܕ  > ܗ  >  >  >  ܘ ܙ ܚ  > ܛ  ܝ ҩ ܟ ܠ ܡ ܢ > ܣ  ܥ  ܦ >  ܨ ܩ  ܪ > ܫ  ܬ }],
 #brah     => [qw{ अ > ब  > ग  ध  > -  >  >  >  व द -  थ ठ  > य क ल म न > श  -  प >  स ख  र > ष  त }],
 hebr     => [qw{ א > ב  > ג  ד  > ה  >  >  ו  װ ז ח  > ט  י ײ כ ל מ נ > ס  ע  פ צ  ץ ק  ר > ש  ת }],
 syrc     => [qw{ ܐ > ܒ  > ܓ  ܕ  > ܗ  >  >  >  ܘ ܙ ܚ  > ܛ  ܝ ҩ ܟ ܠ ܡ ܢ > ܣ  ܥ  ܦ >  ܨ ܩ  ܪ > ܫ  ܬ }],

-arab     => [qw{ ﺍ > ﺏ  > ﺝ  د‌ذ ه ـ  >  >  >  ﻭ ﺯ ح‌خ ط ظ > ي ﻙ ﻝ ﻡ ﻥ > س  ع‌غ ﻑ ص  ض ﻕ  ﺭ > ش  ت‌ث }],
+arab     => [qw{ ا > ب  > ج  د  ه ـ  >  >  >  و ز ح  > ط  > ي ك ل م ن > س  ع  ف >  ص ق  ر > ش  ت }],
+#arab    => [qw{ ^ ^ ^  ^ ^  ذ  ^ ^  ^  ^  ^  ^ ^ خ  ^ ظ  ^ ^ ^ ^ ^ ^ ^ س  غ  ^ ^  ض ^  ﺭ ^ ^  ث }],

diff --git a/writing.plp b/writing.plp
index 5308df7b079ec31d4ae096029d4f20acf083f58c..eab00514088e689124b252f780948ed917c8028d 100644 (file)
--- a/writing.plp
+++ b/writing.plp
@@ -13,6 +13,7 @@ Html({
                history phoenician latin sample test language multilingual
        '],
        stylesheet => [qw'light dark red'],
                history phoenician latin sample test language multilingual
        '],
        stylesheet => [qw'light dark red'],

+       data => [qw'writing-phnx.inc.pl'],

 });
 
 :>
 });
 
 :>