diff options
author | Hans Hagen <pragma@wxs.nl> | 2009-11-18 21:51:00 +0100 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2009-11-18 21:51:00 +0100 |
commit | b309379ef546b7fa819f493fa3cb1dc559d4c3b8 (patch) | |
tree | f7244cebdc52206c3a35767ed9eb834dc901313b /tex/context/base/font-ini.mkiv | |
parent | 9cf4a9e0a6642da57b94730bf7104335735a7ace (diff) | |
download | context-b309379ef546b7fa819f493fa3cb1dc559d4c3b8.tar.gz |
beta 2009.11.18 21:51
Diffstat (limited to 'tex/context/base/font-ini.mkiv')
-rw-r--r-- | tex/context/base/font-ini.mkiv | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tex/context/base/font-ini.mkiv b/tex/context/base/font-ini.mkiv index 3ce821a39..e36485319 100644 --- a/tex/context/base/font-ini.mkiv +++ b/tex/context/base/font-ini.mkiv @@ -4010,6 +4010,28 @@ \def\showchardata#1{\ctxlua{fonts.show_char_data("#1")}} \def\showfontdata {\ctxlua{fonts.show_font_parameters()}} +%D some low level helpers +%D +%D \starttyping +%D \def\TestLookup#1% +%D {pattern: #1, found: \dolookupnoffound +%D \blank +%D \dolookupfontbyspec{#1} +%D \dorecurse {\dolookupnoffound} {% +%D \recurselevel:~\dolookupgetkeyofindex{fontname}{\recurselevel}\quad +%D }% +%D \blank} +%D +%D \TestLookup{familyname=helveticaneue} +%D \TestLookup{familyname=helveticaneue,weight=bold} +%D \TestLookup{familyname=helveticaneue,weight=bold,style=italic} +%D \stoptyping + +\def\dolookupfontbyspec #1{\ctxlua{fonts.names.lookup("#1")}} +\def\dolookupnoffound {\ctxlua{tex.write(fonts.names.noflookups())}} +\def\dolookupgetkeyofindex#1#2{\ctxlua{tex.write(fonts.names.getlookupkey("#1",#2))}} +\def\dolookupgetkey #1{\ctxlua{tex.write(fonts.names.getlookupkey("#1"))}} + \protect \endinput % \startluacode |