(Ara) diacritics

2018-11-02 18:01:14 +01:00
parent 62ea7c82a9
commit 2d112e3a55
5 changed files with 27 additions and 28 deletions
@@ -12,7 +12,8 @@ flags coding=utf8 ;
  -- Shadda: https://www.unicode.org/L2/L2017/17253-arabic-ordering.pdf
    fixShd : Str -> Str -> Str = \word,suffix ->
      case <word,suffix> of {
-        <x + "ّ", v@#vow + y> => x + v + "ّ" + y ;
+       -- <x + "ّ", v@#vow + y> => x + v + "ّ" + y ;
+        <x + v@#vow, "ّ" + y> => x + "ّ" + v + y ;
        _                     => word + suffix
      } ;