Add ligature for <!---, --->, <---. Closes #137.

This commit is contained in:
be5invis 2016-12-13 23:14:46 +08:00
parent 8981a3d180
commit 6b9b7cbe5e

View File

@ -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'}