2016-01-12 16:26:00

1 files changed, 51 insertions, 0 deletions

diff --git a/tex/context/base/mkiv/spac-adj.mkiv b/tex/context/base/mkiv/spac-adj.mkiv
new file mode 100644
index 000000000..ad0f92a1f
--- /dev/null
+++ b/tex/context/base/mkiv/spac-adj.mkiv
@@ -0,0 +1,51 @@
+%D \module
+%D   [       file=spac-adj, % moved from spac-par.mkiv
+%D        version=2009.10.16, % 1997.03.31, was core-spa.tex
+%D          title=\CONTEXT\ Spacing Macros,
+%D       subtitle=Paragraphs,
+%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 Spacing Macros / Adjustments}
+
+\unprotect
+
+% Very nasty but needed for margin stuff inside colored
+% paragraphs. Obsolete for while .
+
+\registerctxluafile{spac-adj}{1.001}
+
+\definesystemattribute [graphicvadjust]  [public]
+
+\unexpanded\def\enablegraphicvadjust
+  {\writestatus\m!systems{graphicvadjusting is no longer needed!}
+   \clf_enablegraphicvadjust %once anyway
+   \glet\enablegraphicvadjust\relax}
+
+\unexpanded\def\graphicvadjust % currently not enabled ... nasty bidi handling
+  {\clf_enablegraphicvadjust   % and probably no longer needed anyway
+   \dowithnextboxcontentcs\forgetall\spac_vadjust_graphic_finish\vbox}
+
+\def\spac_vadjust_graphic_finish
+  {\vadjust
+     {\vbox attr \graphicvadjustattribute \plusone
+        {\unvbox\nextbox
+         % corrects for one line paragraphs
+         \nointerlineskip
+         \kern-\struttotal
+         \nointerlineskip
+         \verticalstrut}}}
+
+\unexpanded\def\fakedvadjust
+  {\dowithnextboxcs\spac_vadjust_faked_finish\vtop}
+
+\def\spac_vadjust_faked_finish
+  {\setbox\nextbox\hpack{\llap{\lower\strutdepth\box\nextbox}}%
+   \smashedbox\nextbox}
+
+\protect \endinput