Add a Node.root helper method

japhb · japhb · commit fc904790d8e7 · 2025-11-16T18:38:47.000-08:00
diff --git a/lib/Terminal/Widgets/Volatile/DirTree.rakumod b/lib/Terminal/Widgets/Volatile/DirTree.rakumod
@@ -13,6 +13,13 @@ role Node {
         my $short-name = self.^name.subst('Terminal::Widgets::Volatile::', '');
         $short-name ~ ':' ~ $!path.path
     }
+
+    #| Find root node via parent chain, runtime is O(depth)
+    method root(::?CLASS:D:) {
+        my $root = self;
+        $root .= parent while $root.parent;
+        $root
+    }
 }
 
 class Dev does Node {

Original file line number	Diff line number	Diff line change
`@@ -13,6 +13,13 @@ role Node {`
`13`	`13`	`my $short-name = self.^name.subst('Terminal::Widgets::Volatile::', '');`
`14`	`14`	`$short-name ~ ':' ~ $!path.path`
`15`	`15`	`}`
	`16`	`+`
	`17`	`+ #\| Find root node via parent chain, runtime is O(depth)`
	`18`	`+ method root(::?CLASS:D:) {`
	`19`	`+ my $root = self;`
	`20`	`+ $root .= parent while $root.parent;`
	`21`	`+ $root`
	`22`	`+ }`
`16`	`23`	`}`
`17`	`24`
`18`	`25`	`class Dev does Node {`