added transliteration arabic_unvocalized, which omits the vowels

src/compiler/GF/Text/Transliterations.hs

@@ -39,6 +39,7 @@ allTransliterations = Map.fromList [
   ("amharic",transAmharic),
   ("ancientgreek", transAncientGreek),
   ("arabic", transArabic),
+  ("arabic_unvocalized", transArabicUnvoc),
   ("devanagari", transDevanagari),
   ("greek", transGreek),
   ("hebrew", transHebrew),
@@ -178,6 +179,13 @@ transArabic = mkTransliteration "Arabic" allTrans allCodes where
   allCodes = [0x0621..0x062f] ++ [0x0630..0x063a] ++ 
              [0x0641..0x064f] ++ [0x0650..0x0657] ++ [0x0671,0x061f]
 
+
+transArabicUnvoc :: Transliteration
+transArabicUnvoc = transArabic{
+  invisible_chars = ["a","u","i","v2","o","V+","V-","a:"],
+  printname = "unvocalized Arabic"
+  }
+
 transPersian :: Transliteration
 transPersian = (mkTransliteration "Persian/Farsi" allTrans allCodes)
     {invisible_chars = ["a","u","i"]} where