Source Browser ?

1%D \module
2%D   [       file=pack-mis, % moved from e.g. core-mis
3%D        version=1998.01.29,
4%D          title=\CONTEXT\ Core Macros,
5%D       subtitle=Miscelaneous,
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 Packing Macros / Misc Commands}
15
16\unprotect
17
18% a quite old mechanism already (but inheritance added)
19%
20% \defineplacement[name][settings]
21% \setupplacement [name][settings]
22% \placement      [name][settings]
23% \place<name>          [settings]
24
25\installcorenamespace{placement}
26
27\installcommandhandler \??placement {placement} \??placement
28
29\appendtoks
30   \setuevalue{\e!place\currentplacement}{\pack_placement{\currentplacement}}%
31\to \everydefineplacement
32
33\setupplacement
34  [\c!left=\hss,
35   \c!right=\hss,
36   \c!linecorrection=\v!off,
37   \c!depthcorrection=\v!off,
38   \c!grid=\v!middle,
39  %\c!before=,
40  %\c!after=,
41   \c!margin=\v!standard]
42
43\unexpanded\def\placement[#tag]%
44  {\pack_placement{#tag}}
45
46\unexpanded\def\pack_placement#tag%
47  {\bgroup
48   \edef\currentplacement{#tag}%
49   \doifelsenextoptionalcs\pack_placement_yes\pack_placement_nop}
50
51\def\pack_placement_yes[#settings]%
52  {\setupcurrentplacement[#settings]%
53   \pack_placement_nop}
54
55\def\pack_placement_nop
56  {\dowithnextboxcontentcs\forgetall\pack_placement_flush\vbox}
57
58\def\pack_placement_flush
59  {\setlocalhsize
60   \placementparameter\c!before
61   \begingroup
62   \disableparpositions
63   \setbox\nextbox\hbox to \localhsize
64     {\placementparameter\c!left
65      \flushnextbox
66      \placementparameter\c!right}%
67  %\ifinsidefloat \else
68  %  \page_backgrounds_add_local_to_box\nextbox
69  %\fi
70\flushnotes % new per 2014-05-29 : todo: move them up in the mvl
71   \ifgridsnapping
72     \pack_placement_flush_grid_yes
73   \else
74     \pack_placement_flush_grid_nop
75   \fi
76   \endgroup
77   \placementparameter\c!after
78   \egroup}
79
80\def\pack_placement_flush_grid_yes
81  {\edef\p_grid{\placementparameter\c!grid}%
82   \ifx\p_grid\empty
83     \let\p_grid\v!middle
84   \fi
85   \pack_placement_flush_grid_noindent
86   \snaptogrid[\p_grid]\hbox{\box\nextbox}}
87
88\def\pack_placement_flush_grid_nop
89  {\edef\p_linecorrection {\placementparameter\c!linecorrection}%
90   \edef\p_depthcorrection{\placementparameter\c!depthcorrection}%
91   \ifx\p_linecorrection\v!on
92     \startbaselinecorrection
93   \fi
94   \pack_placement_flush_grid_noindent
95   \box\nextbox
96   \ifx\p_depthcorrection\v!on
97     \baselinecorrection
98   \fi
99   \ifx\p_linecorrection\v!on
100     \stopbaselinecorrection
101   \fi}
102
103\def\pack_placement_flush_grid_noindent
104  {\edef\p_margin{\placementparameter\c!margin}%
105   \ifx\p_margin\v!standard
106     \noindent
107   \else\ifx\p_margin\v!yes
108     \noindent
109   \fi\fi}
110
111\protect \endinput
112
113