diff options
author | Hans Hagen <pragma@wxs.nl> | 2020-07-30 17:51:33 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2020-07-30 17:51:33 +0200 |
commit | 4619c6e66ef47e8e4953142a5c65467a6b0a2c01 (patch) | |
tree | 68b96931ee0c1373695ef0a0f85d1c6433febc45 /tex/context/base/mkiv/mtx-context-meaning.tex | |
parent | 54af717a5c864e61d2ccd773457af149a90d900a (diff) | |
download | context-4619c6e66ef47e8e4953142a5c65467a6b0a2c01.tar.gz |
2020-07-30 16:52:00
Diffstat (limited to 'tex/context/base/mkiv/mtx-context-meaning.tex')
-rw-r--r-- | tex/context/base/mkiv/mtx-context-meaning.tex | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/tex/context/base/mkiv/mtx-context-meaning.tex b/tex/context/base/mkiv/mtx-context-meaning.tex index 88b81ef04..2ec66780e 100644 --- a/tex/context/base/mkiv/mtx-context-meaning.tex +++ b/tex/context/base/mkiv/mtx-context-meaning.tex @@ -31,19 +31,31 @@ \setupbodyfont [dejavu] -\def\showmeaning#1% +\unexpanded\def\ShowMeaning#1% {\ctxlua{logs.pushtarget("both")}% \writestatus{meaning}{\strippedcsname#1}% \writestring{}% \writestring{\expandafter\meaning\begincsname#1\endcsname}% \ctxlua{logs.poptarget()}} +\unexpanded\def\ShowTokens#1% + {\ctxlua{logs.pushtarget("both")}% + \writestatus{tokens}{\strippedcsname#1}% + \writestring{}% + \ifcase\contextlmtxmode + \writestring{only supported in lmtx}% + \else + \expandafter\showluatokens\begincsname#1\endcsname + \fi + \ctxlua{logs.poptarget()}} + \starttext \usemodule[setups-macros] \startluacode local h = tex.hashtokens() + local t = environment.arguments.tokens local function showmeaning(str) local h = interfaces.macros.collect(str) @@ -54,7 +66,11 @@ local hi = h[i] context.type(hi) context.par() - context.showmeaning(hi) + if t then + context.ShowTokens(hi) + else + context.ShowMeaning(hi) + end end context.page() end |