mikeslab/Iosevka
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions 1

Add ligation set for Wolfram Language (#680).

Browse source
This commit is contained in:
be5invis 2020-09-03 20:42:38 -07:00
parent a57c3fc2db
commit 47e6fbc7eb
4 changed files with 25 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
font-src/glyphs/symbol/ligation.ptl
View file

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

7
font-src/otl/gsub-ligation.ptl
View file

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