From 353ff7e1f678db6926d6c2f724740466ca48724d Mon Sep 17 00:00:00 2001
From: David Warring <david.warring@gmail.com>
Date: Wed, 15 Nov 2023 07:44:39 +1300
Subject: [PATCH] ensure we discard content-level artifacts

---
 lib/PDF/Tags/XML-Writer.rakumod | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/PDF/Tags/XML-Writer.rakumod b/lib/PDF/Tags/XML-Writer.rakumod
index 9835ef5..d61fdda 100644
--- 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 {