* changing an XML node and reprocess it (or xmlflushing a string)
@ 2019-10-07 16:26 mf
2019-10-08 9:17 ` mf
0 siblings, 1 reply; 3+ messages in thread
From: mf @ 2019-10-07 16:26 UTC (permalink / raw)
To: mailing list for ConTeXt users
Hello,
i'm using XML and i find useful specifying a fraction made of text this way:
<span class="fraction">text for numerator/text for denominator</span>
With some lua, i can transform it into
\frac{\text{text for numerator}}{\text{text for denominator}}
which typesets something like this:
text for numerator
--------------------
text for denominator
Suppose you want to add some styling to the texts, like this:
<span class="fraction">text for <i>numerator</i>/text for
<b>denominator</b></span>
You should split the span node into two elements and the xmlflush them.
This is my M(not)WE:
\startbuffer[text]
<p>A paragraph with a fraction made of text with styles:
<span class="fraction">a <i>fraction</i> made of text/with
<red>styles</red> inside</span>.</p>
\stopbuffer
\startluacode
local sub = string.sub
local sfind = string.find
local xmltext = xml.text
local xmlconvert = xml.convert
local function numeratorDenominator( text )
local before, after = sfind( text, "[^<]/[^>]" )
local num, den
if before and after then
num = sub( text, 1, before )
den = sub( text, after )
end
return num, den
end
function xml.functions.textfraction( t )
local text = xmltext( t, '' )
local num, den = numeratorDenominator( text )
if num and den then
local fontstyle = tokens.getters.macro( "fontstyle" )
local xml_num = xmlconvert( num )
local xml_den = xmlconvert( den )
-- context( "$\\frac{\\text{\\" ..fontstyle .. " " .. num ..
"}}{\\text{\\" ..fontstyle .. " " .. den .. "}}$" )
context( "$\\frac{\\text{\\" ..fontstyle .. " " )
context( num ) -- context.xmlprocessstring( xml_num )
context( "}}{\\text{\\" ..fontstyle .. " " )
context( den ) -- context.xmlprocessstring( xml_den )
context( "}}$" )
else
context.xmlflush( t )
end
end
\stopluacode
\startxmlsetups xml:textsetups
\xmlsetsetup{#1}{*}{+}
\xmlsetsetup{#1}{p|i|red}{xml:*}
\xmlsetsetup{#1}{{span.fraction}}{xml:fraction}
\stopxmlsetups
\xmlregistersetup{xml:textsetups}
\startxmlsetups xml:p
\xmlflush{#1}\par
\stopxmlsetups
\startxmlsetups xml:i
{\it \xmlflush{#1}}
\stopxmlsetups
\startxmlsetups xml:red
{\red \xmlflush{#1}}
\stopxmlsetups
\startxmlsetups xml:fraction
\xmlfunction{#1}{textfraction}
\stopxmlsetups
\starttext
\xmlprocessbuffer{main}{text}{}
\stoptext
Massi
___________________________________________________________________________________
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://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: changing an XML node and reprocess it (or xmlflushing a string)
2019-10-07 16:26 changing an XML node and reprocess it (or xmlflushing a string) mf
@ 2019-10-08 9:17 ` mf
2019-10-08 10:30 ` Hans Hagen
0 siblings, 1 reply; 3+ messages in thread
From: mf @ 2019-10-08 9:17 UTC (permalink / raw)
To: mailing list for ConTeXt users
Solved with a dirty hack:
\startbuffer[text]
<p>A paragraph with a fraction made of text with styles:
<span class="fraction">a <i>fraction</i> made of text/with
<red><b>nested</b> styles</red> inside</span>.</p>
\stopbuffer
\startluacode
local gsub = string.gsub
local sfind = string.find
local xmlflush = lxml.flush
local startTextFraction = "$\\frac{\\text{"
local stopTextFraction = "}}$"
function xml.functions.textfraction( t )
local dt = t.dt
inspect( dt )
local wrapper
local slashfound = false
context( startTextFraction )
local index, child
for index, child in ipairs( dt ) do
if type( child ) == "string" then
if not slashfound and sfind( child, "/" ) then
context( gsub( child, "/", "}}{\\text{" ) )
slashfound = true
else
context( child )
end
elseif type( child ) == "table" then
wrapper = {
__parent__ = child.__parent__,
at = {},
dt = child
}
child.__parent__ = wrapper
xmlflush( wrapper )
end
end
context( stopTextFraction )
end
\stopluacode
\startxmlsetups xml:textsetups
\xmlsetsetup{#1}{*}{+}
\xmlsetsetup{#1}{p|i|b|red}{xml:*}
\xmlsetsetup{#1}{{span.fraction}}{xml:fraction}
\stopxmlsetups
\xmlregistersetup{xml:textsetups}
\startxmlsetups xml:p
\xmlflush{#1}\par
\stopxmlsetups
\startxmlsetups xml:i
{\it \xmlflush{#1}}
\stopxmlsetups
\startxmlsetups xml:red
{\red \xmlflush{#1}}
\stopxmlsetups
\startxmlsetups xml:b
{\bf \xmlflush{#1}}
\stopxmlsetups
\startxmlsetups xml:fraction
\xmlfunction{#1}{textfraction}
\stopxmlsetups
\starttext
\xmlprocessbuffer{main}{text}{}
\stoptext
Il 07/10/19 18:26, mf ha scritto:
> Hello,
> i'm using XML and i find useful specifying a fraction made of text this
> way:
>
> <span class="fraction">text for numerator/text for denominator</span>
>
> With some lua, i can transform it into
>
> \frac{\text{text for numerator}}{\text{text for denominator}}
>
> which typesets something like this:
>
> text for numerator
> --------------------
> text for denominator
>
> Suppose you want to add some styling to the texts, like this:
>
> <span class="fraction">text for <i>numerator</i>/text for
> <b>denominator</b></span>
>
> You should split the span node into two elements and the xmlflush them.
> This is my M(not)WE:
>
> \startbuffer[text]
> <p>A paragraph with a fraction made of text with styles:
> <span class="fraction">a <i>fraction</i> made of text/with
> <red>styles</red> inside</span>.</p>
> \stopbuffer
>
> \startluacode
> local sub = string.sub
> local sfind = string.find
> local xmltext = xml.text
> local xmlconvert = xml.convert
>
> local function numeratorDenominator( text )
> local before, after = sfind( text, "[^<]/[^>]" )
> local num, den
> if before and after then
> num = sub( text, 1, before )
> den = sub( text, after )
> end
> return num, den
> end
>
>
> function xml.functions.textfraction( t )
> local text = xmltext( t, '' )
> local num, den = numeratorDenominator( text )
> if num and den then
> local fontstyle = tokens.getters.macro( "fontstyle" )
> local xml_num = xmlconvert( num )
> local xml_den = xmlconvert( den )
> -- context( "$\\frac{\\text{\\" ..fontstyle .. " " .. num ..
> "}}{\\text{\\" ..fontstyle .. " " .. den .. "}}$" )
> context( "$\\frac{\\text{\\" ..fontstyle .. " " )
> context( num ) -- context.xmlprocessstring( xml_num )
> context( "}}{\\text{\\" ..fontstyle .. " " )
> context( den ) -- context.xmlprocessstring( xml_den )
> context( "}}$" )
> else
> context.xmlflush( t )
> end
> end
> \stopluacode
>
> \startxmlsetups xml:textsetups
> \xmlsetsetup{#1}{*}{+}
> \xmlsetsetup{#1}{p|i|red}{xml:*}
> \xmlsetsetup{#1}{{span.fraction}}{xml:fraction}
> \stopxmlsetups
>
> \xmlregistersetup{xml:textsetups}
>
> \startxmlsetups xml:p
> \xmlflush{#1}\par
> \stopxmlsetups
>
> \startxmlsetups xml:i
> {\it \xmlflush{#1}}
> \stopxmlsetups
>
> \startxmlsetups xml:red
> {\red \xmlflush{#1}}
> \stopxmlsetups
>
> \startxmlsetups xml:fraction
> \xmlfunction{#1}{textfraction}
> \stopxmlsetups
>
> \starttext
> \xmlprocessbuffer{main}{text}{}
> \stoptext
>
> Massi
___________________________________________________________________________________
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://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: changing an XML node and reprocess it (or xmlflushing a string)
2019-10-08 9:17 ` mf
@ 2019-10-08 10:30 ` Hans Hagen
0 siblings, 0 replies; 3+ messages in thread
From: Hans Hagen @ 2019-10-08 10:30 UTC (permalink / raw)
To: mailing list for ConTeXt users, mf
On 10/8/2019 11:17 AM, mf wrote:
> Solved with a dirty hack:
>
> \startbuffer[text]
> <p>A paragraph with a fraction made of text with styles:
> <span class="fraction">a <i>fraction</i> made of text/with
> <red><b>nested</b> styles</red> inside</span>.</p>
> \stopbuffer
>
> \startluacode
> local gsub = string.gsub
> local sfind = string.find
> local xmlflush = lxml.flush
>
> local startTextFraction = "$\\frac{\\text{"
> local stopTextFraction = "}}$"
>
> function xml.functions.textfraction( t )
> local dt = t.dt
> inspect( dt )
> local wrapper
> local slashfound = false
> context( startTextFraction )
> local index, child
^^ Not needed, they are local to the for loop
> for index, child in ipairs( dt ) do
> if type( child ) == "string" then
> if not slashfound and sfind( child, "/" ) then
> context( gsub( child, "/", "}}{\\text{" ) )
> slashfound = true
> else
> context( child )
> end
> elseif type( child ) == "table" then
> wrapper = {
> __parent__ = child.__parent__,
> at = {},
> dt = child
> }
> child.__parent__ = wrapper
> xmlflush( wrapper )
> end
> end
> context( stopTextFraction )
> end
> \stopluacode
or, to get rid of the wrapper:
\startluacode
local gsub, find = string.gsub, string.find
local xmlprint = xml.sprint
local context = context
local startTextFraction = "$\\frac{\\text{"
local stopTextFraction = "}}$"
function xml.functions.textfraction(t)
context(startTextFraction)
local slashfound = false
local elements = t.dt
for i=1,#elements do
local child = elements[i]
if type(child) == "table" then
-- lxml.all(child,".")
xmlprint(child,t)
elseif not slashfound and find(child,"/") then
context((gsub(child,"/","}}{\\text{")))
slashfound = true
else
context(child)
end
end
context(stopTextFraction)
end
\stopluacode
i'll add the example to the "todo" for a "very dirty tricks" chapter
some day
> \startxmlsetups xml:textsetups
> \xmlsetsetup{#1}{*}{+}
> \xmlsetsetup{#1}{p|i|b|red}{xml:*}
> \xmlsetsetup{#1}{{span.fraction}}{xml:fraction}
> \stopxmlsetups
>
> \xmlregistersetup{xml:textsetups}
>
> \startxmlsetups xml:p
> \xmlflush{#1}\par
> \stopxmlsetups
>
> \startxmlsetups xml:i
> {\it \xmlflush{#1}}
> \stopxmlsetups
>
> \startxmlsetups xml:red
> {\red \xmlflush{#1}}
> \stopxmlsetups
>
> \startxmlsetups xml:b
> {\bf \xmlflush{#1}}
> \stopxmlsetups
>
> \startxmlsetups xml:fraction
> \xmlfunction{#1}{textfraction}
> \stopxmlsetups
>
> \starttext
> \xmlprocessbuffer{main}{text}{}
> \stoptext
>
>
> Il 07/10/19 18:26, mf ha scritto:
>> Hello,
>> i'm using XML and i find useful specifying a fraction made of text
>> this way:
>>
>> <span class="fraction">text for numerator/text for denominator</span>
>>
>> With some lua, i can transform it into
>>
>> \frac{\text{text for numerator}}{\text{text for denominator}}
>>
>> which typesets something like this:
>>
>> text for numerator
>> --------------------
>> text for denominator
>>
>> Suppose you want to add some styling to the texts, like this:
>>
>> <span class="fraction">text for <i>numerator</i>/text for
>> <b>denominator</b></span>
>>
>> You should split the span node into two elements and the xmlflush them.
>> This is my M(not)WE:
>>
>> \startbuffer[text]
>> <p>A paragraph with a fraction made of text with styles:
>> <span class="fraction">a <i>fraction</i> made of text/with
>> <red>styles</red> inside</span>.</p>
>> \stopbuffer
>>
>> \startluacode
>> local sub = string.sub
>> local sfind = string.find
>> local xmltext = xml.text
>> local xmlconvert = xml.convert
>>
>> local function numeratorDenominator( text )
>> local before, after = sfind( text, "[^<]/[^>]" )
>> local num, den
>> if before and after then
>> num = sub( text, 1, before )
>> den = sub( text, after )
>> end
>> return num, den
>> end
>>
>>
>> function xml.functions.textfraction( t )
>> local text = xmltext( t, '' )
>> local num, den = numeratorDenominator( text )
>> if num and den then
>> local fontstyle = tokens.getters.macro( "fontstyle" )
>> local xml_num = xmlconvert( num )
>> local xml_den = xmlconvert( den )
>> -- context( "$\\frac{\\text{\\" ..fontstyle .. " " .. num ..
>> "}}{\\text{\\" ..fontstyle .. " " .. den .. "}}$" )
>> context( "$\\frac{\\text{\\" ..fontstyle .. " " )
>> context( num ) -- context.xmlprocessstring( xml_num )
>> context( "}}{\\text{\\" ..fontstyle .. " " )
>> context( den ) -- context.xmlprocessstring( xml_den )
>> context( "}}$" )
>> else
>> context.xmlflush( t )
>> end
>> end
>> \stopluacode
>>
>> \startxmlsetups xml:textsetups
>> \xmlsetsetup{#1}{*}{+}
>> \xmlsetsetup{#1}{p|i|red}{xml:*}
>> \xmlsetsetup{#1}{{span.fraction}}{xml:fraction}
>> \stopxmlsetups
>>
>> \xmlregistersetup{xml:textsetups}
>>
>> \startxmlsetups xml:p
>> \xmlflush{#1}\par
>> \stopxmlsetups
>>
>> \startxmlsetups xml:i
>> {\it \xmlflush{#1}}
>> \stopxmlsetups
>>
>> \startxmlsetups xml:red
>> {\red \xmlflush{#1}}
>> \stopxmlsetups
>>
>> \startxmlsetups xml:fraction
>> \xmlfunction{#1}{textfraction}
>> \stopxmlsetups
>>
>> \starttext
>> \xmlprocessbuffer{main}{text}{}
>> \stoptext
>>
>> Massi
> ___________________________________________________________________________________
>
> 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://context.aanhet.net
> archive : https://bitbucket.org/phg/context-mirror/commits/
> wiki : http://contextgarden.net
> ___________________________________________________________________________________
>
--
-----------------------------------------------------------------
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | www.pragma-ade.nl | 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://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2019-10-08 10:30 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2019-10-07 16:26 changing an XML node and reprocess it (or xmlflushing a string) mf
2019-10-08 9:17 ` mf
2019-10-08 10:30 ` Hans Hagen
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).