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 markset.plus
include : HBar SB RIGHTSB symbolMid OPERATORSTROKE include : HBar SB RIGHTSB symbolMid OPERATORSTROKE
save 'minus' 0x2212 save 'minus' 0x2212
sketch # minus.preTurnstile
include markset.plus
include : HBar (-SB) RIGHTSB symbolMid OPERATORSTROKE
save 'ligminus.preTurnstile'
save 'lighyphen.preTurnstile'
sketch # innerMinus sketch # innerMinus
include markset.plus include markset.plus
include : HBar SB RIGHTSB symbolMid GEOMETRYSTROKE include : HBar SB RIGHTSB symbolMid GEOMETRYSTROKE

View file

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