diff options
| author | Hans Hagen <pragma@wxs.nl> | 2018-10-18 00:46:16 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2018-10-18 00:46:16 +0200 |
| commit | e2ee706a3114129601a30908d6b8cbb57068d32c (patch) | |
| tree | 222b1047f4a7fe1144fefe5d0e52b78604a00f58 /tex/context/base/mkiv/tabl-tsp.mkiv | |
| parent | e5f189d9965a70c8f3043c07c7b07d41ef268e93 (diff) | |
| download | context-e2ee706a3114129601a30908d6b8cbb57068d32c.tar.gz | |
2018-10-18 00:16:00
Diffstat (limited to 'tex/context/base/mkiv/tabl-tsp.mkiv')
| -rw-r--r-- | tex/context/base/mkiv/tabl-tsp.mkiv | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/tex/context/base/mkiv/tabl-tsp.mkiv b/tex/context/base/mkiv/tabl-tsp.mkiv index 2c4b694b3..e0ddce38a 100644 --- a/tex/context/base/mkiv/tabl-tsp.mkiv +++ b/tex/context/base/mkiv/tabl-tsp.mkiv @@ -441,6 +441,35 @@ \exitloop \fi\fi} +%D Maybe handy: +%D +%D \starttyping +%D \splitfloat +%D {\placefigure{some caption}} +%D {\startsplittext +%D \typefile[option=TEX,before=,after=]{oeps.tex} +%D \stopsplittext} +%D \stoptyping + +\def\handlesplittext#1% + {\setbox\tsplitresult\vbox + {\vsplit\tsplitcontent to \dimexpr#1-\lineheight\relax}} + +\unexpanded\def\startsplittext + {\begingroup + \resettsplit + \let\tsplitminimumfreelines\!!zerocount + \let\tsplitminimumfreespace\!!zeropoint + \let\extrasplitfloatlines \!!plusone + \let\tsplitdirectsplitter \handlesplittext + \setbox\tsplitcontent\vbox\bgroup + \insidefloattrue} + +\unexpanded\def\stopsplittext + {\egroup + \handledirecttsplit + \endgroup} + \protect \endinput % test cases |