Commit 0dd9e07f authored by MRodz's avatar MRodz Committed by mrodzis
Browse files

Add 3.21.12 writing over text

parent d408eb6d
......@@ -421,4 +421,20 @@ declare
function teisimple-test:analyze-hor-p-lines($node as element(*)) {
fontane-simple:transform($node)
};
\ No newline at end of file
};
(: 3.21.12 WRITING OVER TEXT :)
declare
%test:name("Writing over text")
%test:args("<mod xmlns=""http://www.tei-c.org/ns/1.0"" type=""subst""><del xmlns=""http://www.tei-c.org/ns/1.0""><seg xmlns=""http://www.tei-c.org/ns/1.0"" style=""text-decoration:line-through"">ſ</seg></del><del xmlns=""http://www.tei-c.org/ns/1.0"" rend=""overwritten"">eine</del><add xmlns=""http://www.tei-c.org/ns/1.0"" place=""superimposed"">ihre</add></mod>")
%test:assertEquals("ihre")
%test:args("<retrace xmlns=""http://www.tei-c.org/ns/1.0"">n</retrace>")
%test:assertEquals("n")
%test:args("<retrace xmlns=""http://www.tei-c.org/ns/1.0"" rend=""retrace-medium:brown_ink"">D</retrace>")
%test:assertEquals("<seg xmlns=""http://www.tei-c.org/ns/1.0"" rend=""retrace-medium:brown_ink"">D</seg>")
function teisimple-test:analyze-overwritten($node as element(*)) {
fontane-simple:transform($node)
};
......@@ -89,6 +89,14 @@ declare function fontane-simple:transform($nodes as node()*) as node()* {
()
else
fontane-simple:transform($node/node())
case element(tei:retrace) return
if($node/@rend) then
element tei:seg {
$node/@rend,
fontane-simple:transform($node/node())
}
else
fontane-simple:transform($node/node())
case element(tei:fw)
return
()
......
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