Source Browser ?

1%D \module
2%D   [       file=publ-tra,
3%D        version=2013.12.24,
4%D          title=\CONTEXT\ Publication Support,
5%D       subtitle=Tracing,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14% todo: make this a runtime module
15% todo: use the module interface
16
17\writestatus{loading}{ConTeXt Publication Support / Tracing}
18
19\registerctxluafile{publ-tra}{}
20
21\unprotect
22
23\permanent\protected\gdef\showbtxdatasetfields      {\publ_show_dataset_whatever{showbtxdatasetfields}}
24\permanent\protected\gdef\showbtxdatasetcompleteness{\publ_show_dataset_whatever{showbtxdatasetcompleteness}}
25\permanent\protected\gdef\showbtxdatasetauthors     {\publ_show_dataset_whatever{showbtxdatasetauthors}}
26
\tolerant\gdef\publ_show_dataset_whatever#1[#2]%
28  {\begingroup
29   \letdummyparameter  \c!specification\currentbtxspecification
30   \setdummyparameter  \c!dataset      {\currentbtxdataset}%
31   \resetdummyparameter\c!field
32   \ifparameter#2\or
33     \ifhastok={#2}%
34       \getdummyparameters[#2]%
35     \else
36       \setdummyparameter\c!dataset{#2}%
37     \fi
38   \fi
39   \ctxcommand{#1{
40      dataset       = "\dummyparameter\c!dataset",
41      specification = "\dummyparameter\c!specification",
42      field         = "\dummyparameter\c!field",
43   }}%
44   \endgroup}
45
\permanent\tolerant\protected\gdef\showbtxfields[#1]%
47  {\begingroup
48   \setdummyparameter\c!rotation{90}%
49   \ifparameter#1\or
50     \ifhastok={#1}%
51       \letdummyparameter\c!specification\currentbtxspecification
52       \getdummyparameters[#1]%
53     \else
54       \setdummyparameter\c!specification{#1}%
55     \fi
56   \else
57     \letdummyparameter\c!specification\currentbtxspecification
58   \fi
59   \ctxcommand{showbtxfields{
60      rotation      = "\dummyparameter\c!rotation",
61      specification = "\dummyparameter\c!specification"
62   }}%
63   \endgroup}
64
\permanent\tolerant\protected\gdef\showbtxtables[#1]%
66  {\begingroup
67   \ctxcommand{showbtxtables{}}%
68   \endgroup}
69
\permanent\tolerant\protected\gdef\showbtxhashedauthors[#1]%
71  {\ctxcommand{showbtxhashedauthors{}}}
72
73\protect
74
75\continueifinputfile{s-publications-show.mkxl}
76
77\starttext
78
79    \showbtxfields[rotation=85] \page
80    \showbtxfields[rotation=90] \page
81
82    \showbtxtables \page
83
84\stoptext
85