From 6b9b7cbe5e8bdb16bbc63a2b40a974cde271ff9c Mon Sep 17 00:00:00 2001
From: be5invis <belleve@typeof.net>
Date: Tue, 13 Dec 2016 23:14:46 +0800
Subject: [PATCH] Add ligature for <!---, --->, <---. Closes #137.

---
 meta/features.ptl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/meta/features.ptl b/meta/features.ptl
index f3cff95..53eb69e 100644
--- a/meta/features.ptl
+++ b/meta/features.ptl
@@ -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'}