aboutsummaryrefslogtreecommitdiff
path: root/arabluatex_trans.lua
diff options
context:
space:
mode:
Diffstat (limited to 'arabluatex_trans.lua')
-rw-r--r--arabluatex_trans.lua14
1 files changed, 11 insertions, 3 deletions
diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua
index 1e2d89a..f7274c1 100644
--- a/arabluatex_trans.lua
+++ b/arabluatex_trans.lua
@@ -153,9 +153,17 @@ tanwintrdmg = {
153} 153}
154 154
155digraphstrdmg = { 155digraphstrdmg = {
156 {a="(%-)([uai])", b="%1'"}, -- hyphen + initial alif without hamza 156 {a="([uai]%-)([uai])", b="%1'"}, -- hyphen + initial alif without hamza
157 {a="^([uai])", b="%1"}, -- initial alif without hamza 157 {a="^([uai])", b="%1"}, -- initial alif without hamza
158 {a="(%s)([uai])", b="%1'"}, -- initial alif without hamza 158-- {a="([%_]?[uaiUAIY])(%s)([uai])", b="%1%2'"}, -- initial alif without hamza
159 {a="([^%_][uai])(%s)([uai])", b="%1%2'"},
160 {a="([%_]?[AYa])(%s)([uai])", b="a%2'"},
161 {a="([%_]?[Uu])(%s)([uai])", b="u%2'"},
162 {a="([%_]?[Ii])(%s)([uai])", b="i%2'"},
163 -- shorten long vowels preceding ʾalif conjunctionis
164 {a="([%_]?[AYa])(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="a%2%3"},
165 {a="([%_]?[Uu])(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="u%2%3"},
166 {a="([%_]?[Ii])(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="i%2%3"},
159 {a="%-%-", b=""}, 167 {a="%-%-", b=""},
160 {a="T([^uai])", b="%1"}, 168 {a="T([^uai])", b="%1"},
161 {a="T(%s)", b="%1"}, 169 {a="T(%s)", b="%1"},
@@ -208,7 +216,7 @@ longvtrdmg = {
208 {a="A", b="ā"}, 216 {a="A", b="ā"},
209 {a="U", b="ū"}, 217 {a="U", b="ū"},
210 {a="I", b="ī"}, 218 {a="I", b="ī"},
211 {a="Y", b="ā"}, 219 {a="Y", b="ā"}
212} 220}
213 221
214shortvtrdmg = { 222shortvtrdmg = {