[NTG-context] dealing with footnotes and ol in XML

[Hans Hagen]

On 1/11/2015 10:01 PM, Pablo Rodriguez wrote:
> On 01/10/2015 02:01 PM, Hans Hagen wrote:
>> On 1/9/2015 1:24 PM, Pablo Rodriguez wrote:
>>> [...]
>>> Footnotes that end with \par have wrong space with next footnote.
>>>
>>> I don’t know whether this is intended. How could I avoid that in XML?
>>
>> well, more unexpected .. messing with the depth is always tricky
>
> Many thanks for your code, Hans.
>
> I’m afraid I cannot get it working:
>
> \setupbodyfont[40pt]
> \startbuffer[demo]
> <doc>
>       <p>text<a href="#fn1" class="footnoteRef"
> id="fnref1"><sup>1</sup></a> with<a href="#fn2" class="footnoteRef"
> id="fnref2"><sup>2</sup></a> footnotes<a href="#fn3" class="footnoteRef"
> id="fnref3"><sup>3</sup></a></p>
>       <div class="footnotes">
>           <hr/>
>           <ol>
>               <li id="fn1"><p>footnote one</p><p>In two paragraphs<a
> href="#fnref1">↩</a></p></li>
>               <li id="fn2"><p>footnote two</p>In two paragraphs<a
> href="#fnref2">↩</a></li>
>               <li id="fn3"><p>footnote three</p><p>In two paragraphs<a
> href="#fnref3">↩</a></p></li>
>           </ol>
>       </div>
> </doc>
> \stopbuffer
>
> \starttext
>
> \usemodule[html]
>
> \xmlregistersetup{xml:html:basics}
> \xmlregistersetup{xml:html:tables}
>
> \startxmlsetups xml:initialize
>       \xmlsetsetup{#1}{a[@class='footnoteRef']}{xml:footnote:ref}
>       \xmlsetsetup{#1}{div[@class='footnotes']}{}
> \stopxmlsetups
>
> \xmlregistersetup{xml:initialize}
>
> \startxmlsetups xml:doc
>        \xmlflush{#1}
> \stopxmlsetups
>
> \startxmlsetups xml:footnote:set
>       \startfootnote
>           \xmlflush{#1}
>       \stopfootnote
> \stopxmlsetups
>
> \startluacode
>       local gsub = string.gsub
>       function xml.expressions.idstring(str)
>           return type(str) == "string" and gsub(str,"^#","") or ""
>       end
> \stopluacode
>
> \startxmlsetups xml:footnote:ref
> \xmlfilter{main}{div[@class='footnotes']/ol/li[@id=idstring('\xmlatt{#1}{href}')]/command(xml:footnote:set)}
> \stopxmlsetups
>
> \xmlprocessbuffer{main}{demo}{}
>
> \unexpanded\def\handlenoteitself#tag#id%
>     {\edef\currentnotenumber{#id}%
>      \edef\currentnote{#tag}%
>      \strc_constructions_initialize{#tag}%
>      \strc_notes_synchronize
>
>
> \edef\currentconstructionlistentry{\ctxcommand{notelistindex("\currentnote",#id)}}%
>
>      \reinstateconstructionnumberentry\currentconstructionlistentry
>      \dontcomplain
>      \strc_notes_interaction_check_display
>      \strc_notes_set_reference_attribute_text
>      \strc_constructions_stored_start
>      \begstrut
>      \strc_references_flush_destination_nodes
>      \strc_notes_set_destination_attribute_text
>      \strc_notes_inject_text
>      \ifvmode\obeydepth\else\endstrut\fi % \obeydepth new 2015-01-10
>      \strc_constructions_stored_stop}
>
> \stoptext
>
> Sorry, but this is all Greek to me. What am I doing wrong here?


put such code in cont-new.mkiv after \unprotect or wait for a beta

Hans

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
                                              | www.pragma-pod.nl
-----------------------------------------------------------------