Source Browser ?

1%D \module
2%D   [       file=attr-lay,
3%D        version=2007.06.06,
4%D          title=\CONTEXT\ Attribute Macros,
5%D       subtitle=Viewerlayers,
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 Attribute Macros / Viewerlayers}
15
16%D Currently there is a limitation in mixed inline usage. This has to do with the fact
17%D that we have a stacked model but cannot determine where to revert to (as we can
18%D have AABBCCAA ranges). Maybe I'll solve that one day. It only affects nested inline
19%D layers and these make not much sense anyway. We'd have to store the complete nesting
20%D stack in the attribute in order to be able to cross pages and that demands a new
21%D mechanism.
22
23\unprotect
24
25\registerctxluafile{attr-lay}{}
26
27% needs to work over stopitemize grouping etc
28
29\installcorenamespace{viewerlayer}
30
31\installcommandhandler \??viewerlayer {viewerlayer} \??viewerlayer
32
33\setupviewerlayer
34  [\c!state=\v!start,
35   \c!title=,
36   \c!export=\v!yes, % exportable is ugly
37   \c!printable=\v!yes,
38   \c!scope=\v!local, % maybe global but needs checking with layout
39   \c!method=\v!none]
40
41\appendtoks
42  \clf_defineviewerlayer
43       tag       {\currentviewerlayer}%
44       title     {\viewerlayerparameter\c!title}%
45       visible   {\viewerlayerparameter\c!state}%
46       editable  {\v!yes}%
47       export    {\viewerlayerparameter\c!export}%
48       printable {\viewerlayerparameter\c!printable}%
49       scope     {\viewerlayerparameter\c!scope}%
50  \relax
51  \doif{\viewerlayerparameter\c!method}\v!command
52    {\setuxvalue{\e!start#1}{\startviewerlayer[\currentviewerlayer]}%
53     \setuxvalue{\e!stop #1}{\stopviewerlayer}}%
54\to \everydefineviewerlayer
55
56\unexpanded\def\startviewerlayer[#1]{\clf_startviewerlayer{#1}}% not grouped
57\unexpanded\def\stopviewerlayer     {\clf_stopviewerlayer}     % not grouped
58\unexpanded\def\viewerlayer     [#1]{\groupedcommand
59                                    {\clf_startviewerlayer{#1}}% grouped
60                                    {\clf_stopviewerlayer}}    % grouped
61
62% some day we will keep this at the lua end as the info is only needed there
63
64\newtoks\currentviewerlayertoks % soon we can set macros at the lua end
65
66\def\currentviewerlayer{\the\currentviewerlayertoks}
67
68\appendtoks
69    \let\currentviewerlayer\empty
70\to \everybeforepagebody
71
72% layout components are implemented rather directly (speed)
73
74\installcorenamespace{layoutcomponentattribute}
75
76\def\attr_layoutcomponent_initialize#1%
77  {\edef\layoutcomponentboxattribute{\clf_definedlayoutcomponent{#1}}%
78   \edef\layoutcomponentboxattribute{attr \viewerlayerattribute \layoutcomponentboxattribute\relax}%
79   \expandafter\glet\csname\??layoutcomponentattribute#1\endcsname\layoutcomponentboxattribute}
80
81\def\attr_layoutcomponent_set#1% make this faster
82  {\expandafter\let\expandafter\layoutcomponentboxattribute\csname\??layoutcomponentattribute#1\endcsname
83   \ifx\layoutcomponentboxattribute\relax
84     \attr_layoutcomponent_initialize{#1}% get rid of { }
85   \fi}
86
87\def\attr_layoutcomponent_reset
88  {\let\layoutcomponentboxattribute\empty}
89
90\let\setlayoutcomponentattribute  \gobbleoneargument
91\let\resetlayoutcomponentattribute\relax
92\let\layoutcomponentboxattribute  \empty
93
94\unexpanded\def\showlayoutcomponents
95  {\let\setlayoutcomponentattribute  \attr_layoutcomponent_set
96   \let\resetlayoutcomponentattribute\attr_layoutcomponent_reset}
97
98\unexpanded\def\attr_layoutcomponent_cleanup
99  {\clf_cleanuplayers}
100
101\appendtoks
102    \attr_layoutcomponent_cleanup
103\to \everyshipout
104
105\protect \endinput
106