Improve "p6doc -f" output

stmuk · stmuk · commit 2e6a2a5240cd · 2016-01-01T16:14:27.000Z
Add back Type:: prefix since this is used elsewhere by p6doc
Strip "routine" and "method" from results
diff --git a/bin/p6doc b/bin/p6doc
@@ -131,6 +131,7 @@ sub disambiguate-f-search( $docee, %data ) {
         if %data{$ndocee} {
             my @types = %data{$ndocee}.values>>.Str.grep({ $^v ~~ /^ 'Type' / and not $^v ~~ / 'Cool' $ / });
             @types = [gather @types.deepmap(*.take)].unique.list;
+            @types.=grep({!/$pref/});
             %found{$ndocee}.push: @types X~ "." ~ $docee;
         }
     }
@@ -147,7 +148,7 @@ sub disambiguate-f-search( $docee, %data ) {
 
         my %options;
         for %found.keys -> $key {
-            %options{$key}.push: %found{$key}>>.subst(/^'Type::'/, '');
+            %options{$key}.push: %found{$key};
         }
 
         # 's' => Type::Supply.grep, ... | and we specifically want the %found values,

Original file line number	Diff line number	Diff line change
`@@ -131,6 +131,7 @@ sub disambiguate-f-search( $docee, %data ) {`
`131`	`131`	`if %data{$ndocee} {`
`132`	`132`	`my @types = %data{$ndocee}.values>>.Str.grep({ $^v ~~ /^ 'Type' / and not $^v ~~ / 'Cool' $ / });`
`133`	`133`	`@types = [gather @types.deepmap(*.take)].unique.list;`
	`134`	`+ @types.=grep({!/$pref/});`
`134`	`135`	`%found{$ndocee}.push: @types X~ "." ~ $docee;`
`135`	`136`	`}`
`136`	`137`	`}`
`@@ -147,7 +148,7 @@ sub disambiguate-f-search( $docee, %data ) {`
`147`	`148`
`148`	`149`	`my %options;`
`149`	`150`	`for %found.keys -> $key {`
`150`		`- %options{$key}.push: %found{$key}>>.subst(/^'Type::'/, '');`
	`151`	`+ %options{$key}.push: %found{$key};`
`151`	`152`	`}`
`152`	`153`
`153`	`154`	`# 's' => Type::Supply.grep, ... \| and we specifically want the %found values,`