new command used internally to store font family and shape to be used for transliterated Arabic

1 files changed, 5 insertions, 3 deletions

diff --git a/arabluatex.lua b/arabluatex.lua
index 32bb500..8897194 100644
--- a/arabluatex.lua
+++ b/arabluatex.lua
@@ -532,6 +532,8 @@ local function novoceasy(str)
    return str
 end
 
+local trfontinfo = "\\altrfont "
+
 local function transdmg(str, rules)
    str = string.gsub(str, "\\arb(%b{})", function(inside)
    inside = string.sub(inside, 2, -2)
@@ -567,7 +569,7 @@ local function transdmg(str, rules)
    for i = 1,#nulltr do
       inside = string.gsub(inside, nulltr[i].a, nulltr[i].b)
    end
-   return string.format("%s", inside)
+   return string.format("{%s%s}", trfontinfo, inside)
    end)
    return str
 end
@@ -605,7 +607,7 @@ local function transloc(str)
    for i = 1,#nulltr do
       inside = string.gsub(inside, nulltr[i].a, nulltr[i].b)
    end
-   return string.format("%s", inside)
+   return string.format("{%s%s}", trfontinfo, inside)
    end)
    return str
 end
@@ -640,7 +642,7 @@ local function transarabica(str)
    for i = 1,#nulltr do
       inside = string.gsub(inside, nulltr[i].a, nulltr[i].b)
    end
-   return string.format("%s", inside)
+   return string.format("{%s%s}", trfontinfo, inside)
    end)
    return str
 end