diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/core-mak.tex')
-rw-r--r-- | Master/texmf-dist/tex/context/base/core-mak.tex | 102 |
1 files changed, 102 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/base/core-mak.tex b/Master/texmf-dist/tex/context/base/core-mak.tex new file mode 100644 index 00000000000..68315ea5715 --- /dev/null +++ b/Master/texmf-dist/tex/context/base/core-mak.tex @@ -0,0 +1,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!left=\hss, + \c!right=\hss, + \c!linecorrection=\v!off, + \c!depthcorrection=\v!off, + \c!margin=\v!standard, + \c!grid=\v!middle, + %\c!before=, + %\c!after=, + #2]% + \setvalue{\e!place#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!before}% + \begingroup + \positioningparfalse + \setbox\nextbox\hbox to \localhsize + {\getvalue{#1\c!left}% + \flushnextbox + \getvalue{#1\c!right}}% + \ifinsidefloat \else + \addlocalbackgroundtobox\nextbox + \fi + \ifgridsnapping + \doifundefined{#1\c!grid}{\letvalue{#1\c!grid}\v!middle}% + % unchecked + \doifinset{\getvalue{#1\c!margin}}{\v!standard,\v!yes}\noindent + \snaptogrid[\getvalue{#1\c!grid}]\hbox{\flushnextbox}% + \else + \doifvalue{#1\c!linecorrection}\v!on \startbaselinecorrection + \doifinset{\getvalue{#1\c!margin}}{\v!standard,\v!yes}\noindent + \flushnextbox + \doifvalue{#1\c!depthcorrection}\v!on\baselinecorrection + \doifvalue{#1\c!linecorrection }\v!on\stopbaselinecorrection + \fi + \endgroup + \getvalue{#1\c!after}% + \egroup} + \vbox} + +\protect \endinput |