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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
%D \module
%D [ file=core-mak,
%D version=1997.10.05,
%D title=\CONTEXT\ Core Macros,
%D subtitle=General Makeup Commands,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
\writestatus{loading}{Context Core Macros / General Makeup Commands}
\unprotect
% \definieerplaats[naam][instellingen]
% \stelplaatsin[naam][instellingen]
% \plaats<naam>[[instellingen]]
%
% - still undocumented and also not in setupb yet
% - kan ook intern/direct (scheelt duplicatie), zie \framedtext
\def\dodefineplacement[#1][#2]%
{\getparameters
[\??pl#1]
[\c!links=\hss,
\c!rechts=\hss,
\c!regelcorrectie=\v!uit,
\c!dieptecorrectie=\v!uit,
\c!marge=\v!standaard,
\c!grid=\v!midden,
%\c!voor=,
%\c!na=,
#2]%
\setvalue{\e!plaats#1}{\doplacement[\??pl#1]}}
\def\defineplacement
{\dodoubleempty\dodefineplacement}
\def\setupplacement
{\dodoubleempty\dosetupplacement}
\def\dosetupplacement[#1]%
{\dodoubleempty\getparameters[\??pl#1]}
\def\doplacement
{\dodoubleempty\dodoplacement}
% \def\dodoplacement[#1][#2]% correctie moet mooier
% {\bgroup
% \dowithnextbox
% {\setlocalhsize
% \getparameters[#1][#2]%
% \getvalue{#1\c!voor}%
% \doifvalue{#1\c!regelcorrectie}\v!aan \startbaselinecorrection
% \doifinset{\getvalue{#1\c!marge}}{\v!standaard,\v!ja}\noindent
% \hbox to \localhsize
% {\getvalue{#1\c!links}%
% \flushnextbox
% \getvalue{#1\c!rechts}}%
% \doifvalue{#1\c!dieptecorrectie}\v!aan\baselinecorrection
% \doifvalue{#1\c!regelcorrectie }\v!aan\stopbaselinecorrection
% \getvalue{#1\c!na}%
% \egroup}
% \vbox}
\def\dodoplacement[#1][#2]% correctie moet mooier
{\bgroup
\dowithnextboxcontent
{\forgetall}
{\setlocalhsize
\getparameters[#1][#2]%
\getvalue{#1\c!voor}%
\begingroup
\positioningparfalse
\setbox\nextbox\hbox to \localhsize
{\getvalue{#1\c!links}%
\flushnextbox
\getvalue{#1\c!rechts}}%
\ifinsidefloat \else
\addlocalbackgroundtobox\nextbox
\fi
\ifgridsnapping
\doifundefined{#1\c!grid}{\letvalue{#1\c!grid}\v!midden}%
% unchecked
\doifinset{\getvalue{#1\c!marge}}{\v!standaard,\v!ja}\noindent
\snaptogrid[\getvalue{#1\c!grid}]\hbox{\flushnextbox}%
\else
\doifvalue{#1\c!regelcorrectie}\v!aan \startbaselinecorrection
\doifinset{\getvalue{#1\c!marge}}{\v!standaard,\v!ja}\noindent
\flushnextbox
\doifvalue{#1\c!dieptecorrectie}\v!aan\baselinecorrection
\doifvalue{#1\c!regelcorrectie }\v!aan\stopbaselinecorrection
\fi
\endgroup
\getvalue{#1\c!na}%
\egroup}
\vbox}
\protect \endinput
|