Source Browser ?

1
%D \module
2
%D   [       file=strc-pag,
3
%D        version=2008.10.20,
4
%D          title=\CONTEXT\ Structure Macros,
5
%D       subtitle=Pagenumbering,
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
\writestatus
{
loading
}
{
ConTeXt
 
Structure
 
Macros
 
/
 
Pagenumbering
}
15
16
\registerctxluafile
{
strc
-
pag
}
{
}
17
18
\unprotect
19
20
\startcontextdefinitioncode
21
22
% Allocation:
23
24
\ifdefined
\realpageno
  
\else
 
\permanent
\countdef
\realpageno
 
\zerocount
  
\fi
 
\realpageno
 
\plusone
25
\ifdefined
\userpageno
  
\else
 
\permanent
\countdef
\userpageno
 
\plusone
    
\fi
 
\userpageno
 
\plusone
26
\ifdefined
\subpageno
   
\else
 
\permanent
\countdef
\subpageno
  
\plustwo
    
\fi
 
\subpageno
  
\plusone
 
% was \zerocount but that doesn't work well with bytext
27
\ifdefined
\arrangeno
   
\else
 
\permanent
\countdef
\arrangeno
  
\plusthree
  
\fi
 
\arrangeno
  
\zerocount
 
% !
28
\ifdefined
\pagenoshift
 
\else
 
\permanent
\countdef
\pagenoshift
\plusfour
   
\fi
 
\pagenoshift
\zerocount
 
% !
29
\ifdefined
\lastpageno
  
\else
 
\permanent
\countdef
\lastpageno
 
\plusfive
   
\fi
 
\lastpageno
 
\zerocount
 
% !
30
31
\ifdefined
\pageno
 
\else
 
\aliased
\let
\pageno
\userpageno
 
\fi
32
33
\permanent
\def
\realfolio
{
\the
\realpageno
}
34
\permanent
\def
\userfolio
{
\the
\userpageno
}
35
\permanent
\def
\subfolio
 
{
\the
\subpageno
 
}
36
\permanent
\def
\lastfolio
{
\the
\lastpageno
}
37
38
\newtoks
\everyinitializepagecounters
39
40
\permanent
\protected
\def
\initializepagecounters
41  
{
\the
\everyinitializepagecounters
}
42
43
\appendtoks
44    
\initializepagecounters
45
\to
 
\everyjob
46
47
% Page numbers are kind of independent of each other and therefore they
48
% all get their own counter. After all, it's easier to combine them in
49
% a pseudo counterset than to deal with a complex set itself.
50
51
% \defineprefixset   [mine][section-1,section-2]
52
% \defineseparatorset[mine][:]
53
%
54
% \setupuserpagenumber
55
%   [way=bypart,
56
%    prefix=yes,
57
%    prefixset=mine,
58
%    prefixseparatorset=mine]
59
60
% \defineconversionset[frontpart:pagenumber][][romannumerals]
61
% \defineconversionset[bodypart:pagenumber] [][numbers]
62
%
63
% \setupuserpagenumber[way=byblock]
64
% \setupuserpagenumber[way=bychapter]
65
% \setupuserpagenumber[numberconversionset=pagenumber]
66
%
67
% \starttext
68
%     \startfrontmatter
69
%         \completecontent[criterium=all]
70
%         \chapter{tufte} \section{one} \input tufte \page \section{two} \input tufte \page
71
%         \chapter{tufte} \section{one} \input tufte \page \section{two} \input tufte \page
72
%     \stopfrontmatter
73
%     \startbodymatter
74
%         \chapter{knuth} \section{one} \input knuth \page \section{two} \input knuth \page \section{three} \input knuth \page
75
%         \chapter{knuth} \section{one} \input knuth \page \section{two} \input knuth \page \section{three} \input knuth \page
76
%     \stopbodymatter
77
% \stoptext
78
79
\definecounter
[
\s!realpage
]
[
\c!prefix
=
\v!no
,
\c!start
=
\plusone
,
\c!prefixsegments
=
,
\s!counter
=
realpageno
,
\c!method
=
\v!page
]
80
\definecounter
[
\s!userpage
]
[
\c!prefix
=
\v!no
,
\c!start
=
\plusone
,
\c!prefixsegments
=
,
\s!counter
=
userpageno
,
\c!method
=
\v!page
]
81
\definecounter
[
\s!subpage
]
 
[
\c!prefix
=
\v!no
,
\c!start
=
\plusone
,
\c!prefixsegments
=
,
\s!counter
=
subpageno
,
 
\c!method
=
\v!page
]
82
83
\newtoks
\everysetuprealpagenumber
 
% todo: set state: none, start, stop, reset
84
\newtoks
\everysetupuserpagenumber
 
% todo: set state: none, start, stop, reset
85
\newtoks
\everysetupsubpagenumber
  
% todo: set state: none, start, stop, reset
86
87
\let
\m_strc_pagenumbers_state_old
\zerocount
88
\let
\m_strc_pagenumbers_state_new
\zerocount
89
90
\def
\strc_pagenumbers_save_state
#
1
{
\edef
\m_strc_pagenumbers_state_old
{
\namedcounterparameter
#
1
\c!state
}
}
91
92
\permanent
\tolerant
\protected
\def
\setuprealpagenumber
[
#
1
]
{
\strc_pagenumbers_save_state
\s!realpage
\setupcounter
[
\s!realpage
]
[
#
1
]
\the
\everysetuprealpagenumber
}
93
\permanent
\tolerant
\protected
\def
\setupuserpagenumber
[
#
1
]
{
\strc_pagenumbers_save_state
\s!userpage
\setupcounter
[
\s!userpage
]
[
#
1
]
\the
\everysetupuserpagenumber
}
94
\permanent
\tolerant
\protected
\def
\setupsubpagenumber
 
[
#
1
]
{
\strc_pagenumbers_save_state
\s!subpage
 
\setupcounter
[
\s!subpage
 
]
[
#
1
]
\the
\everysetupsubpagenumber
 
}
95
96
\permanent
\protected
\def
\resetrealpagenumber
 
{
}
 
% not permitted
97
\permanent
\protected
\def
\resetuserpagenumber
 
{
\strc_counters_reset
\s!userpage
}
98
\permanent
\protected
\def
\resetsubpagenumber
  
{
\strc_counters_reset
\s!subpage
}
99
100
\appendtoks
101    
\strc_counters_set
\s!realpage
\realpageno
102    
\strc_counters_set
\s!userpage
\userpageno
103    
\strc_counters_set
\s!subpage
 
\subpageno
104    
\lastpageno
\lastcountervalue
[
\s!realpage
]
\relax
105
\to
 
\everyinitializepagecounters
106
\aliased
\let
\setuppagenumber
\setupuserpagenumber
108
\aliased
\let
\resetpagenumber
\resetuserpagenumber
109
110
% invisible =
111
112
\def
\strc_pagenumbers_page_state_save
 
% \normalexpanded?
113  
{
\clf_savepagedata
114     
{
115        
prefix
        
{
\namedcounterparameter
\s!userpage
\c!prefix
}
116        
separatorset
  
{
\namedcounterparameter
\s!userpage
\c!prefixseparatorset
}
117        
conversion
    
{
\namedcounterparameter
\s!userpage
\c!prefixconversion
}
118        
conversionset
 
{
\namedcounterparameter
\s!userpage
\c!prefixconversionset
}
119        
set
           
{
\namedcounterparameter
\s!userpage
\c!prefixset
}
120        
segments
      
{
\namedcounterparameter
\s!userpage
\c!prefixsegments
}
121        
connector
     
{
\namedcounterparameter
\s!userpage
\c!prefixconnector
}
122     
}
{
123        
conversion
    
{
\namedcounterparameter
\s!userpage
\c!numberconversion
}
124        
conversionset
 
{
\namedcounterparameter
\s!userpage
\c!numberconversionset
}
125        
starter
       
{
\namedcounterparameter
\s!userpage
\c!numberstarter
}
126        
stopper
       
{
\namedcounterparameter
\s!userpage
\c!numberstopper
}
127     
}
{
128        
viewerprefix
  
{
\namedcounterparameter
\s!userpage
\c!viewerprefix
}
129        
state
         
{
\namedcounterparameter
\s!userpage
\c!state
}
130     
}
%
131   
\relax
}
132
133
\prependtoks
134    
\strc_pagenumbers_page_state_save
135
\to
 
\everyshipout
136
137
\installcorenamespace
{
pagestatestack
}
 
% no level yet
138
139
\protected
\def
\strc_pagenumbers_page_state_push
{
\xdefcsname
\??pagestatestack
\c!state
\endcsname
{
\namedcounterparameter
\s!userpage
\c!state
}
}
\protected
\def
\strc_pagenumbers_page_state_pop
 
{
\normalexpanded
{
\setuppagenumber
[
\c!state
=
\csname
\??pagestatestack
\c!state
\endcsname
]
}
}
141
\setuppagenumber
143  
[
\c!way
=
\v!by
\v!text
,
144   
\c!prefix
=
\v!no
,
145   
\c!prefixset
=
\v!part
,
146   
\c!prefixconnector
=
\endash
,
147   
\c!state
=
\v!start
]
148
149
\setupsubpagenumber
150  
[
\c!way
=
\v!by
\v!part
,
151   
\c!state
=
\v!start
]
 
% was stop but start looks better in logging
152
153
% Counters
154
155
%permanent\def\firstrealpagenumber{\convertedcounter[\s!realpage][\c!type=\v!first]}
156
%permanent\def\firstuserpagenumber{\convertedcounter[\s!userpage][\c!type=\v!first]}
157
%permanent\def\firstsubpagenumber {\convertedcounter[\s!subpage ][\c!type=\v!first]}
158
159
%permanent\def\lastrealpagenumber {\convertedcounter[\s!realpage][\c!type=\v!last]}
160
%permanent\def\lastuserpagenumber {\convertedcounter[\s!userpage][\c!type=\v!last]}
161
%permanent\def\lastsubpagenumber  {\convertedcounter[\s!subpage ][\c!type=\v!last]}
162
163
%permanent\def\prevrealpagenumber {\convertedcounter[\s!realpage][\c!type=\v!previous]}
164
%permanent\def\prevuserpagenumber {\convertedcounter[\s!userpage][\c!type=\v!previous]}
165
%permanent\def\prevsubpagenumber  {\convertedcounter[\s!subpage ][\c!type=\v!previous]}
166
167
%permanent\def\nextrealpagenumber {\convertedcounter[\s!realpage][\c!type=\v!next]}
168
%permanent\def\nextuserpagenumber {\convertedcounter[\s!userpage][\c!type=\v!next]}
169
%permanent\def\nextsubpagenumber  {\convertedcounter[\s!subpage ][\c!type=\v!next]}
170
171
\permanent
\def
\firstrealpage
{
\strc_counters_first
\s!realpage
}
172
\permanent
\def
\firstuserpage
{
\strc_counters_first
\s!userpage
}
173
\permanent
\def
\firstsubpage
 
{
\strc_counters_first
\s!subpage
 
}
174
175
\permanent
\def
\prevrealpage
 
{
\strc_counters_prev
 
\s!realpage
}
176
\permanent
\def
\prevuserpage
 
{
\strc_counters_prev
 
\s!userpage
}
177
\permanent
\def
\prevsubpage
  
{
\strc_counters_prev
 
\s!subpage
 
}
178
179
\permanent
\def
\nextrealpage
 
{
\strc_counters_next
 
\s!realpage
}
180
\permanent
\def
\nextuserpage
 
{
\strc_counters_next
 
\s!userpage
}
181
\permanent
\def
\nextsubpage
  
{
\strc_counters_next
 
\s!subpage
 
}
182
183
\permanent
\def
\lastrealpage
 
{
\strc_counters_last
 
\s!realpage
}
184
\permanent
\def
\lastuserpage
 
{
\strc_counters_last
 
\s!userpage
}
185
\permanent
\def
\lastsubpage
  
{
\strc_counters_last
 
\s!subpage
 
}
186
187
\aliased
\let
\firstpage
\firstrealpage
188
\aliased
\let
\prevpage
 
\prevrealpage
189
\aliased
\let
\nextpage
 
\nextrealpage
190
\aliased
\let
\lastpage
 
\lastrealpage
191
192
% Compatibility counters:
193
194
\permanent
\def
\nofrealpages
 
{
\lastrealpage
}
 
\permanent
\def
\totalnumberofpages
{
\lastrealpage
}
195
\permanent
\def
\nofuserpages
 
{
\lastuserpage
}
 
\permanent
\def
\lastpagenumber
    
{
\lastuserpage
}
196
\permanent
\def
\nofsubpages
  
{
\lastsubpage
 
}
197
198
% Renderers:
199
200
\permanent
\def
\pagenumber
         
{
\strc_counters_raw
\s!userpage
}
201
\permanent
\def
\prefixedpagenumber
 
{
\directconvertedcounter
\s!userpage
\empty
}
 
% \userpagenumber
202
203
\permanent
\def
\realpagenumber
     
{
\directconvertedcounter
\s!realpage
\empty
}
204
\permanent
\def
\userpagenumber
     
{
\directconvertedcounter
\s!userpage
\empty
}
205
\permanent
\def
\subpagenumber
      
{
\directconvertedcounter
\s!subpage
 
\empty
}
206
207
\permanent
\def
\firstrealpagenumber
{
\directconvertedcounter
\s!realpage
\v!first
}
208
\permanent
\def
\firstuserpagenumber
{
\directconvertedcounter
\s!userpage
\v!first
}
209
\permanent
\def
\firstsubpagenumber
 
{
\directconvertedcounter
\s!subpage
 
\v!first
}
210
211
\permanent
\def
\lastrealpagenumber
 
{
\directconvertedcounter
\s!realpage
\v!last
}
212
\permanent
\def
\lastuserpagenumber
 
{
\directconvertedcounter
\s!userpage
\v!last
}
213
\permanent
\def
\lastsubpagenumber
  
{
\directconvertedcounter
\s!subpage
 
\v!last
}
214
215
\permanent
\def
\prevrealpagenumber
 
{
\directconvertedcounter
\s!realpage
\v!previous
}
216
\permanent
\def
\prevuserpagenumber
 
{
\directconvertedcounter
\s!userpage
\v!previous
}
217
\permanent
\def
\prevsubpagenumber
  
{
\directconvertedcounter
\s!subpage
 
\v!previous
}
218
219
\permanent
\def
\nextrealpagenumber
 
{
\directconvertedcounter
\s!realpage
\v!next
}
220
\permanent
\def
\nextuserpagenumber
 
{
\directconvertedcounter
\s!userpage
\v!next
}
221
\permanent
\def
\nextsubpagenumber
  
{
\directconvertedcounter
\s!subpage
 
\v!next
}
222
223
\protected
\def
\strc_pagenumbers_decrement_counters
 
% only at the end
224   
{
\strc_counters_decrement
\s!realpage
225    
\strc_counters_decrement
\s!userpage
226    
\strc_counters_decrement
\s!subpage
}
227
228
\protected
\def
\strc_pagenumbers_increment_counters
229  
{
\incrementpagenumber
230   
\incrementsubpagenumber
}
231
232
\appendtoks
233    
\strc_pagenumbers_decrement_counters
234
\to
 
\everygoodbye
235
236
\newcount
\c_strc_subpage_first_real
 
\c_strc_subpage_first_real
\plusone
237
238
\appendtoks
239   
\ifcase
\subpageno
\relax
240     
\global
\c_strc_subpage_first_real
\realpageno
241   
\or
242     
\global
\c_strc_subpage_first_real
\realpageno
243   
\fi
244
\to
 
\everybeforepagebody
245
246
\permanent
\def
\therealsubpageno
#
1
% new helper
247  
{
\the
\numexpr
\c_strc_subpage_first_real
+
#
1
+
\minusone
\relax
}
248
249
% Equivalents (compatibility):
250
%
251
% todo: maybe leave lastpage etc lua calls
252
253
\permanent
\def
\realpage
{
\the
\realpageno
}
254
\permanent
\def
\userpage
{
\the
\userpageno
}
255
\permanent
\def
\subpage
 
{
\the
\subpageno
}
256
257
% Hooks:
258
259
\permanent
\def
\currentpage
{
\the
\realpageno
}
% rather useless
260
261
\appendtoks
262    
\ifnum
\realpageno
>
\lastpage
 
\enforced
\glet
\lastpage
\lastrealpage
 
\fi
263
\to
 
\everyinitializepagecounters
264
265
% States:
266
267
\newconditional
\layoutisdoublesided
 
% already defined: \newif\ifdoublesided
268
\newconditional
\layoutissinglesided
 
% already defined: \newif\ifsinglesided
269
270
% Realpage and subpage numbers:
271
272
\permanent
\protected
\def
\setnextrealpageno
{
\global
\realpageno
\strc_counters_incremented
\s!realpage
\relax
}
273
\permanent
\protected
\def
\setnextsubpageno
 
{
\global
\subpageno
 
\strc_counters_incremented
\s!subpage
 
\relax
}
274
275
% Page numbers: (can move to lua) ... inconsistent names
276
277
\installcorenamespace
{
pagenumberinc
}
278
\installcorenamespace
{
pagenumberdec
}
279
280
\protected
\def
\strc_pagenumbers_decrement_userpage
{
\global
\userpageno
\strc_counters_decremented
\s!userpage
\relax
}
281
\protected
\def
\strc_pagenumbers_increment_userpage
{
\global
\userpageno
\strc_counters_incremented
\s!userpage
\relax
}
282
283
\permanent
\protected
\def
\decrementsubpagenumber
{
\global
\subpageno
 
\strc_counters_decremented
\s!subpage
 
\relax
}
284
\permanent
\protected
\def
\incrementsubpagenumber
{
\global
\subpageno
 
\strc_counters_incremented
\s!subpage
 
\relax
}
285
286
\protected
\def
\strc_pagenumbers_synchronize_userpage
{
\global
\c_strc_pagenumbers_state_userpage
\plustwo
}
 
% start and visible
287
288
\permanent
\protected
\def
\decrementpagenumber
{
\csname
\??pagenumberdec
\namedcounterparameter
\s!userpage
\c!state
\endcsname
}
289
\permanent
\protected
\def
\incrementpagenumber
{
\csname
\??pagenumberinc
\namedcounterparameter
\s!userpage
\c!state
\endcsname
}
290
291
\letvalue
{
\??pagenumberdec
\v!start
}
\strc_pagenumbers_decrement_userpage
292
\letvalue
{
\??pagenumberdec
\v!none
 
}
\strc_pagenumbers_decrement_userpage
293
\letvalue
{
\??pagenumberdec
\v!empty
}
\strc_pagenumbers_decrement_userpage
294
295
\letvalue
{
\??pagenumberinc
\v!start
}
\strc_pagenumbers_increment_userpage
296
\letvalue
{
\??pagenumberinc
\v!none
 
}
\strc_pagenumbers_increment_userpage
297
\setvalue
{
\??pagenumberinc
\v!empty
}
{
\strc_pagenumbers_increment_userpage
\strc_pagenumbers_synchronize_userpage
}
298
\letvalue
{
\??pagenumberinc
\v!keep
 
}
\strc_pagenumbers_synchronize_userpage
299
300
% Setup general page numbering
301
302
\installcorenamespace
{
pagenumbering
}
303
304
\installdirectcommandhandler
 
\??pagenumbering
 
{
pagenumbering
}
305
306
% some day ifsinglesided and ifdoublesided will become obsolete
307
308
\newtoks
\everysidedswitch
309
310
\appendtoks
311   
\singlesidedfalse
 
\setfalse
\layoutisdoublesided
312   
\doublesidedfalse
 
\setfalse
\layoutissinglesided
313   
\resetsystemmode
\v!singlesided
314   
\resetsystemmode
\v!doublesided
315   
\processallactionsinset
316     
[
\directpagenumberingparameter
\c!alternative
]
%
317     
[
 
\v!singlesided
=
>
\setsystemmode
\v!singlesided
\singlesidedtrue
\settrue
\layoutissinglesided
,
318       
\v!doublesided
=
>
\setsystemmode
\v!doublesided
\doublesidedtrue
\settrue
\layoutisdoublesided
]
%
319   
\the
\everysidedswitch
320   
\pageduplexmode
321     
\ifsinglesided
322       
\ifdoublesided
\plustwo
\else
\zerocount
\fi
323     
\else
324       
\ifdoublesided
\plusone
\else
\zerocount
\fi
325     
\fi
326   
\page_backgrounds_recalculate
327   
\strc_pagenumbers_set_location
\to
 
\everysetuppagenumbering
329
330
\ifdefined
 
\page_backgrounds_recalculate
 
\else
331    
\let
\page_backgrounds_recalculate
\relax
332
\fi
333
334
\ifdefined
 
\strc_pagenumbers_set_location
 
\else
335    
\let
\strc_pagenumbers_set_location
\relax
336
\fi
337
338
\protected
\def
\strc_pagenumbers_flush_final_page
339  
{
\edef
\p_strc_pagenumbers_page
{
\directpagenumberingparameter
\c!page
}
%
340   
\ifempty
\p_strc_pagenumbers_page
 
\else
341     
\ifx
\p_strc_pagenumbers_page
\v!no
 
\else
342       
\page
[
\p_strc_pagenumbers_page
]
%
343     
\fi
344   
\fi
}
345
346
% The numbered location handler is there because we need to be downward
347
% compatible. So, in fact there can be multiple handlers active at the
348
% same time, but only the current one does something.
349
350
% Rendering:
351
352
\protected
\def
\strc_pagenumbers_place_location
353  
{
\ifnum
\c_strc_pagenumbers_state_userpage
=
\plustwo
354     
\ifnum
\c_strc_pagenumbers_state
=
\plusone
355        
\doif
{
\directpagenumberingparameter
\c!strut
}
\v!yes
\strut
356        
\begingroup
357        
\usepagenumberingstyleandcolor
\c!style
\c!color
358        
\directpagenumberingparameter
\c!command
359          
{
\directpagenumberingparameter
\c!left
360           
\labeltexts
\v!pagenumber
\prefixedpagenumber
361           
\directpagenumberingparameter
\c!right
}
%
362        
\endgroup
363     
\fi
364   
\fi
}
365
366
\permanent
\protected
\def
\completepagenumber
367  
{
\ifnum
\c_strc_pagenumbers_state_userpage
=
\plustwo
368     
\ifnum
\c_strc_pagenumbers_state
=
\plusone
369        
\directpagenumberingparameter
\c!left
370        
\labeltexts
\v!pagenumber
\prefixedpagenumber
371        
\directpagenumberingparameter
\c!right
372     
\fi
373   
\fi
}
374
375
\permanent
\protected
\def
\placepagenumber
376  
{
\ifnum
\c_strc_pagenumbers_state_userpage
=
\plustwo
377     
\ifnum
\c_strc_pagenumbers_state
=
\plusone
378        
\labeltexts
\v!pagenumber
\pagenumber
379     
\fi
380   
\fi
}
381
382
\permanent
\protected
\def
\referencepagenumber
[
#
1
]
%
383  
{
\doifelsenothing
{
#
1
}
{
?
}
{
}
}
384
385
% The numbered location handler is there because we need to be downward
386
% compatible. So, in fact there can be multiple handlers active at the
387
% same time, but only the current one does something.
388
389
\setnewconstant
\c_strc_pagenumbers_state_realpage
\plustwo
 
% counter state : 0=stop, 1=start, 2=start and visible
390
\setnewconstant
\c_strc_pagenumbers_state_userpage
\plustwo
 
% counter state : 0=stop, 1=start, 2=start and visible
391
\setnewconstant
\c_strc_pagenumbers_state_subpage
 
\plustwo
 
% counter state : 0=stop, 1=start, 2=start and visible
392
\setnewconstant
\c_strc_pagenumbers_state
         
\plusone
 
% general number: 0=invisible, 1=visible
393
394
\protected
\def
\strc_pagenumbers_check_state_change
#
1
#
2
%
395  
{
\edef
\m_strc_pagenumbers_state_new
{
\namedcounterparameter
#
1
\c!state
}
%
396   
\ifx
\m_strc_pagenumbers_state_new
\m_strc_pagenumbers_state_old
 
\else
397     
#
2
\ifx
\m_strc_pagenumbers_state_new
\v!start
\plustwo
\else
\zerocount
\fi
398   
\fi
}
399
400
\appendtoks
 
% todo: set state: none, start, stop, reset
401    
\strc_pagenumbers_check_state_change
\s!realpage
\c_strc_pagenumbers_state_realpage
402
\to
 
\everysetuprealpagenumber
403
404
\appendtoks
 
% todo: set state: none, start, stop, reset
405    
\strc_pagenumbers_check_state_change
\s!userpage
\c_strc_pagenumbers_state_userpage
406
\to
 
\everysetupuserpagenumber
407
408
\appendtoks
 
% todo: set state: none, start, stop, reset
409    
\strc_pagenumbers_check_state_change
\s!subpage
\c_strc_pagenumbers_state_subpage
410
\to
 
\everysetupsubpagenumber
411
412
\appendtoks
 
% todo: set state: none, start, stop, reset
413    
\doifelse
{
\directpagenumberingparameter
\c!state
}
\v!start
414      
{
\c_strc_pagenumbers_state
\plusone
  
}
%
415      
{
\c_strc_pagenumbers_state
\zerocount
}
%
\to
 
\everysetuppagenumbering
417
418
% Done
419
420
% \c!way=\v!by\v!part
421
% \c!text=
422
% \v!chapter\v!number=\v!no
423
% \v!part\v!number=\v!yes
424
% \c!numberseparator=--
425
% \c!conversion=\v!numbers
426
\setuppagenumbering
428  
[
\c!alternative
=
\v!singlesided
,
429   
\c!location
=
{
\v!header
,
\v!middle
}
,
430   
\c!width
=
,
 
% in geval van \v!marginedge
431   
\c!left
=
,
432   
\c!right
=
,
433   
\c!page
=
\v!last
,
434   
\c!textseparator
=
\tfskip
,
435   
\c!state
=
\v!start
,
436   
\c!command
=
,
437   
\c!strut
=
\v!yes
,
438   
\c!style
=
,
 
% empty, otherwise conflict
439   
\c!color
=
]
440
441
% just for downward compatbility
442
443
\appendtoks
444    
\edef
\scratchstringone
{
\namedcounterparameter
\s!userpage
\c!number
}
%
445    
\ifempty
\scratchstringone
 
\else
      
\normalexpanded
{
\setuppagenumber
[
\c!start
=
\scratchstringone
,
\c!number
=
]
}
%
447      
\userpageno
\strc_counters_raw
\s!userpage
448    
\fi
449
\to
 
\everysetupuserpagenumber
 
% todo: set state: none, start, stop, reset
450
451
\appendtoks
452    
\edef
\scratchstringone
{
\namedcounterparameter
\s!subpage
\c!number
}
%
453    
\ifempty
\scratchstringone
 
\else
454      
\normalexpanded
{
\setupsubpagenumber
[
\c!start
=
\scratchstringone
,
\c!number
=
]
}
%
455      
\subpageno
\strc_counters_raw
\s!subpage
\relax
456    
\fi
457
\to
 
\everysetupsubpagenumber
 
% todo: set state: none, start, stop, reset
458
459
% \setuplayout[width=300pt,backspace=4cm]
460
% \setuppagenumbering [alternative=doublesided]
461
% \setupuserpagenumber[start=2]
462
% \starttext \dorecurse{20}{\input knuth \par} \stoptext
463
464
\protected
\def
\strc_pagenumbers_check_change_shift
465  
{
\userpageno
\strc_counters_raw
\s!userpage
\relax
466   
\ifnum
\realpageno
=
\plusone
467     
\ifodd
\userpageno
468     
\else
469       
\global
\pagenoshift
\plusone
470     
\fi
471   
\fi
}
472
473
\appendtoks
 
% todo: set state: none, start, stop, reset
474    
% this makes starting at an even page possible
475    
\strc_pagenumbers_check_change_shift
476
\to
 
\everysetupuserpagenumber
477
478
\appendtoks
 
% todo: set state: none, start, stop, reset
479    
% this makes starting at an even page possible
480    
\strc_pagenumbers_check_change_shift
\to
 
\everysetuppagenumbering
482
483
\initializepagecounters
484
485
\stopcontextdefinitioncode
486
487
\protect
 
\endinput
488