ensure we discard content-level artifacts

pdf-raku · Nov 14, 2023 · 353ff7e · 353ff7e
1 parent e2d2436
commit 353ff7e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/PDF/Tags/XML-Writer.rakumod b/lib/PDF/Tags/XML-Writer.rakumod
@@ -298,6 +298,8 @@ multi method stream-xml(PDF::Tags::Text $_, :$depth!) {
 }
 
 method !marked-content(PDF::Tags::Mark $node, :$depth!) {
+    my $name := $node.name;
+    return '' if $name eq 'Artifact' && !$!artifacts;
     my $text = $node.actual-text // do {
         my @text = $node.kids.map: {
             when PDF::Tags::Mark {
@@ -308,7 +310,6 @@ method !marked-content(PDF::Tags::Mark $node, :$depth!) {
         }
         @text.join;
     }
-    my $name := $node.name;
     my $omit-tag = ! $!marks;
     $omit-tag ||= $name ~~ $_ with $!omit;
     if $omit-tag {