1 files changed, 33 insertions, 5 deletions
diff --git a/tex/context/base/mkiv/lang-def.mkiv b/tex/context/base/mkiv/lang-def.mkiv
index 5e40a33b0..96bb88767 100644
--- a/tex/context/base/mkiv/lang-def.mkiv
+++ b/tex/context/base/mkiv/lang-def.mkiv
@@ -134,7 +134,6 @@
    \c!rightquotation=\rightguillemot,
    \c!date={\v!day,{.},\space,\v!month,\space,\v!year}]
 
-
 \installlanguage [\s!no]        [\s!nb]
 \installlanguage [\s!norwegian] [\s!nb]
 \installlanguage [\s!bokmal]    [\s!nb]
@@ -399,6 +398,23 @@
 
 \installlanguage [\s!arabic] [\s!ar]
 
+\installlanguage
+  [\s!pe]
+  [\c!spacing=\v!broad,
+   \c!leftsentence=\emdash,
+   \c!rightsentence=\emdash,
+   \c!leftsubsentence=\emdash,
+   \c!rightsubsentence=\emdash,
+   \c!leftquote=\leftguillemot,
+   \c!rightquote=\rightguillemot,
+   \c!leftquotation=\leftguillemot,
+   \c!rightquotation=\rightguillemot,
+   \c!date={\v!day,\space,\v!month,\space,\v!year}]
+
+\installlanguage [\s!persian] [\s!pe]
+\installlanguage [\s!fa]      [\s!pe] % these two are redundant but sometimes might
+\installlanguage [\s!farsi]   [\s!fa] % sound more natural .. best set labels to 'pe'
+
 % Just aliases to "ar" for now
 
 \installlanguage[\s!ar-ae][\c!default=\s!ar]    % U.A.E.
@@ -414,6 +430,12 @@
 \installlanguage[\s!ar-tn][\c!default=\s!ar]    % Tunisia
 \installlanguage[\s!ar-ye][\c!default=\s!ar]    % Yemen
 
+% Farsi (Persian)
+
+\installlanguage[\s!ar-ir][\c!default=\s!pe]
+%installlanguage[\s!pe-ir][\c!default=\s!pe]
+%installlanguage[\s!fa-ir][\c!default=\s!fa]
+
 % Syriac months
 
 \installlanguage[\s!ar-sy][\c!default=\s!ar]    % Syria
@@ -450,6 +472,8 @@
 
 % Celtic: Breton, Welsh, Irish, Manx, Scottish Gaelic
 
+% CJK: Chinese, Japanese, Korean
+
 \installlanguage
   [\s!cn]
   [\c!leftsentence=——,
@@ -487,6 +511,10 @@
  % \c!date={서기,\space,\v!year,\labeltext{\v!year},\space,\v!month,\labeltext{\v!month},\space,\v!day,\labeltext{\v!day}}]
    \c!date={\v!year,\labeltext{\v!year},\space,\v!month,\labeltext{\v!month},\space,\v!day,\labeltext{\v!day}}]
 
+\installlanguage [\s!chinese]  [\s!cn]
+\installlanguage [\s!japanese] [\s!ja]
+\installlanguage [\s!korean]   [\s!kr]
+
 % Greek
 
 \installlanguage
@@ -496,10 +524,10 @@
    \c!rightsentence=\emdash,
    \c!leftsubsentence=\emdash,
    \c!rightsubsentence=\emdash,
-   \c!leftquote=\greekleftquot,
-   \c!rightquote=\greekrightquot,
-   \c!leftquotation=\greekleftquot,
-   \c!rightquotation=\greekrightquot,
+   \c!leftquote=“,
+   \c!rightquote=”,
+   \c!leftquotation=«,
+   \c!rightquotation=»,
    \c!date={\v!day\space\v!month\space\v!year},
    \s!patterns=\s!agr] % ok?