Add ligation :> :- etc

This commit is contained in:
be5invis 2016-05-31 16:22:13 +08:00
parent 0ada519862
commit 7b324a3f95
2 changed files with 9 additions and 2 deletions

View File

@ -208,7 +208,7 @@ if [not recursive] : begin
if [not lookups.(ligationLookupName)] : set lookups.(ligationLookupName)
.type 'gsub_chaining'
.subtables : list
chain-rule less (stick ~> [lsx 'lc'] ) (stick ~> [lsx 'cr']) greater # <~> <==>
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 'cf']) # <--, <==
@ -229,6 +229,9 @@ if [not recursive] : begin
:> only {'hask'}
chain-rule (stick ~> [lsx 'fj']) less # -<, =<
:> only {'hask'}
chain-rule ({'colon'} ~> {'colon.mid'}) {'greater' 'less' 'hyphen' 'equal' 'plus'} # :> :- := :< :+
chain-rule {'greater' 'less' 'hyphen' 'equal' 'plus'} ({'colon'} ~> {'colon.mid'}) # <: >: -: =: +:
#opbd
local fwclose {'fwlcloseDoubleQuote' 'fwlcloseSingleQuote' 'dwlcjkSingleQuoteRight' 'dwlcjkDoubleQuoteRight' 'dwlparenRight'}

View File

@ -180,8 +180,12 @@ symbol-block 'Small Punctuations'
set-width WIDTH
include glyphs.period
include glyphs.xhdot
save 'colon' ':'
apply-transform : Upright
apply-transform : Translate 0 (parenMid - XH / 2)
apply-transform : Italify
save 'colon.mid'
sketch # semicolon
include glyphs.comma