Source Browser ?

1%D \module
2%D   [       file=page-pls,
3%D        version=2003.03.16,
4%D          title=\CONTEXT\ Page Macros,
5%D       subtitle=Page Setup,
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 Page Macros / Extra Page Building}
15
16%D This still needs some work, especially the dimensions need to be
17%D checked cq.\ optimized. Beware: method has become alternative!
18
19%D This feature has been present for a while but has never been
20%D exploited: pluggable pagebuilders. The next example code
21%D demonstrates the application of one such a plug-in. This variant
22%D support \type {page}, \type {leftpage} and \type {rightpage}
23%D definitions where specific areas are placed with the \type
24%D {\pagearea} command.
25%D
26%D \starttyping
27%D \setupheadertexts[the header text]
28%D \setupfootertexts[a pretty long left footer text][something right]
29%D \setupbottomtexts[a not so long bottom text][another right thing]
30%D \setuptexttexts  [margin][something marginal][indeed]
31%D
32%D \startpagelayout[leftpage]
33%D   \setupTABLE[offset=overlay]
34%D   \setupTABLE[c][1][width=\leftmarginwidth]
35%D   \setupTABLE[c][2][width=\textwidth]
36%D   \setupTABLE[c][3][width=\rightmarginwidth]
37%D   \bTABLE
38%D     \bTR
39%D       \bTD[nx=3,background=color,backgroundcolor=green]
40%D         \pagearea[header][text][middle]
41%D       \eTD
42%D     \eTR
43%D     \bTR
44%D       \bTD \pagearea[text][margin][left] \eTD
45%D       \bTD[nx=2] \pagearea[text] \eTD
46%D     \eTR
47%D     \bTR
48%D       \bTD[nx=3,offset=overlay]
49%D         {\bTABLE
50%D            \bTR
51%D              \bTD \pagearea[footer][text][left] \eTD
52%D              \bTD \pagearea[bottom][text][left] \eTD
53%D            \eTR
54%D          \eTABLE}
55%D        \eTD
56%D     \eTR
57%D   \eTABLE
58%D \stoppagelayout
59%D
60%D \startpagelayout[rightpage]
61%D   \setupTABLE[offset=overlay]
62%D   \setupTABLE[c][1][width=\leftmarginwidth]
63%D   \setupTABLE[c][2][width=\textwidth]
64%D   \setupTABLE[c][3][width=\rightmarginwidth]
65%D   \bTABLE
66%D     \bTR
67%D       \bTD[nx=3] \pagearea[header][text][middle] \eTD
68%D     \eTR
69%D     \bTR
70%D       \bTD \pagearea[text][margin][left] \eTD
71%D       \bTD[nx=2] \pagearea[text] \eTD
72%D     \eTR
73%D     \bTR
74%D       \bTD[nx=3,offset=overlay]
75%D         {\bTABLE
76%D            \bTR
77%D              \bTD \pagearea[bottom][text][right] \eTD
78%D              \bTD \pagearea[footer][text][right] \eTD
79%D            \eTR
80%D          \eTABLE}
81%D       \eTD
82%D     \eTR
83%D   \eTABLE
84%D \stoppagelayout
85%D
86%D \setupcolors[state=start]
87%D
88%D \setuppagenumbering[alternative=doublesided,location=]
89%D
90%D \setuplayout[alternative=makeup]
91%D
92%D \definetextbackground
93%D   [test]
94%D   [state=start,
95%D    background=color,
96%D    backgroundcolor=yellow]
97%D
98%D \starttext
99%D
100%D \dorecurse{10}{\input tufte \par}
101%D
102%D \input tufte \starttest \input tufte \stoptest \input tufte
103%D
104%D \starttabulate
105%D \NC test \NC \starttest \input tufte  \stoptest \NC \NR
106%D \stoptabulate
107%D
108%D \dorecurse{10}{\input tufte \par}
109%D
110%D \stoptext
111%D \stoptyping
112
113\unprotect
114
115\installcorenamespace{layoutmakeupalternative}
116
117\definecolor[\v!makeup:trace][s=.5,a=1,t=.5]
118
119\installtextracker
120  {pagelayout}
121  {\def\page_boxes_show_box{\backgroundline[\v!makeup:trace]}}
122  {\let\page_boxes_show_box\relax}
123
124\let\page_boxes_show_box\relax
125
126\def\page_boxes_construct_content_makeup#1#2#3% targetbox flusher box
127  {\setbox#1\vpack\bgroup
128     \offinterlineskip
129     \calculatereducedvsizes
130     \calculatehsizes
131     \page_layouts_swap_margins\v!page
132     \setbox#1\hbox\bgroup
133       \vbox to \textheight\bgroup
134          \offinterlineskip
135          \vskip\dimexpr-1\topskip+\strutheight\relax % could be an option
136          \textwidth\makeupwidth
137          \hsize\textwidth
138          \boxmaxdepth\maxdepth
139          \noindent
140          \hpack to \zeropoint{\anch_positions_place_anchors}%
141          \page_boxes_show_box\bgroup
142            \page_otr_command_package_contents#2#3%
143          \egroup
144       \egroup
145     \egroup
146     \wd#1\makeupwidth
147     \ht#1\textheight
148     \dp#1\zeropoint
149     \hsize\paperwidth
150     \vsize\paperheight
151     \setbox#1\vbox\bgroup
152      %\settexthoffset
153      %\doifbothsidesoverruled\relax\relax{\hkern\dimexpr-\texthoffset-\cutspace+\backspace\relax}%
154       \doifbothsidesoverruled\relax\relax{\hkern\dimexpr-\paperwidth+\backspace+\makeupwidth-\cutspace+\backspace\relax}%
155       \page_boxes_show_box\bgroup
156         \csname\??layoutmakeupalternative\doifbothsidesoverruled\v!page\v!rightpage\v!leftpage\endcsname
157       \egroup
158     \egroup
159     \wd#1\paperwidth
160     \ht#1\paperheight
161     \dp#1\zeropoint
162    %\smashbox#1%
163     \box#1%
164   \egroup}
165
166\installlayoutalternative\v!makeup{\page_boxes_construct_content_makeup}
167
168\newbox\b_page_area
169
170\unexpanded\def\pagearea
171  {\dotripleempty\page_area}
172
173\def\page_area
174  {\ifthirdargument
175     \expandafter\page_area_three
176   \else\ifsecondargument
177     \doubleexpandafter\page_area_two
178   \else
179     \doubleexpandafter\page_area_one
180   \fi\fi}
181
182\def\page_area_three[#1][#2][#3]%
183  {\edef\m_page_area_three{#3}%
184   \ifx\m_page_area_three\v!left
185     \let\m_page_area_three\c!lefttext
186   \else\ifx\m_page_area_three\v!right
187     \let\m_page_area_three\c!righttext
188   \else
189     \let\m_page_area_three\c!middletext
190   \fi\fi
191   \page_area_indeed{#1}{#2}\m_page_area_three}
192
193\def\page_area_two[#1][#2][#3]%
194  {\edef\m_page_area_three{\doifbothsidesoverruled\c!righttext\c!righttext\c!lefttext}%
195   \page_area_indeed{#1}{#2}\m_page_area_three}
196
197\def\page_area_one[#1][#2][#3]%
198  {\edef\m_page_area_one{#1}
199   \ifx\m_page_area_one\v!text % copy due to trial runs in TABLE
200     \iftrialtypesetting
201       \fakebox\pagebox
202     \else
203       \page_backgrounds_add_to_text\pagebox
204       \page_grids_add_to_box\pagebox
205       \box\pagebox
206     \fi
207   \fi}
208
209\def\page_area_indeed#1#2#3%
210  {\setbox\b_page_area\vbox{\getspecificlayouttext{#1}{#2}{#3}}%
211   \iftrialtypesetting
212     \fakebox\b_page_area
213   \else\ifcsname\??layoutbackgrounds#1#2\endcsname
214     \page_area_indeed_yes{#1}{#2}%
215   \else
216     \box\b_page_area
217   \fi\fi}
218
219\def\page_area_indeed_yes#1#2%
220  {% todo: \localbackgroundframed{\??layoutbackgrounds#1#2}{#1:#2}
221   \localframed % todo:
222     [\??layoutbackgrounds#1#2]
223     [\c!width=\wd\b_page_area,
224      \c!height=\ht\b_page_area,
225      \c!offset=\v!overlay]
226     {\box\b_page_area}}
227
228% to be done nicely (proper namespacing)
229
230\setvalue{\??layoutmakeupalternative\v!leftpage }{\csname\??layoutmakeupalternative\v!page\endcsname}
231\setvalue{\??layoutmakeupalternative\v!rightpage}{\csname\??layoutmakeupalternative\v!page\endcsname}
232
233\unexpanded\def\startpagelayout
234  {\bgroup
235   \catcode\endoflineasciicode\ignorecatcode
236   \page_layouts_start_layout}
237
238\let\stoppagelayout\relax
239
240\def\page_layouts_start_layout[#1]#2\stoppagelayout
241  {\egroup
242   \setvalue{\??layoutmakeupalternative#1}{#2}}
243
244\protect \endinput
245