blob: d2ef38a0136f821590c5547611446e98898d79ca (
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
|
%% This is part of OpTeX project, see http://petr.olsak.net/optex
\_codedecl \report {Basic styles of OpTeX <2020-03-28>} % preloaded in format
\_doc -----------------------------
The `{\boxlines <line-1><eol><line-2><eol>...<line-n><eol>}`
returns to the outer vertical mode a box with <line-1>, next box with
<line-2> etc. Each box has its natural width. This is reaon why we cannot
use paragraph mode where each resulting box has the width `\hsize`.
The <eol> is set active and `\everypar` starts `\hbox{` and acive <eol>
closes this `\hbox` by `}`.
\_cod -----------------------------
\_def\_boxlines{%
\_def\_boxlinesE{\_ifhmode\_egroup\_empty\_fi}%
\_def\_nl{\_boxlinesE}%
\_bgroup \_lccode`\~=`\^^M\_lowercase{\_egroup\_let~}\_boxlinesE
\_everypar{\_setbox0=\_lastbox\_endgraf
\_hbox\_bgroup \_catcode`\^^M=13 \_let\par=\_nl \_aftergroup\_boxlinesC}%
}
\_def\_boxlinesC{\_futurelet\_next\_boxlinesD}
\_def\_boxlinesD{\_ifx\_next\_empty\_else\_ea\_egroup\_fi}
\_doc -----------------------------
The `\report` and `\letter` style initialization macos are defined here.
Their behavior is documented in user part of the manual in the section \ref[styles].
\_cod -----------------------------
\_def\_report{
\_typosize[11/13.2]
\_vsize=\_dimexpr \_topskip + 52\_baselineskip \_relax % added 2020-03-28
\_let\_titfont=\_chapfont
\_titskip=3ex
\_eoldef\_author##1{\_removelastskip\_bigskip
{\_leftskip=0pt plus1fill \_rightskip=\_leftskip \_it \_noindent ##1\_par}\_nobreak\_bigskip
}
\_public \author ;
\_parindent=1.2em \_iindent=\_parindent \_ttindent=\_parindent
\_footline={\_global\_footline={\_hss\_rmfixed\_folio\_hss}}
}
\_def\_letter{
\_def\_address{\_vtop\_bgroup\_boxlines \_parskip=0pt \_let\par=\_egroup}
\_def\_subject{{\_bf \_mtext{subj}: }}
\_public \address \subject ;
\_typosize[11/14]
\_vsize=\_dimexpr \_topskip + 49\_baselineskip \_relax % added 2020-03-28
\_parindent=0pt
\_parskip=\_medskipamount
\_nopagenumbers
}
\_def\_slides{\_par
\_input slides.opm
}
\_public \boxlines \letter \report \slides ;
\_endcode % -------------------------------------
The example of `\letter` style document follows:
\begtt %-----------------------------------------------------------------
\letter
\fontfam[bonum]
\chyph
\address
Vážený pan
Mgr. Bořek Byrokrat
ředitel Ústavu pro další možnosti
Úřední 789
123 45 Praha 1
\hfill V Praze dne \today
\subject Žádost o možnost další možnosti
Vážený pane řediteli
na základě Vašeho dopisu č.j.~123456/78-dat a elektronické výzvy si dovoluji
Vás požádat o prozkoumání mé možnosti další možnosti.
Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do
eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim
veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea
commodo consequat.
Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do
eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim
veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea
commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit
esse cillum dolore eu fugiat nulla pariatur.
S úctou
\hfill \address
{\it Petr Olšák}
specialista na \TeX{}
Ulice 12345
Praha 13
\bye
\endtt %---------------------------------------------------------------------
|
