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
|
%% This is part of OpTeX project, see http://petr.olsak.net/optex
\_codedecl \uv {Miscenaleous <2020-05-22>} % preloaded in format
\_doc ----------------------------
\`\useOpTeX` and \`\useoptex` are declared as `\relax`.
\_cod ----------------------------
\_let \useOpTeX = \_relax \_let \useoptex = \_relax
\_doc ----------------------------
The \`\lastpage` and \`\totalpages` get the information from the
\^`\_currpage`. The \^`\_Xpage` from `.ref` file sets the \^`\_currpage`.
\_cod ----------------------------
\_def\_totalpages {\_openref\_ea\_lastpageA\_currpage}
\_def\_lastpage {\_openref\_ea\_lastpageB\_currpage}
\_def\_lastpageA #1#2{#1}
\_def\_lastpageB #1#2{#2}
\_def\_currpage {{0}{?}}
\_public \lastpage \totalpages ;
\_doc ----------------------------
We need \`\uv`, \`\clqq`, \`\crqq`, \`\flqq`, \`\frqq`, \`\uslang`, \`\ehyph`
\`\chyph`, \`\shyph`, for backward compatibility with \csplain.
Codes are set according to Unicode, because we are using Czech only in Unicode
when \LuaTeX/ is used.
\_cod ----------------------------
% for compatibility with csplain:
\_chardef\clqq=8222 \_chardef\crqq=8220
\_chardef\flqq=171 \_chardef\frqq=187
\_chardef\promile=8240
\_def\uv#1{\clqq#1\crqq}
\_let\uslang=\enlang \_let\ehyph=\enlang
\_let\chyph=\cslang \_let\shyph=\sklang
\_let\csUnicode=\csPatt \_let\czUnicode=\csPatt \_let\skUnicode=\skPatt
\_doc ----------------------------
The \`\letfont` was used in \csplain/ instead of `\fontlet`.
\_cod ----------------------------
\_let \letfont = \_fontlet
\_doc ----------------------------
Non breaking space in Unicode.
\_cod ----------------------------
\let ^^a0=~
\_doc ----------------------------
TikZ needs these funny control sequences.
\_cod ----------------------------
\_ea\_toksdef \_csname toks@\_endcsname=0
\_ea\_let \_csname voidb@x\_endcsname=\_voidbox
\_doc ----------------------------
We don't want to read `opmac.tex` unless `\input opmac` is specified.
\_cod ----------------------------
\_def\OPmacversion{OpTeX}
\_doc ----------------------------
We allow empty lines in math formulae. It is more comfortable.
\_cod ----------------------------
\_suppressmathparerror = 1
\_doc ----------------------------
Lorem ipsum can be printed by \`\lipsum``[<range>]` or \`\lorem``[<range>]`,
for example `\lipsum[3]` or `\lipsum[112-121]`, max=150.
First usage of `\lipsum` reads the \LaTeX/ file `lipsum.ltd.tex`
and prints the selected paragraph(s). Next usages of `\lipsum`
prints the selected paragraph(s) from memory. This second and more
usages of `\lipsum` are fully expandable. If you want to have all
printings of `\lipsum` expandable, use dummy `\lipsum[0]` first.
\_cod ----------------------------
\_def \_lipsum {%
{\_long\_def\ProvidesFile##1[##2]##3{\_ifx\_par##3\_relax\_else \_ea##3\_fi}\_tmpnum=0
\_def\NewLipsumPar{\_advance\_tmpnum by1
\_afterassignment\_negativermnm \_sxdef{lips:\_the\_tmpnum}}%
\_opinput {lipsum.ltd.tex}%
\_global\_let \_lipsum=\_reallipsum
}\_lipsum
}
\_def\_negativermnm{\_romannumeral-`\.}
\_def\_reallipsum[#1]{\_lipsumA #1\_empty-\_empty\_end}
\_def\_lipsumA #1-#2\_empty#3\_end{%
\_fornum #1..\_ifx^#2^#1\_else#2\_fi \_do {\_csname lips:##1\_endcsname \par}}
\def\lipsum {\_lipsum}
\def\lorem {\_lipsum}
\_endcode
2020-05-22 \lipsum uses \fornum (expandable after first usage)
2020-04-02 released
|
