From 096beae214454467a198ba2d01b46b00bc386e71 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 17 Oct 2018 17:15:39 +0200
Subject: [PATCH] (Ara) More cases in normalisation functions for diacritics

---
 src/arabic/OrthoAra.gf | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/src/arabic/OrthoAra.gf b/src/arabic/OrthoAra.gf
index 3a24690cd..8e861e0cd 100644
--- a/src/arabic/OrthoAra.gf
+++ b/src/arabic/OrthoAra.gf
@@ -4,18 +4,16 @@ flags coding=utf8 ;
 
   oper
 
-  -- Definite article assimilation
-    vow : pattern Str = #("َ" | "ِ" | "ُ") ;
-
+    vow : pattern Str = #("َ" | "ِ" | "ُ" | "ً" | "ٍ" | "ٌ") ;
 
     -- "Sun letters": assimilate with def. article
     sun : pattern Str = #("ت"|"ث"|"د"|"ذ"|"ر"|"ز"|"س"|"ش"|"ص"|"ض"|"ط"|"ظ"|"ل"|"ن") ;
 
   -- Shadda: https://www.unicode.org/L2/L2017/17253-arabic-ordering.pdf
-    fixShd : Str -> Str -> Str = \word,vowel ->
-      case word of {
-        x + "ّ" => x + vowel + "ّ" ;
-        x       => x + vowel
+    fixShd : Str -> Str -> Str = \word,suffix ->
+      case <word,suffix> of {
+        <x + "ّ", v@#vow + y> => x + v + "ّ" + y ;
+        _                     => word + suffix
       } ;
 
   -- Hamza