2018-07-26 20:48:00

2 files changed, 71 insertions, 1 deletions

diff --git a/tex/context/modules/mkiv/m-maybe.mkiv b/tex/context/modules/mkiv/m-maybe.mkiv
new file mode 100644
index 000000000..d019828f5
--- /dev/null
+++ b/tex/context/modules/mkiv/m-maybe.mkiv
@@ -0,0 +1,57 @@
+%D \module
+%D   [       file=m-maybe,
+%D        version=2018.07.26,
+%D          title=\CONTEXT\ Extra Modules,
+%D       subtitle=Maybe some day,
+%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.
+
+%D The code here is not in the core and might never be as it's probably not
+%D of much use and|/|or can interfere.
+
+\unprotect
+
+% \showframe
+% \starttext
+%     \tweakpagegoal[-\lineheight]
+%     \dorecurse{40}{\inleftmargin{!}\input ward\par}
+% \stoptext
+
+\def\page_scale_text_box_indeed#1%
+  {\scratchheight\ht#1\relax
+   \scratchwidth \wd#1\relax
+   \setbox#1\vpack\bgroup
+     \hpack\bgroup
+       \scale
+        [\c!height=\dimexpr\textheight-\d_page_adapts_delta\relax,
+         \c!width=\scratchwidth]
+        {\box#1}%
+     \egroup
+   \egroup
+   \global\d_page_adapts_delta\zeropoint
+   \glet\page_scale_text_box\gobbleoneargument
+   \ht#1\scratchheight
+   \wd#1\scratchwidth}
+
+\unexpanded\def\tweakpagegoal[#1]%
+  {\ifx\currentoutputroutine\s!singlecolumn
+     \global\d_page_adapts_delta\dimexpr#1\relax
+     \ifdim\d_page_adapts_delta=\zeropoint
+       \glet\page_scale_text_box\gobbleoneargument
+     \else
+       \glet\page_scale_text_box\page_scale_text_box_indeed
+     \fi
+   \else
+     \global\d_page_adapts_delta\zeropoint
+     \glet\page_scale_text_box\gobbleoneargument
+   \fi
+   \page_otr_command_set_vsize}
+
+\protect
+
+\endinput
diff --git a/tex/context/modules/mkiv/m-scite.mkiv b/tex/context/modules/mkiv/m-scite.mkiv
index 92a498b37..f1a45574e 100644
--- a/tex/context/modules/mkiv/m-scite.mkiv
+++ b/tex/context/modules/mkiv/m-scite.mkiv
@@ -102,7 +102,8 @@ local function exportcolors()
         local function black(f)
             return (f[1] == f[2]) and (f[2] == f[3]) and (f[3] == 0)
         end
-        local result, r = { f_mapping }, 1
+--         local result, r = { f_mapping }, 1
+local result, r = { }, 0
         for k, v in table.sortedhash(lexer.context.styles) do
             local fore = v.fore
             if fore and not black(fore) then
@@ -347,6 +348,18 @@ visualizers.register("sql",   visualizer)
 \let\slxe    \space
 \let\slxbreak\relax
 
+\let\slxL    \letterleftbrace
+\let\slxR    \letterrightbrace
+\let\slxM    \letterdollar
+\let\slxV    \letterbar
+\let\slxU    \letterhat
+\let\slxD    \letterunderscore
+\let\slxH    \letterhash
+\let\slxB    \letterbackslash
+\let\slxP    \letterpercent
+\let\slxT    \lettertilde
+\let\slxS    \fixedspace
+
 \let\slxS    \buff_scite_slxs
 \let\slxF    \buff_scite_slxf