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{typowrp}{autosuffix}
19
20\definesystemattribute[crlf]
21
22\permanent\protected\def\crlf
23 {\ifhmode
24 \expandafter\spac_crlf
25 \fi}
26
27\protected\def\spac_crlf
28 {\clf_enablecrlf
29 \unskip
30 \wordboundary
31 \spac_crlf_placeholder
32 \ifcase\raggedstatus\hfil\or\or\or\hfil\fi
33
34 \break
35 \begingroup
36 \c_attr_crlf\plusone
37 \wordboundary
38 \endgroup
39
40 \ignorespaces}
41
42\protected\def\spac_crlf_placeholder
43 {\strut}
44
45\protected\def\spac_crlf_placeholder_show
46 {\hpack to \zeropoint{\strut{\infofont\kern.25\emwidth}\lohi{\infofont CR}{\infofont LF}\hss}}
47
48\permanent\protected\def\settestcrlf
49 {\let\spac_crlf_placeholder\spac_crlf_placeholder_show}
50
51\permanent\protected\def\crlfplaceholder
52 {\wordboundary\strut}
53
54\appendtoks
55 \lettonothing\spac_crlf_placeholder
56\to \everysetnostrut
57
58\appendtoks
59 \let\spac_crlf\space
60\to \everysimplifycommands
61
62
63
64
65
66
67
68
69\newboundary\c_tightfit_boundary
70
71\permanent\protected\def\tightfitboundary
72 {\clf_enabletighten
73 \boundary\c_tightfit_boundary}
74
75\protect \endinput
76 |