Take advantage of span-tree(Str:D) in examples

Author: japhb

examples/debugger-mockup.raku

@@ -95,12 +95,9 @@ class DebuggerMockup is TopLevel {
             my $lineno      = $i + 1;
             my $lineno-span = $lineno == 7
                               ?? string-span($lineno ~ '>', color => 'bold yellow')
-                              !! string-span($lineno ~ ' ');
+                              !! $lineno ~ ' ';
             my $pad-span    = pad-span($max-lineno-width - $lineno.chars);
-            $source.add-entry(span-tree($pad-span,
-                                        $lineno-span,
-                                        string-span('│'),
-                                        string-span($line)));
+            $source.add-entry(span-tree($pad-span, $lineno-span, '│', $line));
         }
 
         $inspector.add-entry: q:to/INSPECTOR/;

examples/dir-tree.raku

@@ -38,8 +38,8 @@ class DirTreeDemo is TopLevel {
 
         my sub format-line(Str:D $label, Str:D() $value) {
             span-tree(string-span($label, color => 'bold yellow'),
-                      string-span(' ' x 10 - $label.chars),
-                      string-span($value))
+                      pad-span(10 - $label.chars),
+                      $value)
         }
 
         $details.add-entry(format-line('Path',     $path));