blob: 122839c06086c7bf5542e5b99ac63a9b48c42823 (
plain)
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
103
104
105
106
107
|
%D \module
%D [ file=attr-lay,
%D version=2007.06.06,
%D title=\CONTEXT\ Attribute Macros,
%D subtitle=Viewerlayers,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%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 Attribute Macros / Viewerlayers}
%D Currently there is a limitation in mixed inline usage. This has to do with the fact
%D that we have a stacked model but cannot determine where to revert to (as we can
%D have AABBCCAA ranges). Maybe I'll solve that one day. It only affects nested inline
%D layers and these make not much sense anyway. We'd have to store the complete nesting
%D stack in the attribute in order to be able to cross pages and that demands a new
%D mechanism.
\unprotect
\registerctxluafile{attr-lay}{autosuffix}
% needs to work over stopitemize grouping etc
\installcorenamespace{viewerlayer}
\installcommandhandler \??viewerlayer {viewerlayer} \??viewerlayer
\setupviewerlayer
[\c!state=\v!start,
\c!title=,
\c!export=\v!yes, % exportable is ugly
\c!printable=\v!yes,
\c!scope=\v!local, % maybe global but needs checking with layout
\c!method=\v!none]
\appendtoks
\clf_defineviewerlayer
tag {\currentviewerlayer}%
title {\viewerlayerparameter\c!title}%
visible {\viewerlayerparameter\c!state}%
editable {\v!yes}%
export {\viewerlayerparameter\c!export}%
printable {\viewerlayerparameter\c!printable}%
scope {\viewerlayerparameter\c!scope}%
\relax
\doif{\viewerlayerparameter\c!method}\v!command
{\frozen\instance\setuxvalue{\e!start#1}{\startviewerlayer[\currentviewerlayer]}%
\frozen\instance\setuxvalue{\e!stop #1}{\stopviewerlayer}}%
\to \everydefineviewerlayer
% \startviewerlayer[#1] % defined at lua end
% \stopviewerlayer % defined at lua end
\permanent\protected\def\viewerlayer[#1]%
{\groupedcommand{\startviewerlayer[#1]}{\stopviewerlayer}}
% some day we will keep this at the lua end as the info is only needed there
\newtoks\currentviewerlayertoks % soon we can set macros at the lua end
\def\currentviewerlayer{\the\currentviewerlayertoks}
\appendtoks
\lettonothing\currentviewerlayer
\to \everybeforepagebody
% layout components are implemented rather directly (speed)
\installcorenamespace{layoutcomponentattribute}
\mutable\lettonothing\layoutcomponentboxattribute
\permanent\def\attr_layoutcomponent_initialize#1%
{\edef\layoutcomponentboxattribute{\clf_definedlayoutcomponent{#1}}%
\edef\layoutcomponentboxattribute{attr \viewerlayerattribute \layoutcomponentboxattribute\relax}%
\gletcsname\??layoutcomponentattribute#1\endcsname\layoutcomponentboxattribute}
\permanent\def\attr_layoutcomponent_set#1% make this faster
{\expandafter\let\expandafter\layoutcomponentboxattribute\csname\??layoutcomponentattribute#1\endcsname
\ifrelax\layoutcomponentboxattribute
\attr_layoutcomponent_initialize{#1}% get rid of { }
\fi}
\permanent\def\attr_layoutcomponent_reset
{\lettonothing\layoutcomponentboxattribute}
\permanent\let \setlayoutcomponentattribute \gobbleoneargument
\permanent\let \resetlayoutcomponentattribute\relax
\lettonothing\layoutcomponentboxattribute
\permanent\protected\def\showlayoutcomponents
{\enforced\let\setlayoutcomponentattribute \attr_layoutcomponent_set
\enforced\let\resetlayoutcomponentattribute\attr_layoutcomponent_reset}
\protected\def\attr_layoutcomponent_cleanup
{\clf_cleanuplayers}
\appendtoks
\attr_layoutcomponent_cleanup
\to \everyshipout
\protect \endinput
|
