Commit 1dbb67b4 authored by mrodzis's avatar mrodzis 🌎
Browse files

Add case for splitting headings

parent 9a640cfe
......@@ -365,6 +365,7 @@ declare function tidySimple:split-headings($nodes as node()*) as node()* {
$split-bottom
})
}
else
element {QName("http://www.tei-c.org/ns/1.0", $node/name())} {
$node/@*,
......@@ -374,6 +375,21 @@ declare function tidySimple:split-headings($nodes as node()*) as node()* {
default return
element {QName("http://www.tei-c.org/ns/1.0", $node/name())} {
$node/@*,
if($node/tei:add[@type = "edited_text" and @subtype = "interlinear"]) then
let $add := $node/tei:add[@type = "edited_text" and @subtype = "interlinear"]
return
(element {QName("http://www.tei-c.org/ns/1.0", "seg")} {
attribute type {"upper-part"},
$add/node()
},
element {QName("http://www.tei-c.org/ns/1.0", "lb")} {
attribute type {"edited_text"}
},
element {QName("http://www.tei-c.org/ns/1.0", "seg")} {
attribute type {"lower-part"},
$add/following-sibling::node()
})
else
tidySimple:split-headings($node/node())
}
};
\ No newline at end of file
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