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
|
%D \module
%D [ file=default,
%D version=2008.10.27,
%D title=\CONTEXT\ Letter Style,
%D subtitle=Blockstyle initalization,
%D author=Wolfgang Schuster,
%D date=\currentdate,
%D copyright=Wolfgang Schuster,
%D email=schuster.wolfgang@googlemail.com,
%D license=Public Domain]
\unprotect
\def\doresetletterlayer #1{\dododefineletterlayer[#1]}
\def\doresetlettersection#1{\dodefinelettersection[#1]}
\processcommacommand[\letter!list!layers ]\doresetletterlayer
\processcommacommand[\letter!list!sections]\doresetlettersection
\setupletterstyle
[\v!firstpage,\v!secondpage]
[\c!topspace=.08417508418\paperheight,
\c!top=\!!zeropoint,
\c!topdistance=\!!zeropoint,
\c!header=.06734006734\paperheight,
\c!headerdistance=\!!zeropoint,
\c!height=.84175084175\paperheight,
\c!footerdistance=\!!zeropoint,
\c!footer=.06734006734\paperheight,
\c!bottomdistance=\!!zeropoint,
\c!bottom=\!!zeropoint,
\c!backspace=.11904761905\paperwidth,
\c!width=.71428571429\paperwidth,
\c!bottomspace=\!!zeropoint]
\setupletter
[\c!alternative=\v!a,
\c!list=\v!date,
\c!date=\currentdate,
\c!width=\zeropoint]
\setupletterstyle
[\v!option]
[\c!dispatch=\v!yes,
\c!addressee=\v!yes]
\setupletterstyle
[\v!nexthead,\v!nextfoot]
[\c!state=\v!next]
\setupletterstyle
[\v!reference]
[\v!option]
[%\c!list=\lettervalue\c!list, % not yet
\c!alternative=\lettervalue\c!alternative]
\setupletterstyle
[\v!backaddress]
[\v!option]
[\c!alternative=\v!no,
\c!separator=\textcomma\space]
\setupletterstyle
[\v!dispatch,\v!addressee]
[\c!align=\v!right,
\c!width=\hsize,
\c!leftmargin=\zeropoint,
\c!rightmargin=\zeropoint,
\c!offset=\zeropoint,
\c!frame=\v!off]
\setupletterstyle
[\v!dispatch]
[\c!location=\v!bottom,
\c!height=\dimexpr(\vsize/9)*3\relax]
\setupletterstyle
[\v!addressee]
[\c!location=\v!top,
\c!height=\dimexpr(\vsize/9)*6\relax]
\setupletterstyle
[\v!closing]
[\c!after={\blank[\v!line]},
\c!inbetween={\blank[\v!endgraf,\v!nobreak,2*\v!line]}]
\protect \endinput
|