map tagged pdf Space{Before/After} {Start/End}Indent to css margins

Author: dwarring

lib/CSS/TagSet/TaggedPDF.rakumod

@@ -66,7 +66,13 @@ our %Layout = %(
     },
     # Custom properties which don't map well to CSS standard properties
     'SpaceBefore'|'SpaceAfter'|'StartIndent'|'EndIndent' => -> Str $prop, Num() $pt {
-        '-pdf-' ~ snake-case($prop) => :$pt;
+        my Str:D $margin = {
+            :SpaceBefore<top>,
+            :SpaceAfter<bottom>,
+            :StartIndent<left>,
+            :EndIndent<right>,
+        }{$prop};
+        ('margin-' ~ $margin) => :$pt;
     },
     # Todo: BBox BlockAlign InlineAlign TBorderStyle TPadding TextDecorationColor TextDecorationThickness RubyAlign RubyPosition GlyphOrientationVertical
 );

t/tag-set-pdf.t

@@ -11,7 +11,7 @@ is $tag-set.tag-style('H3'),         'display:block; font-size:1.17em; font-weig
 is $tag-set.tag-style('Code'),            'font:0.85em monospace; white-space:pre;', '<Code/>';
 is $tag-set.tag-style('LI'),            'display:list-item; list-style:none; margin-left:40px; page-break-after:avoid;', '<LI/>';
 is $tag-set.tag-style('Span', :BorderStyle<Dotted>),         'border:dotted;', '<Dotted/>';
-is $tag-set.tag-style('Span', :SpaceBefore(5)),         '-pdf-space-before:5pt;', '<Span SpaceBefore=...>';
+is $tag-set.tag-style('Span', :SpaceBefore(5)),         'margin-top:5pt;', '<Span SpaceBefore=...>';
 
 is $tag-set.tag-style('Code'), 'font:0.85em monospace; white-space:pre;', 'Base Code style';