1
2
3
4
5
6
7
8
9
10
11
12
13
14\writestatus{loading}{ConTeXt Structure Macros Automatic Levels}
15
16
17
18
19
20
21
22\registerctxluafile{strclev}{}
23
24\unprotect
25
26\permanent\tolerant\protected\def\definesectionlevels[#category]#spacer[#list]
27 {\clf_definesectionlevels{#category}{#list}}
28
29\permanent\tolerant\protected\def\startsectionlevel[#category]
30 {\doifelseassignment{#category}
31 {\clf_startsectionlevel\plusone{\v!default}{\currentnamedsection}[#category]}
32 {\clf_startsectionlevel\plusone {#category}{\currentnamedsection}}}
33
34\permanent\protected\def\stopsectionlevel
35 {\clf_stopsectionlevel}
36
37\permanent\tolerant\protected\def\startsubjectlevel[#category]
38 {\doifelseassignment{#category}
39 {\clf_startsectionlevel\plustwo{\v!default}{\currentnamedsection}[#category]}
40 {\clf_startsectionlevel\plustwo {#category}{\currentnamedsection}}}
41
42\permanent\protected\def\stopsubjectlevel
43 {\clf_stopsectionlevel}
44
45\permanent\tolerant\protected\def\nostarthead[#category]#spacer[#S#settings]#spacer[#S#userdata]
46 {\blank
47 \noindentation{\tttf[start missing section level #category]}
48 \blank}
49
50\permanent\tolerant\protected\def\nostophead[#category]
51 {\blank
52 \noindentation{\tttf[stop missing section level #category]}
53 \blank}
54
55\definesectionlevels
56 [\v!default]
57 [{\v!chapter,\v!title},
58 {\v!section,\v!subject},
59 {\v!subsection,\v!subsubject},
60 {\v!subsubsection,\v!subsubsubject},
61 {\v!subsubsubsection,\v!subsubsubject},
62 {\v!subsubsubsubsection,\v!subsubsubject}]
63
64\aliased\let\definestructurelevels\definesectionlevels
65\aliased\let\startstructurelevel \startsectionlevel
66\aliased\let\stopstructurelevel \stopsectionlevel
67
68\protect \endinput
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99 |