suzanne.soy/Iosevka
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor naming.ptl

Browse Source
This commit is contained in:
be5invis 2016-06-14 12:51:00 +08:00
parent 6680f589cb
commit 1ec4930ff5
2 changed files with 53 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
buildglyphs.ptl
View File

@ -8,7 +8,7 @@ import './support/fairify' as fairify
import [mix linreg clamp fallback TempFont includeGlyphPart compsiteMarkSet] from './support/utils' import [mix linreg clamp fallback TempFont includeGlyphPart compsiteMarkSet] from './support/utils'
import [calculateMetrics setFontMetrics] from './meta/aesthetics' import [calculateMetrics setFontMetrics] from './meta/aesthetics'
import [nameFont] from './meta/naming' import [assignFontNames] from './meta/naming'
import './meta/features' as Features import './meta/features' as Features
$$include 'meta/macros.ptl' $$include 'meta/macros.ptl'
@ -148,7 +148,7 @@ export as build : define [buildFont para recursive recursiveCodes] : begin
###### HERE WE GO! ###### HERE WE GO!
### Metadata ### Metadata
nameFont para metrics font assignFontNames para metrics font
setFontMetrics para metrics font setFontMetrics para metrics font
# Necessary notdef, .null and nonmarkingreturn glyph # Necessary notdef, .null and nonmarkingreturn glyph

65
meta/naming.ptl
View File

@ -1,9 +1,21 @@
export : define [nameFont para metrics font] : begin define COPYRIGHT 0
set font.name {} define FAMILY 1
define STYLE 2
define UNIQUE_NAME 3
define FULL_NAME 4
define VERSION 5
define POSTSCRIPT 6
define TRADEMARK 7
define MANUFACTURER 8
define DESIGNER 9
define DESCRIPTION 10
define LICENCE 13
define PREFERRED_FAMILY 16
define PREFERRED_STYLE 17
define WWS_PREFERRED_FAMILY 21
define WWS_PREFERRED_STYLE 22
set para.family [para.family.trim] define [nameFont font nameid str] : begin
set para.style : [para.style.trim] || "Regular"
define [nameFont nameid str] : begin
font.name.push : object # Mac Roman font.name.push : object # Mac Roman
platformID 1 platformID 1
encodingID 0 encodingID 0
@ -17,31 +29,38 @@ export : define [nameFont para metrics font] : begin
nameID nameid nameID nameid
nameString str nameString str
nameFont 16 para.family # Preferred Family export : define [assignFontNames para metrics font] : begin
nameFont 17 para.style # Preferred Style set font.name {}
nameFont 21 para.family # WWS Preferred Family
nameFont 22 para.style # WWS Preferred Style set para.family [para.family.trim]
set para.style : [para.style.trim] || "Regular"
nameFont font PREFERRED_FAMILY para.family # Preferred Family
nameFont font PREFERRED_STYLE para.style # Preferred Style
nameFont font WWS_PREFERRED_FAMILY para.family # WWS Preferred Family
nameFont font WWS_PREFERRED_STYLE para.style # WWS Preferred Style
set font.name.preferredFamily para.family set font.name.preferredFamily para.family
set font.name.preferredSubFamily para.style set font.name.preferredSubFamily para.style
if (para.style == 'Regular' || para.style == 'Bold' || para.style == 'Italic' || para.style == "Bold Italic") : then if (para.style == 'Regular' || para.style == 'Bold' || para.style == 'Italic' || para.style == "Bold Italic") : then
nameFont 1 para.family # Family nameFont font FAMILY para.family # Family
nameFont 2 para.style # Style nameFont font STYLE para.style # Style
: else : else
nameFont 1 : para.family + ' ' + [para.style.replace [regex ' Italic$'] ''] nameFont font FAMILY : para.family + ' ' + [para.style.replace [regex ' Italic$'] '']
nameFont 2 : if [[regex ' Italic$'].test para.style] 'Italic' 'Regular' nameFont font STYLE : if [[regex ' Italic$'].test para.style] 'Italic' 'Regular'
nameFont 3 "\(para.family) \(para.style) \(para.version) (\(para.codename))" # Unique Name nameFont font UNIQUE_NAME "\(para.family) \(para.style) \(para.version) (\(para.codename))" # Unique Name
nameFont 5 para.version # Version
local fontfullName : if (para.style != 'Regular') (para.family + ' ' + para.style) para.family local fontfullName : if (para.style != 'Regular') (para.family + ' ' + para.style) para.family
nameFont 4 fontfullName # Full Name nameFont font FULL_NAME fontfullName # Full Name
nameFont 6 : fontfullName.replace [regex ' ' 'g'] '-' # Postscript nameFont font POSTSCRIPT : fontfullName.replace [regex ' ' 'g'] '-' # Postscript
nameFont 0 para.copyright # Copyright nameFont font VERSION para.version # Version
# nameFont 7 para.trademark # Trademark
nameFont 8 para.manufacturer # Manufacturer nameFont font COPYRIGHT para.copyright # Copyright
nameFont 9 para.designer # Designer # nameFont font TRADEMARK para.trademark # Trademark
nameFont 10 para.description # Description nameFont font MANUFACTURER para.manufacturer # Manufacturer
nameFont 13 para.licence # License nameFont font DESIGNER para.designer # Designer
nameFont font DESCRIPTION para.description # Description
nameFont font LICENCE para.licence # Licence
set font.name : font.name.sort : lambda [a b] : begin set font.name : font.name.sort : lambda [a b] : begin
if (a.platformID != b.platformID) : return : a.platformID - b.platformID if (a.platformID != b.platformID) : return : a.platformID - b.platformID