1
2
3
4
5
6
7
8
9
10
11
12
13
14\writestatus { loading }{ ConTeXt Typesetting Macros Wrapping }
15
16\unprotect
17
18\registerctxluafile { typo wrp }{}
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35\unexpanded \def \crlf
36 { \ifhmode
37 \expandafter \spac_crlf
38 \fi }
39
40\unexpanded \def \spac_crlf
41 { \clf_enablecrlf
42 \unskip
43 \spac_crlf_placeholder
44 \ifcase \raggedstatus \hfil\or\or\or\hfil\fi
45
46 \break
47 \wordboundary
48
49 \ignorespaces }
50
51\unexpanded \def \spac_crlf_placeholder
52 { \strut }
53
54\unexpanded \def \spac_crlf_placeholder_show
55 { \wordboundary
56
57 \hpack to \zeropoint { \strut { \infofont \kern . 2 5 \emwidth } \lohi { \infofont CR }{ \infofont LF } \hss }}
58
59\unexpanded \def \settestcrlf
60 { \let \spac_crlf_placeholder \spac_crlf_placeholder_show }
61
62\unexpanded \def \crlfplaceholder
63 { \spac_crlf_placeholder }
64
65\appendtoks
66 \let \spac_crlf_placeholder \empty
67\to \everysetnostrut
68
69\appendtoks
70 \let \spac_crlf \space
71\to \everysimplifycommands
72
73\protect \endinput
74 |