diff --git a/changes/3.5.0.md b/changes/3.5.0.md index 862b9adad..82f098ba3 100644 --- a/changes/3.5.0.md +++ b/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). \ No newline at end of file + * Balance old-style figures to reduce raggedness (#402). + * Add ligation set for Wolfram Language (#680). \ No newline at end of file diff --git a/font-src/glyphs/symbol/ligation.ptl b/font-src/glyphs/symbol/ligation.ptl index de1ecc100..ecf21e81e 100644 --- a/font-src/glyphs/symbol/ligation.ptl +++ b/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' diff --git a/font-src/otl/gsub-ligation.ptl b/font-src/otl/gsub-ligation.ptl index fef56f49c..8368b204c 100644 --- a/font-src/otl/gsub-ligation.ptl +++ b/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'} diff --git a/params/ligation-set.toml b/params/ligation-set.toml index ec75ac704..242279b9c 100644 --- a/params/ligation-set.toml +++ b/params/ligation-set.toml @@ -102,6 +102,10 @@ desc = 'Treat `>=` as co-arrow' ligGroup = "html-comment" desc = 'Enable ligation for `