Commit 8b2f8097 authored by MRodz's avatar MRodz Committed by mrodzis
Browse files

Add first draft for correction marks

parent 4ea337aa
......@@ -665,3 +665,23 @@ declare
function teisimple-test:analyze-notes($node as element(*)) {
fontane-simple:transform($node)
};
(: 3.21.24 CORRECTION MARKS :)
declare
%test:name("Correction marks")
(: TODO: find out why test doesn't work :)
(: %test:args("<line xmlns=""http://www.tei-c.org/ns/1.0"" style=""margin-left:0.3cm"">Macchiavell. Alfieri<add xmlns=""http://www.tei-c.org/ns/1.0"" rend=""|""> </add>gefiel</line>"):)
(: %test:assertEquals("Macchiavell. Alfieri", " ", "gefiel") :)
%test:args("<metamark xmlns=""http://www.tei-c.org/ns/1.0"" function=""connect"" rend=""arc""/>")
%test:assertEmpty
%test:args("<metamark xmlns=""http://www.tei-c.org/ns/1.0"" function=""paragraph"">z</metamark>")
%test:assertEmpty
%test:args("<metamark xmlns=""http://www.tei-c.org/ns/1.0"" function=""connect"" corresp=""#A19_23r_6"" target=""#A19_23r_a""><figure rend=""medium:blue_pencil""><figDesc><ref target=""http://vocab.getty.edu/aat/300200009"">Anschlusszeichen Stufe</ref></figDesc></figure></metamark>")
%test:assertEmpty
function teisimple-test:analyze-correction-marks($node as element(*)) {
fontane-simple:transform($node)
};
\ No newline at end of file
......@@ -120,6 +120,8 @@ declare function fontane-simple:transform($nodes as node()*) as node()* {
local:keep-element($node)
else if($node/@cause ="catchword" or $node/@cause ="unclear") then
()
else if($node/@rend ="|") then
fontane-simple:transform($node/node())
else if(not($node/@xml:id)) then
fontane-simple:transform($node/node())
else if(fontane-simple:is-transposed($node)) then
......
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