summaryrefslogtreecommitdiff
path: root/tex/context/base/mkxl/typo-bld.mkxl
blob: a84b0ef2cca5c98929409a599e3e941c231c5f6f (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
%D \module
%D   [       file=typo-bld, % was node-par,
%D        version=2008.09.30,
%D          title=\CONTEXT\ Typesetting Macros,
%D       subtitle=Paragraph Building,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

\writestatus{loading}{ConTeXt Typesetting Macros / Paragraph Building}

%D This is very experimental, undocumented, subjected to changes, etc. just as
%D the underlying interfaces. But at least it's cleaned as part of the status-mkiv
%D cleanup.

% \enabletrackers[builders.hpack.overflow]
% \enabletrackers[builders.hpack.quality]
% \enabletrackers[builders.vpack.quality]

% \startparbuilder[default]
%     \input tufte \par
%     \startparbuilder[oneline]
%         \input tufte \par
%     \stopparbuilder
%     \input tufte \par
% \stopparbuilder
%
% \startparbuilder[oneline]
%     \dorecurse{100}{\input ward \par}
% \stopparbuilder

% \startluacode
%     function builders.paragraphs.constructors.methods.preroll_a(head)
%         local result, info = tex.linebreak(head)
%         tex.prevdepth = info.prevdepth
%         tex.prevgraf = info.prevgraf
%         return result
%     end
%     function builders.paragraphs.constructors.methods.preroll_b(head)
%         local result, info = tex.linebreak(nodes.nuts.copylist(head))
%         return true
%     end
% \stopluacode
%
% \defineparbuilder[preroll_a]
% \defineparbuilder[preroll_b]
%
% \starttext
%     \setmainparbuilder[default]   \input tufte \par \input tufte \page
%     \setmainparbuilder[preroll_a] \input tufte \par \input tufte \page
%     \setmainparbuilder[preroll_b] \input tufte \par \input tufte \page
% \stoptext

\unprotect

\registerctxluafile{typo-bld}{autosuffix}

\definesystemattribute[parbuilder][public]

\installcorenamespace {parbuilder}

\permanent\protected\def\defineparbuilder [#1]{\clf_defineparbuilder{#1}}
\permanent\protected\def\setmainparbuilder[#1]{\clf_setparbuilder{#1}}

\permanent\protected\def\startparbuilder  [#1]{\ifhmode\par\fi\clf_startparbuilder{#1}}
\permanent\protected\def\stopparbuilder       {\ifhmode\par\fi\clf_stopparbuilder}

%D There is no high level interface because after all implementing a linebreaker
%D is not something that the average user will do.

\defineparbuilder[default] % just for testing
\defineparbuilder[oneline] % just for testing
\defineparbuilder[basic]   % just for testing

%D This hooks in otr so we need to pickup.

\permanent\protected\def\enableparbuilders {\clf_enableparbuilder } % can be public implementor
\permanent\protected\def\disableparbuilders{\clf_disableparbuilder} % can be public implementor

\protect \endinput