diff options
Diffstat (limited to 'tex/context/base/mkxl/typo-wrp.mkxl')
-rw-r--r-- | tex/context/base/mkxl/typo-wrp.mkxl | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/tex/context/base/mkxl/typo-wrp.mkxl b/tex/context/base/mkxl/typo-wrp.mkxl new file mode 100644 index 000000000..b552c151a --- /dev/null +++ b/tex/context/base/mkxl/typo-wrp.mkxl @@ -0,0 +1,58 @@ +%D \module +%D [ file=typo-wrp, +%D version=2014.11.09, +%D title=\CONTEXT\ Typesetting Macros, +%D subtitle=Wrappers, +%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 / Wrapping} + +\unprotect + +\registerctxluafile{typo-wrp}{} + +\permanent\protected\def\crlf + {\ifhmode + \expandafter\spac_crlf + \fi} + +\protected\def\spac_crlf + {\clf_enablecrlf % once + \unskip + \spac_crlf_placeholder + \ifcase\raggedstatus\hfil\or\or\or\hfil\fi + % in bad usage this can lead to: [break -10000] [wordboundary] [line(break)penalty] [parfillskip] + \break + \wordboundary + % which we then remove (maybe we should flag the wordboundary with an attribute but not now + \ignorespaces} + +\protected\def\spac_crlf_placeholder + {\strut} + +\protected\def\spac_crlf_placeholder_show + {\wordboundary + %\nobreak + \hpack to \zeropoint{\strut{\infofont\kern.25\emwidth}\lohi{\infofont CR}{\infofont LF}\hss}} + +\permanent\protected\def\settestcrlf + {\let\spac_crlf_placeholder\spac_crlf_placeholder_show} + +\permanent\protected\def\crlfplaceholder % for old times sake + {\spac_crlf_placeholder} + +\appendtoks + \let\spac_crlf_placeholder\empty +\to \everysetnostrut + +\appendtoks + \let\spac_crlf\space +\to \everysimplifycommands + +\protect \endinput |