Add ligation set for Wolfram Language (#680).

changes/3.5.0.md

@@ -1,3 +1,4 @@
  * Increase size of bullet characters (#678).
  * Move registered trademark symbol (U+00A9, ®) to superscript (#679).
- * Balance old-style figures to reduce raggedness (#402).
+ * Balance old-style figures to reduce raggedness (#402).
+ * Add ligation set for Wolfram Language (#680).

font-src/glyphs/symbol/ligation.ptl

@@ -27,6 +27,7 @@ glyph-block Symbol-Ligation : begin
 		define zright : cright + SB
 		define lk : object
 			f    SB
+			p    (arrowl + Width)
 			l    arrowl
 			l1 : arrowl - kern
 			c    cleft
@@ -37,6 +38,7 @@ glyph-block Symbol-Ligation : begin
 
 		define rk : object
 			f    RightSB
+			p    (arrowr - Width)
 			r    arrowr
 			r1 : arrowr + kern
 			c    cright
@@ -295,3 +297,8 @@ glyph-block Symbol-Ligation : begin
 		create-glyph 'plus.lig.cr'   : PlusShape O RightSB
 		create-glyph 'plus.lig.cr.s' : PlusShape O RightSB (-SB)
 		create-glyph 'plus.lig.jr'   : PlusShape (-SB + O) RightSB
+
+	do 'Less / Greater as arrow'
+		create-glyph 'greaterArrow' : composite-proc
+			refer-glyph 'hyphen.lig.jp'
+			refer-glyph 'greater'

font-src/otl/gsub-ligation.ptl

@@ -91,7 +91,7 @@ define [buildLigationsImpl sink para featureName mappedFeature rankedLookups] :
 	define [caret_center]     ({'asciiCaret'}        ~> {'asciiCaret.low'})
 	define [tilde_center]     ({'asciiTilde'}        ~> {'asciiTilde.low'})
 	define [period_center]    ({'period'}            ~> {'period.mid'})
-	define [no_period_center] ({'period.mid'}     ~> {'period'})
+	define [no_period_center] ({'period.mid'}        ~> {'period'})
 
 	local ligationLookupName : 'lig_' + featureName + '{' + mappedFeature + '}'
 
@@ -883,3 +883,8 @@ define [buildLigationsImpl sink para featureName mappedFeature rankedLookups] :
 			{'greater'} ~> {'greater.lig2'}
 			equal       ~> {'eq.at-gteq.lig2'}
 
+	# :>
+	do "colon-less-greater" : CreateLigationLookup : keep-if 'colon-greater' : list
+		chain-rule
+			{'colon.mid'} ~> look-around
+			{'greater'}   ~> {'greaterArrow'}

params/ligation-set.toml

@@ -102,6 +102,10 @@ desc = 'Treat `>=` as co-arrow'
 ligGroup =  "html-comment"
 desc = 'Enable ligation for `<!--` and `<!---`'
 
+[simple.calt-colon-greater-as-colon-arrow]
+ligGroup = "colon-greater"
+desc = 'Transform `:>` into `:` and a narrow arrow.'
+
 [composite.ligset-calt]
 isOptOut = true # This feature is on by default by many software
 tag     = 'calt'
@@ -179,3 +183,9 @@ desc    = 'Coq'
 tag     = 'MTLB'
 buildup = ['calt-center-ops', 'calt-arrow', 'calt-html-comment', 'calt-trig', 'calt-llgg', 'calt-eqeq', 'calt-ineq', 'calt-tildeeq', 'calt-plusplus', 'calt-kern-dotty']
 desc    = 'Matlab'
+
+[composite.ligset-wolfram]
+tag     = 'WFLM'
+buildup = ['calt-center-ops', 'calt-arrow', 'calt-trig', 'calt-ltgt-diamond', 'calt-eqeqeq', 'calt-ineq', 'calt-eqexeq', 'calt-brst', 'calt-plusplus', 'calt-logic', 'calt-colon-greater-as-colon-arrow']
+brief   = 'Wolfram'
+desc    = 'Wolfram Language (Mathematica)'