summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/publ-tra.mkiv
blob: 6ef86ca5944af98c9524e4942e89ac5fb2626493 (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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
%D \module
%D   [       file=publ-tra,
%D        version=2013.12.24,
%D          title=\CONTEXT\ Publication Support,
%D       subtitle=Tracing,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

% todo: make this a runtime module
% todo: use the module interface

\writestatus{loading}{ConTeXt Publication Support / Tracing}

\registerctxluafile{publ-tra}{1.001}

\unprotect

\unexpanded\def\showbtxdatasetfields      {\dosingleempty\publ_show_dataset_fields}
\unexpanded\def\showbtxdatasetcompleteness{\dosingleempty\publ_show_dataset_completeness}
\unexpanded\def\showbtxdatasetauthors     {\dosingleempty\publ_show_dataset_authors}
\unexpanded\def\showbtxhashedauthors      {\dosingleempty\publ_show_hashed_authors}
\unexpanded\def\showbtxfields             {\dosingleempty\publ_show_fields}
\unexpanded\def\showbtxtables             {\dosingleempty\publ_show_tables}

\def\publ_show_dataset_whatever#1[#2]%
  {\begingroup
   \letdummyparameter\c!specification\currentbtxspecification
   \setdummyparameter\c!dataset      {\currentbtxdataset}%
   \letdummyparameter\c!field        \empty
   \iffirstargument
     \doifelseassignment{#2}
       {\getdummyparameters[#2]}%
       {\setdummyparameter\c!dataset{#2}}%
   \else
     \getdummyparameters[#2]%
   \fi
   \ctxcommand{#1{
      dataset       = "\dummyparameter\c!dataset",
      specification = "\dummyparameter\c!specification",
      field         = "\dummyparameter\c!field",
   }}%
   \endgroup}

\def\publ_show_dataset_fields      {\publ_show_dataset_whatever{showbtxdatasetfields}}
\def\publ_show_dataset_completeness{\publ_show_dataset_whatever{showbtxdatasetcompleteness}}
\def\publ_show_dataset_authors     {\publ_show_dataset_whatever{showbtxdatasetauthors}}

\def\publ_show_fields[#1]%
  {\begingroup
   \setdummyparameter\c!rotation{90}%
   \doifelseassignment{#1}%
     {\letdummyparameter\c!specification\currentbtxspecification
      \getdummyparameters[#1]}%
     {\doifelsenothing{#1}%
        {\letdummyparameter\c!specification\currentbtxspecification}%
        {\setdummyparameter\c!specification{#1}}}%
   \ctxcommand{showbtxfields{
      rotation      = "\dummyparameter\c!rotation",
      specification = "\dummyparameter\c!specification"
   }}%
   \endgroup}

\def\publ_show_tables[#1]%
  {\begingroup
   \ctxcommand{showbtxtables{}}%
   \endgroup}

\def\publ_show_hashed_authors[#1]%
  {\ctxcommand{showbtxhashedauthors{}}}

\protect

\continueifinputfile{publ-tra.mkiv}

\starttext

    \showbtxfields[rotation=85] \page
    \showbtxfields[rotation=90] \page

    \showbtxtables \page

\stoptext