[NTG-context] Re: Can \note repeat its footnote?

[Hans Hagen]

Stefan Wachter wrote:

> Hi Hans,
>
> thanks for your reply. Unfortunately your solution does not work 
> correctly. The following example produces one footnote at the first 
> page  but no footnote on the second page.
>
> \starttext
>
> funny\myfootnote[funny]{funny} funny\mynote[funny]
> \page
> funny\mynote[funny] funny\mynote[funny]
>
> \stoptext
>
> --Stefan
>
> PS: Would it be possible to use the same footnote mark again when a 
> footnote is repeated?

sure but this needs some thought (for instance clashing numbers/symbols)

\def\myfootnote[#1]#2% let's guess that #2 is without catcode problems
  {\setgvalue{note:t:#1}%
     {\setxvalue{note:l:#1}{\getvalue{note:n:#1}}%
      \footnote[note:a:#1:\getvalue{note:l:#1}]{#2}}%
   \setgvalue{note:n:#1}%
     {1}%
   \getvalue{note:t:#1}}%

\def\mynote[#1]%
  {\removeunwantedspaces
   \scratchcounter\getvalue{note:n:#1}\relax
   \edef\NoteNumber{\the\scratchcounter}%
   \doglobal\incrementvalue{note:n:#1}\relax
   \doifreferencefoundelse{note:a:#1:1}
     {\edef\NotePageA{\number\currentrealreference}%
      \doifreferencefoundelse{note:a:#1:\getvalue{note:n:#1}}
        {\edef\NotePageB{\number\currentrealreference}%
         \doifreferencefoundelse{note:a:#1:\NoteNumber}
           {\ifnum\currentrealreference=\NotePageB\relax
              \pagereference[note:a:#1:\getvalue{note:n:#1}]%
              \note[note:a:#1:\getvalue{note:l:#1}]%
            \else\ifnum\NotePageA=\NotePageB\relax
              \pagereference[note:a:#1:\getvalue{note:n:#1}]%
              \note[note:a:#1:\getvalue{note:l:#1}]%
            \else
              \getvalue{note:t:#1}%
            \fi\fi}
           {\ifnum\NotePageA=\NotePageB\relax
              \pagereference[note:a:#1:\getvalue{note:n:#1}]%
              \note[note:a:#1:\getvalue{note:l:#1}]%
            \else
              \getvalue{note:t:#1}%
            \fi}}
        {\pagereference[note:a:#1:\getvalue{note:n:#1}]%
         \note[note:a:#1:\getvalue{note:l:#1}]}}
     {\pagereference[note:a:#1:\getvalue{note:n:#1}]%
      \note[note:a:#1:\getvalue{note:l:#1}]}}

\starttext

% test \myfootnote[funny]{first occurence} test\mynote[funny]
% test \myfootnote[again]{first occurence} \page test \mynote[again]

funny \myfootnote[funny]{funny} funny \mynote[funny] \page

funny \mynote[funny] funny \mynote[funny] funny \mynote[funny] \page
funny \mynote[funny] funny \mynote[funny] \page
funny \mynote[funny] funny \mynote[funny] funny \mynote[funny] \page

\stoptext