summaryrefslogtreecommitdiff
path: root/tex/context/base/mkiv/strc-ref.mkvi
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2019-09-10 21:16:35 +0200
committerContext Git Mirror Bot <phg@phi-gamma.net>2019-09-10 21:16:35 +0200
commit58c7c9288160407c874930aac789ef6ef3faa6b5 (patch)
tree9cc1d4be11cd66b4e4f77209bac07d41c8d949ee /tex/context/base/mkiv/strc-ref.mkvi
parent438b065a2337ee587442f25ddc587c4762f4d0b0 (diff)
downloadcontext-58c7c9288160407c874930aac789ef6ef3faa6b5.tar.gz
2019-09-10 20:11:00
Diffstat (limited to 'tex/context/base/mkiv/strc-ref.mkvi')
-rw-r--r--tex/context/base/mkiv/strc-ref.mkvi15
1 files changed, 15 insertions, 0 deletions
diff --git a/tex/context/base/mkiv/strc-ref.mkvi b/tex/context/base/mkiv/strc-ref.mkvi
index 05abd4930..cfe8744e2 100644
--- a/tex/context/base/mkiv/strc-ref.mkvi
+++ b/tex/context/base/mkiv/strc-ref.mkvi
@@ -1062,6 +1062,21 @@
\def\referencerealpage
{\clf_referencerealpage}
+% \unexpanded\def\columnreference#1%
+% {\dontleavehmode
+% \hpack to \zeropoint{\hpos{\v!column:#1}{\kern\dimexpr\textwidth/\nofcolumns\relax}\hss}}
+%
+% \def\columnnumber#1%
+% {\numexpr\dimexpr\MPx{\v!column:#1}\relax/\dimexpr\MPw{\v!column:#1}\relax\relax}
+%
+% but nicer is:
+
+\def\referencecolumnnumber
+ {\numexpr
+ \dimexpr\clf_referenceposx-\cutspace\relax/\dimexpr\makeupwidth/\nofcolumns\relax
+ +\plusone
+ \relax}
+
\unexpanded\def\tracedpagestate
{{\blue\tttf(\ifcase\referencepagedetail unknown\or same\or previous\or next\or above\or below\else unknown\fi)}}