diff options
Diffstat (limited to 'tex/context/base/s-fonts-goodies.lua')
-rw-r--r-- | tex/context/base/s-fonts-goodies.lua | 234 |
1 files changed, 117 insertions, 117 deletions
diff --git a/tex/context/base/s-fonts-goodies.lua b/tex/context/base/s-fonts-goodies.lua index 381fc45ea..5b83760d7 100644 --- a/tex/context/base/s-fonts-goodies.lua +++ b/tex/context/base/s-fonts-goodies.lua @@ -1,117 +1,117 @@ -if not modules then modules = { } end modules['s-fonts-goodies'] = { - version = 1.001, - comment = "companion to s-fonts-goodies.mkiv", - author = "Hans Hagen, PRAGMA-ADE, Hasselt NL", - copyright = "PRAGMA ADE / ConTeXt Development Team", - license = "see context related readme files" -} - -moduledata.fonts = moduledata.fonts or { } -moduledata.fonts.goodies = moduledata.fonts.goodies or { } - -local NC, NR, HL = context.NC, context.NR, context.HL - -local function initialized(specification) - specification = interfaces.checkedspecification(specification) - local name = specification.name - if name then - local goodies = fonts.goodies.load(name) - if goodies then - return specification, goodies - end - end -end - -function moduledata.fonts.goodies.showstylistics(specification) - local specification, goodies = initialized(specification) - if goodies then - local stylistics = goodies.stylistics - if stylistics then - context.starttabulate { "|Tl|Tpl|" } - HL() - NC() context.bold("feature") - NC() context.bold("meaning") - NC() NR() - HL() - for feature, meaning in table.sortedpairs(stylistics) do - NC() context(feature) - NC() context(string.lower(meaning)) - NC() NR() - end - HL() - context.stoptabulate() - end - end -end - -function moduledata.fonts.goodies.showfeaturesets(specification) - local specification, goodies = initialized(specification) - if goodies then - local featuresets = goodies.featuresets - if featuresets then - context.starttabulate { "|Tl|Tpl|" } - HL() - NC() context.bold("featureset") - NC() context.bold("definitions") - NC() NR() - HL() - for featureset, definitions in table.sortedpairs(featuresets) do - NC() context.type(featureset) NC() - for k, v in table.sortedpairs(definitions) do - context("%s=%S",k,v) - context.quad() - end - NC() NR() - end - HL() - context.stoptabulate() - end - end -end - -function moduledata.fonts.goodies.showcolorschemes(specification) - local specification, goodies = initialized(specification) - if goodies then - local colorschemes = goodies.colorschemes - if colorschemes then - context.starttabulate { "|Tl|Tpl|" } - HL() - NC() context.bold("colorscheme") - NC() context.bold("numbers") - NC() NR() - HL() - for colorscheme, numbers in table.sortedpairs(colorschemes) do - NC() context.type(colorscheme) NC() - for i=1,#numbers do - context(i) - context.quad() - end - NC() NR() - end - HL() - context.stoptabulate() - end - end -end - -function moduledata.fonts.goodies.showfiles(specification) - local specification, goodies = initialized(specification) - if goodies then - local files = goodies.files - if files and files.list then - for filename, specification in table.sortedpairs(files.list) do - context.start() - context.dontleavehmode() - context.definedfont{ filename .. "*default" } - context("%s-%s-%s-%s-%s", - specification.name or files.name, - specification.weight or "normal", - specification.style or "normal", - specification.width or "normal", - specification.variant or "normal") - context.par() - context.stop() - end - end - end -end +if not modules then modules = { } end modules['s-fonts-goodies'] = {
+ version = 1.001,
+ comment = "companion to s-fonts-goodies.mkiv",
+ author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+ copyright = "PRAGMA ADE / ConTeXt Development Team",
+ license = "see context related readme files"
+}
+
+moduledata.fonts = moduledata.fonts or { }
+moduledata.fonts.goodies = moduledata.fonts.goodies or { }
+
+local NC, NR, HL = context.NC, context.NR, context.HL
+
+local function initialized(specification)
+ specification = interfaces.checkedspecification(specification)
+ local name = specification.name
+ if name then
+ local goodies = fonts.goodies.load(name)
+ if goodies then
+ return specification, goodies
+ end
+ end
+end
+
+function moduledata.fonts.goodies.showstylistics(specification)
+ local specification, goodies = initialized(specification)
+ if goodies then
+ local stylistics = goodies.stylistics
+ if stylistics then
+ context.starttabulate { "|Tl|Tpl|" }
+ HL()
+ NC() context.bold("feature")
+ NC() context.bold("meaning")
+ NC() NR()
+ HL()
+ for feature, meaning in table.sortedpairs(stylistics) do
+ NC() context(feature)
+ NC() context(string.lower(meaning))
+ NC() NR()
+ end
+ HL()
+ context.stoptabulate()
+ end
+ end
+end
+
+function moduledata.fonts.goodies.showfeaturesets(specification)
+ local specification, goodies = initialized(specification)
+ if goodies then
+ local featuresets = goodies.featuresets
+ if featuresets then
+ context.starttabulate { "|Tl|Tpl|" }
+ HL()
+ NC() context.bold("featureset")
+ NC() context.bold("definitions")
+ NC() NR()
+ HL()
+ for featureset, definitions in table.sortedpairs(featuresets) do
+ NC() context.type(featureset) NC()
+ for k, v in table.sortedpairs(definitions) do
+ context("%s=%S",k,v)
+ context.quad()
+ end
+ NC() NR()
+ end
+ HL()
+ context.stoptabulate()
+ end
+ end
+end
+
+function moduledata.fonts.goodies.showcolorschemes(specification)
+ local specification, goodies = initialized(specification)
+ if goodies then
+ local colorschemes = goodies.colorschemes
+ if colorschemes then
+ context.starttabulate { "|Tl|Tpl|" }
+ HL()
+ NC() context.bold("colorscheme")
+ NC() context.bold("numbers")
+ NC() NR()
+ HL()
+ for colorscheme, numbers in table.sortedpairs(colorschemes) do
+ NC() context.type(colorscheme) NC()
+ for i=1,#numbers do
+ context(i)
+ context.quad()
+ end
+ NC() NR()
+ end
+ HL()
+ context.stoptabulate()
+ end
+ end
+end
+
+function moduledata.fonts.goodies.showfiles(specification)
+ local specification, goodies = initialized(specification)
+ if goodies then
+ local files = goodies.files
+ if files and files.list then
+ for filename, specification in table.sortedpairs(files.list) do
+ context.start()
+ context.dontleavehmode()
+ context.definedfont{ filename .. "*default" }
+ context("%s-%s-%s-%s-%s",
+ specification.name or files.name,
+ specification.weight or "normal",
+ specification.style or "normal",
+ specification.width or "normal",
+ specification.variant or "normal")
+ context.par()
+ context.stop()
+ end
+ end
+ end
+end
|