summaryrefslogtreecommitdiff
path: root/tex/context/base/mkxl/strc-lnt.mklx
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/mkxl/strc-lnt.mklx')
-rw-r--r--tex/context/base/mkxl/strc-lnt.mklx28
1 files changed, 15 insertions, 13 deletions
diff --git a/tex/context/base/mkxl/strc-lnt.mklx b/tex/context/base/mkxl/strc-lnt.mklx
index 2a06d3c79..f389442d8 100644
--- a/tex/context/base/mkxl/strc-lnt.mklx
+++ b/tex/context/base/mkxl/strc-lnt.mklx
@@ -87,6 +87,8 @@
% maybe do this in lua
+\mutable\let\currentlinenotereference\empty
+
\def\page_lines_in_from{\in[lr:b:\currentlinenotereference]}
\def\page_lines_in_to {\in[lr:e:\currentlinenotereference]}
@@ -136,6 +138,8 @@
\let\currentlinenotereference\empty
+\mutable\let\linenotelinenumber\relax
+
\protected\def\strc_linenotes_indeed#1#2#3%
{\begingroup
% we keep things local so we can use it as regular note too
@@ -145,8 +149,8 @@
\xdef\m_page_lines_previous_to {\begincsname\??linenotespreviousto \currentnotation\endcsname}%
\strc_linenotes_check_compression
\let\currentnote\currentnotation
- \letnotationparameter\c!numbercommand\linenotelinenumber% todo: deep hook
- \letnoteparameter \c!textcommand \gobbleoneargument % todo: deep hook
+ \letnotationparameter\c!numbercommand\linenotelinenumber % todo: deep hook, beware: should be mutable
+ \letnoteparameter \c!textcommand \gobbleoneargument % todo: deep hook
\csname\??linenote\currentnotation\endcsname{#3}%
\gletcsname\??linenotespreviousfrom\currentnotation\endcsname\m_page_lines_current_from
\gletcsname\??linenotespreviousto \currentnotation\endcsname\m_page_lines_current_to
@@ -231,17 +235,15 @@
\let\strc_linenotes_traced\gobbleoneargument
\def\strc_linenotes_traced_indeed#1%
- {\iftracelinenotes
- \hpack to \zeropoint
- {\forgetall
- \hsize\zeropoint
- \hss
- \vpack to \strutheight{\llap{\red\infofont\setstrut\the\c_strc_linenotes}\vss}%
- {\color[blue]{\vl}}%
- \vpack to \strutheight{\rlap{\red\infofont\setstrut#1}\vss}%
- \hss}%
- \prewordbreak
- \fi}
+ {\hpack to \zeropoint
+ {\forgetall
+ \hsize\zeropoint
+ \hss
+ \vpack to \strutheight{\llap{\red\infofont\setstrut\the\c_strc_linenotes}\vss}%
+ {\color[blue]{\vl}}%
+ \vpack to \strutheight{\rlap{\red\infofont\setstrut#1}\vss}%
+ \hss}%
+ \prewordbreak}
\permanent\protected\def\tracelinenotes
{\let\strc_linenotes_traced\strc_linenotes_traced_indeed}