diff options
author | Hans Hagen <pragma@wxs.nl> | 2021-02-05 18:08:41 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-02-05 18:08:41 +0100 |
commit | 5a7dd5d18ced4a73b05467f208d4c4b0d1afebc0 (patch) | |
tree | 7138a651a94fb013e584b080c50c4681321617cc /tex/context/modules/mkxl | |
parent | ab4fc27d8b1541b491621e07ab1f40f30aaf50ae (diff) | |
download | context-5a7dd5d18ced4a73b05467f208d4c4b0d1afebc0.tar.gz |
2021-02-05 17:44:00
Diffstat (limited to 'tex/context/modules/mkxl')
-rw-r--r-- | tex/context/modules/mkxl/s-fonts-show.mkxl | 15 | ||||
-rw-r--r-- | tex/context/modules/mkxl/s-symbols-show.mkxl | 16 |
2 files changed, 16 insertions, 15 deletions
diff --git a/tex/context/modules/mkxl/s-fonts-show.mkxl b/tex/context/modules/mkxl/s-fonts-show.mkxl index 4b6fbf998..42b5af125 100644 --- a/tex/context/modules/mkxl/s-fonts-show.mkxl +++ b/tex/context/modules/mkxl/s-fonts-show.mkxl @@ -92,11 +92,8 @@ {\bgroup \iftok{#1}\emptytoks\else \definedfont[#1]% - \ifdim2.5\emwidth>.05\hsize - \tx - \ifdim2.5\emwidth>.05\hsize - \txx - \fi + \ifdim40\emwidth>\hsize + \glyphscale750\relax \fi \fi \integerdef\c_module_fonts_font_id\fontid\font @@ -126,7 +123,7 @@ \scratchdimenone 2.5\emwidth \scratchdimentwo 2.4\emwidth \scratchdimenthree2.3\emwidth - \edef\charplane{\number#2}% + \scratchcounterfour#2\relax \forgetall \startoverlay % easier in cld {\vbox @@ -177,8 +174,8 @@ \hpack {\dostepwiserecurse\zerocount{15}\plusone {\scratchcountertwo \recurselevel - \scratchcounter \numexpr\scratchcounterone*16+\scratchcountertwo\relax - \scratchcounterthree\numexpr\charplane*256+\scratchcounter\relax + \scratchcounterthree\numexpr\scratchcounterone*16+\scratchcountertwo\relax + \scratchcounterthree\numexpr\scratchcounterfour*256+\scratchcounterthree\relax \iffontchar\font\scratchcounterthree \setbox\scratchbox\ruledhpack{\char\scratchcounterthree}% \bgroup @@ -197,7 +194,7 @@ \nointerlineskip \vskip2\points % the \noexpand before \blank is needed for non etex - \edef\theshowfontspecs{name: {\noexpand\black\fontname\font}\quad plane: \charplane\enspace"\hexnumber\charplane}% + \edef\theshowfontspecs{name: {\noexpand\black\fontname\font}\quad plane: \the\scratchcounterfour\enspace"\hexnumber\scratchcounterfour}% \tf % also sets em \hbox to 40\emwidth{\blue\hfill\tinyfont\setstrut\strut\theshowfontspecs} \egroup diff --git a/tex/context/modules/mkxl/s-symbols-show.mkxl b/tex/context/modules/mkxl/s-symbols-show.mkxl index a2cda24d1..37d42fe00 100644 --- a/tex/context/modules/mkxl/s-symbols-show.mkxl +++ b/tex/context/modules/mkxl/s-symbols-show.mkxl @@ -11,6 +11,8 @@ %C therefore copyrighted by \PRAGMA. See mreadme.pdf for %C details. +% todo: implementor + \startluacode function commands.showsymbolset(collection,symbols,fontid) if type(symbols) == "string" then @@ -43,24 +45,26 @@ end local detail = defined and byname context.start() - context.forcesymbolset { collection } + context.setupsymbolset { collection } context.starttabulate { detail and "|lT|l|l|lT|" or "|lT|l|l|"} for symbol, how in table.sortedhash(list) do - context.NC() if detail and how then - context.bold(symbol) + context.BC() else - context(symbol) + context.NC() end + context(symbol) context.NC() context.symbol(symbol) context.NC() context.framed(options,context.nested.symbol(symbol)) - context.NC() if detail and how then - context.bold("defined") + context.BC() + context("defined") + else context.NC() end + context.NC() context.NR() end context.stoptabulate() |