From: Hans Hagen <pragma@wxs.nl>
To: ntg-context@ntg.nl
Subject: Re: dealing with footnotes and ol in XML
Date: Sun, 11 Jan 2015 22:58:08 +0100 [thread overview]
Message-ID: <54B2F1F0.9000007@wxs.nl> (raw)
In-Reply-To: <54B2E496.7030203@gmx.es>
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 : ntg-context@ntg.nl / 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
___________________________________________________________________________________
prev parent reply other threads:[~2015-01-11 21:58 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-01-09 10:41 Pablo Rodriguez
2015-01-09 11:18 ` Hans Hagen
2015-01-09 11:29 ` Hans Hagen
2015-01-09 12:24 ` Pablo Rodriguez
2015-01-10 13:01 ` Hans Hagen
2015-01-11 21:01 ` Pablo Rodriguez
2015-01-11 21:58 ` Hans Hagen [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=54B2F1F0.9000007@wxs.nl \
--to=pragma@wxs.nl \
--cc=ntg-context@ntg.nl \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).