;; See the end for copying conditions.
(font layouter arab-otf-no-gpos nil
- (font (nil nil unicode-bmp :otf=arab=init,medi,fina,liga+~mark)))
+ (font (nil nil unicode-bmp :otf=arab=init,medi,fina+~mark)))
;;; <li> ARAB-OTF-NO-GPOS.flt
;;;
;; LAM-ALEF pattern. Move diacritcs on LAM after ALEF. This is to
;; avoid loosing surrounding separators by OTF's liga or rlig
;; features in the next step.
- ("L(T*)A.*"
- (cond
- ("(.)(T*)(A)(T*)([DLRA].*)"
- (1 otf:arab=init)
- (3 otf:arab=fina)
- (2 | = * |)
- (4 | = * |)
- (5 join))
- ("(.)(T*)(A)(T*)(.*)" ; == (D)(T*)(U.*)
- (1 otf:arab=init)
- (3 otf:arab=fina)
- (2 | = * |)
- (4 | = * |)
- (5 disjoin))))
+ ("(L)(T*)(A)(T*)(.*)"
+ (1 otf:arab=init)
+ (3 otf:arab=fina)
+ (2 | = * |)
+ (4 | = * |)
+ (5 disjoin))
("[DL].*"
(cond
(join
(cond
;; LAM-ALEF pattern. See the above comment.
- ("L(T*)A.*"
- (cond
- ("(.)(T*)(A)(T*)([DLRA].*)"
- (1 otf:arab=medi)
- (3 otf:arab=fina)
- (2 | = * |)
- (4 | = * |)
- (5 join))
- ("(.)(T*)(A)(T*)(.*)" ; == (D)(T*)(U.*)
- (1 otf:arab=medi)
- (3 otf:arab=fina)
- (2 | = * |)
- (4 | = * |)
- (5 disjoin))))
+ ("(L)(T*)(A)(T*)(.*)"
+ (1 otf:arab=medi)
+ (3 otf:arab=fina)
+ (2 | = * |)
+ (4 | = * |)
+ (5 disjoin))
("[DL].*"
(cond
(disjoin
(cond
;; LAM-ALEF pattern. See the above comment.
- ("L(T*)A.*"
- (cond
- ("(.)(T*)(A)(T*)([DLRA].*)"
- (1 otf:arab=init)
- (3 otf:arab=fina)
- (2 | = * |)
- (4 | = * |)
- (5 join))
- ("(.)(T*)(A)(T*)(.*)" ; == (D)(T*)(U.*)
- (1 otf:arab=init)
- (3 otf:arab=fina)
- (2 | = * |)
- (4 | = * |)
- (5 disjoin))))
+ ("(L)(T*)(A)(T*)(.*)"
+ (1 otf:arab=init)
+ (3 otf:arab=fina)
+ (2 | = * |)
+ (4 | = * |)
+ (5 disjoin))
("[DL].*"
(cond