summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/third/letter/style/pragma.nls
blob: 8409988713ca2889d51cac69362d0bce4fa9fbb8 (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
%D \module
%D   [       file=pragma,
%D        version=2009.09.20,
%D          title=\CONTEXT\ Letter Style,
%D       subtitle=Pragma Style,
%D         author=Wolfgang Schuster,
%D           date=\currentdate,
%D      copyright=Wolfgang Schuster,
%D          email=schuster.wolfgang@googlemail.com,
%D        license=Public Domain]

\unprotect

\useletterstyle[default]

\setupcolors
  [\c!state=\v!start]

\setuplayout
  [\c!grid=\v!yes]

\setupletterstyle
  [\v!firstpage,\v!secondpage]
  [\c!grid=\v!yes,
   \c!topspace=2cm,
   \c!bottomspace=2cm,
   \c!backspace=2cm,
   \c!header=0mm,
   \c!footer=1cm,
   \c!width=\v!middle,
   \c!height=\v!middle]

\startmode[*letter]

  \setupletterstyle
    [\v!firstpage,\v!secondpage]
    [\c!topspace=1in,
     \c!bottomspace=1in,
     \c!backspace=1in,
     \c!footer=1in]

\stopmode

\setupletterstyle
  [\v!option]
  [\c!marking=\v!no,
   \c!head=\v!no,
   \c!foot=\v!no,
   \c!backaddress=\v!no,
   \c!whitespace=\v!big]

\setupletterstyle
  [\v!address]
  [\v!layer]
  [\c!line=3,
   \c!height=10\lineheight,
   \c!hoffset=\dimexpr\backspace-\linewidth\relax,
   \c!voffset=\dimexpr\topspace+\headerheight\relax,
   \c!preset=,
   \c!location=\v!grid]

\setupletterstyle
  [\v!address]
  [\v!frame]
  [\c!location=\v!top,
   \c!width=\textwidth]

\setupletterstyle
  [\v!reference]
  [\c!hoffset=\dimexpr\backspace-\linewidth,
   \c!voffset=\dimexpr\letterstylevalue{\v!address\v!layer}\c!voffset+\letterstylevalue{\v!address\v!layer}\v!height\relax,
   \c!width=\dimexpr\textwidth+2\linewidth,
   \c!height=3\lineheight]

\setupletterstyle
  [\v!reference]
  [\v!layer]
  [\c!preset=,
   \c!location=\v!grid]

\setupletterstyle
  [\v!reference]
  [\v!frame]
  [\c!location=\v!top]

\startsetups[letter:title:before]
  \startlinecorrection
  \blank[\the\dimexpr\letterstylevalue\v!reference\c!voffset+\letterstylevalue\v!reference\c!height-\letterstylevalue{\v!address\v!layer}\c!voffset\relax]
  \stoplinecorrection
\stopsetups

\setupletterstyle
  [\v!title]
  [\c!before={\setups[letter:title:before]}]

\setupletterstyle
  [\v!subject,\v!opening,\v!content,\v!closing]
  [\c!after={\blank[\v!line]}]

\protect \endinput