%D \module %D [ file=core-lme, %D version=2006.08.14, %D title=\CONTEXT\ Core Macros, %D subtitle=LAst Minute Extensions, %D author=Hans Hagen, %D date=\currentdate, %D copyright={PRAGMA / Hans Hagen \& Ton Otten}] %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 Core Macros / Last Minute Extensions} %D Things that depend on too much other things. \unprotect %D Probably obsolete, depends on \type {\checksidefloat}. May disappear. \def\checkframedtext {\ifinsidefloat \localhsize\hsize \else\ifdim\sidefloatvsize>\zeropoint % will be proper handle % \strut % rather clean way to invoke the sidefloat OTR % \setbox0=\lastbox % and get the widths set, so from now on we % \setlocalhsize % can have framed texts alongside sidefloats \checksidefloat \setlocalhsize \else \localhsize\hsize \fi\fi} %D For my eyes only: \newcount\nofprofiled \def\profilemacro#1% {\nofprofiled\zerocount \letvalue{\string#1\string#1}#1% \appendtoks \normalwritestatus\m!systems{profile \string#1: \number\nofprofiled}% \to \everystoptext \unexpanded\def#1% {\global\advance\nofprofiled\plusone \csname\string#1\string#1\endcsname}} %D Some plain goodies, they may be moved to \type {m-plain.tex} some day. \ifx\hang \undefined \def\hang {\hangindent\parindent} \fi \ifx\textindent\undefined \def\textindent#1{\indent\llap{#1\enspace}\ignorespaces} \fi \ifx\narrower \undefined \def\narrower {\advance\leftskip \parindent\advance\rightskip\parindent} \fi \protect \endinput