From 3ac0f1bfca39fbc97880a20a715247807c2e8dc2 Mon Sep 17 00:00:00 2001 From: Robert Alessi Date: Mon, 21 Mar 2016 13:40:28 +0100 Subject: =?UTF-8?q?shorten=20long=20vowels=20according=20to=20rule=20laid?= =?UTF-8?q?=20down=20in=20Wright=20i.=20=C2=A725=20(trans=20mode)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- arabluatex_trans.lua | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'arabluatex_trans.lua') 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 = { } digraphstrdmg = { - {a="(%-)([uai])", b="%1'"}, -- hyphen + initial alif without hamza + {a="([uai]%-)([uai])", b="%1'"}, -- hyphen + initial alif without hamza {a="^([uai])", b="%1"}, -- initial alif without hamza - {a="(%s)([uai])", b="%1'"}, -- initial alif without hamza +-- {a="([%_]?[uaiUAIY])(%s)([uai])", b="%1%2'"}, -- initial alif without hamza + {a="([^%_][uai])(%s)([uai])", b="%1%2'"}, + {a="([%_]?[AYa])(%s)([uai])", b="a%2'"}, + {a="([%_]?[Uu])(%s)([uai])", b="u%2'"}, + {a="([%_]?[Ii])(%s)([uai])", b="i%2'"}, + -- shorten long vowels preceding ʾalif conjunctionis + {a="([%_]?[AYa])(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="a%2%3"}, + {a="([%_]?[Uu])(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="u%2%3"}, + {a="([%_]?[Ii])(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="i%2%3"}, {a="%-%-", b=""}, {a="T([^uai])", b="%1"}, {a="T(%s)", b="%1"}, @@ -208,7 +216,7 @@ longvtrdmg = { {a="A", b="ā"}, {a="U", b="ū"}, {a="I", b="ī"}, - {a="Y", b="ā"}, + {a="Y", b="ā"} } shortvtrdmg = { -- cgit v1.2.3