Commit bdc49c50 authored by Mathias Goebel's avatar Mathias Goebel 🎠
Browse files

new mod seq routine

parent a578a787
......@@ -353,19 +353,10 @@ attribute class {
string($n/@subtype),
if (exists($n/preceding-sibling::tei:addSpan) and $n/preceding-sibling::tei:addSpan/substring-after(@spanTo, '#') = $n/following-sibling::tei:anchor/@xml:id ) then 'addSpan' else(),
(: mod sequence #1 :)
if (exists($n/child::tei:mod[@seq]) or exists($n/preceding-sibling::tei:mod[@seq]))
then
let $thisMod := ($n/child::tei:mod[@seq], $n/preceding-sibling::tei:mod[@seq])[1]
let $anchor := $n/root()//tei:anchor[@xml:id = $thisMod/substring-after(@spanTo, '#')]
return
if($thisMod << $anchor)
then 'mod-seq-' || $thisMod/@seq
else ()
else (),
let $mod := $n/preceding::tei:mod[@seq][parent::tei:zone][substring-after(@spanTo, '#') = $n/following::tei:anchor/string(@xml:id)]
return
if ($mod)
then 'test-mod-seq-' || $mod/@seq
then 'mod-seq-' || $mod/@seq
else (),
if ($n/@type="illustration") then 'figure' else(),
transfo:segStyle($n),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment