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
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : [email protected] / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
