Add ligation for |- and (*******)

This commit is contained in:
Belleve Invis 2019-07-22 16:18:26 -07:00
parent c14a0ef556
commit f57d50196b
2 changed files with 10 additions and 2 deletions

View file

@ -191,6 +191,11 @@ export : define [apply] : begin
include markset.plus
include : HBar SB RIGHTSB symbolMid OPERATORSTROKE
save 'minus' 0x2212
sketch # minus.preTurnstile
include markset.plus
include : HBar (-SB) RIGHTSB symbolMid OPERATORSTROKE
save 'ligminus.preTurnstile'
save 'lighyphen.preTurnstile'
sketch # innerMinus
include markset.plus
include : HBar SB RIGHTSB symbolMid GEOMETRYSTROKE

View file

@ -132,9 +132,9 @@ export : define [buildLigations chain-rule lookupOrder commonList features looku
.subtables : list
chain-rule # (*
{'parenLeft'} ~> preserved
{'asterisk'} ~> [only 'brst' {'asterisk.low'}]
{'asterisk'} ~> [only 'brst' {'asterisk.dfltlow'}]
chain-rule # *)
{'asterisk'} ~> [only 'brst' {'asterisk.low'}]
{'asterisk'} ~> [only 'brst' {'asterisk.dfltlow'}]
{'parenRight'} ~> preserved
# Smiley :)
includeLookup
@ -476,6 +476,9 @@ export : define [buildLigations chain-rule lookupOrder commonList features looku
chain-rule
{'backslash'} ~> [only 'logic' {'backslash.left'}]
{'slash'} ~> [only 'logic' {'slash.right'}]
chain-rule
{'bar'} ~> preserved
{'hyphen' 'minus'} ~> [only 'logic' : lsx 'preTurnstile']
do "equals-3" : includeLookup
.type 'gsub_chaining'
.subtables : list