blob: b78951779b1d2ba5dcc43dca79b821838960be7d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
%% luakeys-debug.tex
%% Copyright 2021-2022 Josef Friedrich
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3c
% of this license or (at your option) any later version.
% The latest version of this license is in
% http://www.latex-project.org/lppl.txt
% and version 1.3c or later is part of all distributions of LaTeX
% version 2008/05/04 or later.
%
% This work has the LPPL maintenance status `maintained'.
%
% The Current Maintainer of this work is Josef Friedrich.
%
% This work consists of the files luakeys.lua, luakeys.sty, luakeys.tex
% luakeys-debug.sty and luakeys-debug.tex.
\directlua
{
luakeys = require('luakeys')
}
\def\luakeysdebug%
{%
\directlua%
{
local oarg = luakeys.utils.scan_oarg()
local marg = token.scan_argument(false)
local opts
if oarg then
opts = luakeys.parse(oarg, { format_keys = { 'snake', 'lower' } })
end
local result = luakeys.parse(marg, opts)
luakeys.debug(result)
tex.print(
'{' ..
'\string\\tt' ..
'\string\\parindent=0pt' ..
luakeys.stringify(result, true) ..
'}'
)
}%
}
|