Add ligature for <!---, --->, <---. Closes #137.
This commit is contained in:
parent
8981a3d180
commit
6b9b7cbe5e
|
@ -194,16 +194,19 @@ export : define [apply para glyphList] : begin
|
|||
chain-rule less (stick ~> [lsx 'lc'] ) (stick ~> [lsx 'cr']) greater # <--> <==>
|
||||
chain-rule less (stick ~> [lsx 'lr']) greater # <->, <=>
|
||||
chain-rule less (stick ~> [lsx 'lj']) less # <-<, <=<
|
||||
chain-rule less (stick ~> [lsx 'lc']) (stick ~> [lsx 'cc']) (stick ~> [lsx 'cf']) # <---, <===
|
||||
chain-rule less (stick ~> [lsx 'lc']) (stick ~> [lsx 'cf']) # <--, <==
|
||||
chain-rule less (less ~> [lsx 'shift1']) (stick ~> [lsx 'l1f']) # <<-, <<=
|
||||
:> only {'hask'}
|
||||
chain-rule less (hyphen ~> [lsx 'lf']) # <-
|
||||
chain-rule less (exclam ~> [lsx 'htmlcommentstart']) (hyphen ~> [lsx 'lxc']) (hyphen ~> [lsx 'cc']) (hyphen ~> [lsx 'cf']) # <!---
|
||||
chain-rule less (exclam ~> [lsx 'htmlcommentstart']) (hyphen ~> [lsx 'lxc']) (hyphen ~> [lsx 'cf']) # <!--
|
||||
chain-rule greater (greater ~> [lsx 'shiftN1']) (stick ~> [lsx 'j1f']) # >>-, >>=
|
||||
:> only {'hask'}
|
||||
chain-rule greater (stick ~> [lsx 'jr']) greater # >->, >=>
|
||||
chain-rule greater (hyphen ~> [lsx 'jf']) # >-
|
||||
:> only {'hask'}
|
||||
chain-rule (stick ~> [lsx 'fc']) (stick ~> [lsx 'cc']) (stick ~> [lsx 'cr']) greater # --->, ===>
|
||||
chain-rule (stick ~> [lsx 'fc']) (stick ~> [lsx 'cr']) greater # -->, ==>
|
||||
chain-rule (stick ~> [lsx 'fr1']) (greater ~> [lsx 'shift1']) greater # ->>, =>>
|
||||
:> only {'hask'}
|
||||
|
|
Loading…
Reference in New Issue
Block a user