Source Browser ?

1%D \module
2%D   [       file=tabl-mis,
3%D        version=2012.06.28,
4%D          title=\CONTEXT\ Table Macros,
5%D       subtitle=Miscellaneous,
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 Table Macros / Miscellaneous}
15
16\unprotect
17
18%D \macros
19%D   {somekindoftab,kindoftabposition}
20%D
21%D This macro can be used to create tabs:
22%D
23%D \starttyping
24%D \setupheadertexts[{\somekindoftab[alternative=horizontal]{\framed{\kindoftabposition}}}]
25%D \setuptexttexts  [{\somekindoftab[alternative=vertical]  {\framed{\kindoftabposition}}}]
26%D
27%D \starttext
28%D     \showframe \dorecurse{10}{test\page}
29%D \stoptext
30%D \stoptyping
31%D
32%D (This rather old but updated code used to be in \type {core-mis.mkiv}.)
33
34\let\kindoftabposition\!!zerocount
35
36\unexpanded\def\somekindoftab
37  {\dosingleempty\typo_kindoftab}
38
39\def\typo_kindoftab[#1]%
40  {\bgroup
41   \getdummyparameters
42     [\c!alternative=\v!vertical,
43      \c!width=\textwidth,\c!height=\textheight,
44      \c!n=\lastpage,\c!m=\realpageno,
45      #1]%
46   \doifelse{\directdummyparameter\c!alternative}\v!vertical
47     {\typo_kindoftab_indeed\vbox\vskip\c!height}
48     {\typo_kindoftab_indeed\hbox\hskip\c!width }}
49
50\def\typo_kindoftab_indeed#1#2#3#4%
51  {#1 to \directdummyparameter#3 \bgroup
52     \forgetall
53     \scratchnx\directdummyparameter\c!n\relax
54     \scratchmx\directdummyparameter\c!m\relax
55     \edef\kindoftabposition{\the\scratchmx}%
56     \ifnum\scratchmx>\plusone
57       #2\zeropoint \s!plus \the\numexpr\scratchmx-\plusone  \relax\s!fill\relax
58     \fi
59     #4% can use \kindoftabposition
60     \ifnum\scratchmx<\scratchnx\relax
61       #2\zeropoint \s!plus \the\numexpr\scratchnx-\scratchmx\relax\s!fill\relax
62     \fi
63   \egroup
64   \egroup}
65
66%D The following paragraphs mechanism is probably one of the oldest of
67%D \CONTEXT\ and mostly served as a table mechanism capable of dealing
68%D with paragraphs. Nowadays one can also use tabulate or natural tables.
69%D
70%D \startbuffer
71%D \defineparagraphs[sample][n=2,rule=on]
72%D
73%D \startsample
74%D     first  \nextsample
75%D     second \nextsample
76%D     third
77%D \stopsample
78%D
79%D \startsample
80%D     \input tufte \nextsample
81%D     \input ward  \nextsample
82%D     \input davis \nextsample
83%D     \input zapf
84%D \stopsample
85%D
86%D \startparagraphs[sample]
87%D     first  \nextsample
88%D     second \nextsample
89%D     third
90%D \stopparagraphs
91%D
92%D \startparagraphs[sample]
93%D     \startparagraphscell
94%D         first
95%D     \stopparagraphscell
96%D     \startparagraphscell
97%D         second
98%D     \stopparagraphscell
99%D     \startparagraphscell
100%D         third
101%D     \stopparagraphscell
102%D \stopparagraphs
103%D \stopbuffer
104%D
105%D \typebuffer \getbuffer
106
107\installcorenamespace{paragraphs}
108
109\installframedcommandhandler \??paragraphs {paragraphs} \??paragraphs
110
111\setupparagraphs
112  [\c!n=3,
113   \c!offset=\zeropoint,
114   \c!before=\blank,
115   \c!after=\blank,
116   \c!distance=\emwidth,
117   \c!height=\v!fit,
118   \c!width=\availablehsize,
119   \c!rule=\v!off,
120   \c!command=,
121   \c!align=,
122   \c!tolerance=\v!tolerant, % obsolete
123   \c!rulethickness=\linewidth,
124   \c!rulecolor=,
125   \c!style=,
126   \c!color=,
127   \c!frame=\v!off,
128   \c!top=\vss,
129   \c!bottom=\vfill]
130
131\let\typo_paragraphs_setup_saved\setupparagraphs
132
133\unexpanded\overloaded\def\setupparagraphs
134  {\dotripleempty\typo_paragraphs_setup}
135
136\def\typo_paragraphs_setup[#1][#2][#3]% we are downward compatible with [each] and [1,3]
137  {\ifthirdargument
138     \doifelse{#2}\v!each
139       {\dorecurse{\namedparagraphsparameter{#1}\c!n}%
140          {\normalexpanded{\typo_paragraphs_setup_saved[#1:\recurselevel]}[#3]}}%
141       {\def\typo_paragraphs_setup_step##1{\typo_paragraphs_setup_saved[#1:##1][#3]}%
142        \processcommalist[#2]\typo_paragraphs_setup_step}%
143   \else\ifsecondargument
144      \typo_paragraphs_setup_saved[#1][#2]%
145   \else\iffirstargument
146      \typo_paragraphs_setup_saved[#1]%
147   \fi\fi\fi}
148
149\appendtoks
150    \letvalue{\e!next \currentparagraphs}\nextparagraphs
151    \letvalue\currentparagraphs\nextparagraphs
152    \setuevalue{\e!start\currentparagraphs}{\startparagraphs[\currentparagraphs]}%
153    \letvalue{\e!stop \currentparagraphs}\stopparagraphs
154    %setuevalue{\e!setup\currentparagraph\e!endsetup}{\typo_paragraphs_setup_saved[\currentparagraphs]}%
155    \dorecurse{\paragraphsparameter\c!n}
156        {\normalexpanded{\typo_paragraphs_setup_saved[\currentparagraphs:\recurselevel][\c!width=,\s!parent=\??paragraphs\currentparagraphs]}}%
157    \typo_paragraphs_setup_saved[\currentparagraphs:1][\c!distance=\zeropoint]%
158\to \everydefineparagraphs
159
160\newcount\c_typo_paragraphs_n
161\newcount\c_typo_paragraphs_max
162\newdimen\d_typo_paragraphs_width
163\newdimen\d_typo_paragraphs_auto
164
165\unexpanded\def\startparagraphs[#1]% quite slow
166  {\bgroup % (1)
167   \edef\currentparagraphs{#1}%
168 % \paragraphsparameter\c!before
169   \edef\p_width{\paragraphsparameter\c!width}%
170   \ifx\p_width\empty
171     \d_typo_paragraphs_width\availablehsize
172   \else
173     \d_typo_paragraphs_width\p_width\relax
174   \fi
175   \advance\d_typo_paragraphs_width-2\dimexpr\paragraphsparameter\c!offset\relax
176   \c_typo_paragraphs_max\paragraphsparameter\c!n\relax
177   \d_typo_paragraphs_auto\d_typo_paragraphs_width\relax
178   \scratchcounter\zerocount
179   \dorecurse\c_typo_paragraphs_max
180     {\edef\p_width{\namedparagraphsparameter{\currentparagraphs:\recurselevel}\c!width}%
181      \ifx\p_width\empty
182        \advance\scratchcounter\plusone
183      \else
184        \advance\d_typo_paragraphs_auto-\p_width\relax
185      \fi
186      \ifnum\recurselevel>\plusone
187        \advance\d_typo_paragraphs_auto-\namedparagraphsparameter{\currentparagraphs:\recurselevel}\c!distance\relax
188      \fi}%
189   \ifnum\scratchcounter>\zerocount
190     \divide\d_typo_paragraphs_auto\scratchcounter
191   \else
192     \d_typo_paragraphs_auto\zeropoint
193   \fi
194   \parindent\zeropoint
195   \c_typo_paragraphs_n\zerocount
196   \enforced\let\\\typo_paragraphs_next % downward compatible
197   \edef\p_offset{\paragraphsparameter\c!offset}%
198   \doifelsedimension\p_offset
199     {\scratchoffset\p_offset}%
200     {\scratchoffset\zeropoint}%
201   \setbox\scratchbox\hpack
202   \bgroup % (2)
203   \forgetall
204   \advance\hsize-2\scratchoffset
205   \let\typo_paragraphs_start_cell\typo_paragraphs_start_cell_indeed
206   \let\typo_paragraphs_stop_cell \typo_paragraphs_stop_cell_indeed
207   \typo_paragraphs_start_cell_indeed}
208
209\unexpanded\def\stopparagraphs
210  {\stopparagraphscell
211   \egroup  % (2)
212   \letparagraphsparameter\c!align\v!flushleft % normal
213   \paragraphsparameter\c!before
214   \dontleavehmode\inheritedparagraphsframed{\box\scratchbox}%
215   \paragraphsparameter\c!after
216   \egroup} % (1)
217
218\unexpanded\def\nextparagraphs
219  {\stopparagraphscell
220   \startparagraphscell}
221
222\unexpanded\def\startparagraphscell
223  {\typo_paragraphs_start_cell}
224
225\def\typo_paragraphs_start_cell_indeed
226  {\removeunwantedspaces
227   \advance\c_typo_paragraphs_n\plusone
228   \ifnum\c_typo_paragraphs_n>\c_typo_paragraphs_max
229     \expandafter\typo_paragraphs_start_cell_nop
230   \else
231     \expandafter\typo_paragraphs_start_cell_yes
232   \fi}
233
234\def\typo_paragraphs_start_cell_nop
235  {\begingroup
236   % message: too many cells in paragraphs
237   \let\typo_paragraphs_start_cell\relax
238   \let\typo_paragraphs_stop_cell\typo_paragraphs_stop_cell_indeed
239   \setbox\scratchbox\vbox\bgroup}
240
241\def\typo_paragraphs_start_cell_yes
242  {\begingroup
243   \let\typo_paragraphs_start_cell\relax
244   \let\typo_paragraphs_stop_cell\typo_paragraphs_stop_cell_indeed
245   \edef\currentparagraphs{\currentparagraphs:\the\c_typo_paragraphs_n}%
246   \ifnum\c_typo_paragraphs_n>\plusone
247     \typo_paragraphs_separator
248   \fi
249   \edef\p_height{\paragraphsparameter\c!height}%
250   \edef\p_width {\paragraphsparameter\c!width }%
251   \useparagraphsstyleandcolor\c!style\c!color
252   \setbox\scratchbox\vtop \ifx\p_height\empty \else\ifx\p_height\v!fit \else to \p_height \fi\fi
253   \bgroup % (2)
254   \blank[\v!disable]%
255   \paragraphsparameter\c!top
256   \hsize\ifx\p_width\empty \d_typo_paragraphs_auto \else \p_width \fi \relax
257   \usealignparameter\paragraphsparameter
258   \paragraphsparameter\c!inner
259   \everypar{\begstrut\everypar\emptytoks}%
260   \ignorespaces
261   \paragraphsparameter\c!command}
262
263\unexpanded\def\stopparagraphscell
264  {\typo_paragraphs_stop_cell
265   \let\typo_paragraphs_stop_cell\relax}
266
267\def\typo_paragraphs_stop_cell_indeed
268  {\ifnum\c_typo_paragraphs_n>\c_typo_paragraphs_max
269     \expandafter\typo_paragraphs_stop_cell_nop
270   \else
271     \expandafter\typo_paragraphs_stop_cell_yes
272   \fi}
273
274\def\typo_paragraphs_stop_cell_nop
275  {\egroup
276   \endgroup}
277
278\def\typo_paragraphs_stop_cell_yes
279  {\ifvmode
280     \removelastskip
281   \else
282     \removeunwantedspaces
283     \endstrut
284     \endgraf
285   \fi
286   \paragraphsparameter\c!bottom
287   \egroup % (2)
288   \dontleavehmode\hpack{\raise\strutheight\box\scratchbox}%
289   \endgroup}
290
291\def\typo_paragraphs_separator
292  {\scratchdistance\paragraphsparameter\c!distance
293   \doif{\paragraphsparameter\c!rule}\v!on
294     {\scratchwidth\paragraphsparameter\c!rulethickness
295      \scratchdistance\dimexpr(\scratchdistance-\scratchwidth)/2\relax
296      \hskip\scratchdistance
297      \color[\paragraphsparameter\c!rulecolor]{\vrule\s!width\scratchwidth}}%
298   \hskip\scratchdistance}
299
300\protect \endinput
301