Make WrapStyle.clone re-render the prefix

Author: japhb

examples/dir-tree.raku

@@ -74,10 +74,9 @@ class DirTreeDemo is TopLevel {
         # Set line wrapping style for log: Grapheme wrapping with wrap markers
         my $log        = %.by-id<details>;
         my $marker     = $.terminal.caps.symbol-set >= Uni1 ?? '↳ ' !! '> ';
-        my $wrap-style = $log.wrap-style.new:
-                         :$.terminal,
-                         wrap-mode => GraphemeWrap,
-                         wrapped-line-prefix => ' ' x 8 ~ $marker;
+        my $wrap-style = $log.wrap-style.clone:
+                             wrap-mode => GraphemeWrap,
+                             wrapped-line-prefix => ' ' x 8 ~ $marker;
         $log.set-wrap-style($wrap-style);
     }
 }

lib/Terminal/Widgets/WrappableBuffer.rakumod

@@ -39,10 +39,16 @@ class Terminal::Widgets::WrapStyle {
     has @.rendered-prefix is built(False);
     has $.prefix-length   is built(False);
 
-    submethod TWEAK() {
+    # Ensure render-prefix is called on any new or clone
+    submethod TWEAK {  self.render-prefix }
+    method clone { callsame.render-prefix }
+
+    method render-prefix() {
         my $renderer      = $!terminal.locale.renderer;
         @!rendered-prefix = $renderer.render($!wrapped-line-prefix);
         $!prefix-length   = @!rendered-prefix.map(*.width).sum;
+
+        self
     }
 }