Skip to content
Permalink
Browse files

Improves document name for #2924

  • Loading branch information...
JJ committed Jul 30, 2019
1 parent 86559aa commit b86b6ab075e5ad4ae39d36b1af0be474012eaa51
Showing with 5 additions and 4 deletions.
  1. +5 −4 util/issue-with-all-pod6.p6
@@ -7,12 +7,13 @@ my @docs = qx/git ls-files | grep "\.pod6"/.lines;
for @docs -> $d {
my $repo-path = S[doc] = '/perl6/doc/blob/master/doc' with $d;
my $web-path = S[doc] = 'https://docs.perl6.org' with $d;
my $doc-name = $d.split("/")[*-1].split(".")[0];
if $web-path ~~ /Type/ {
my @fragments = $web-path.split("/Type/");
$web-path = @fragments[0] ~ "/type/" ~ @fragments[1].trans( ['/'] => ['::'] );
$doc-name = @fragments[1].trans( ['/'] => ['::'] ).split(".")[0];
$web-path = @fragments[0] ~ "/type/" ~ $doc-name;
}
my $doc-name = $d.split("/")[*-1].split(".")[0];
$web-path .= trans( [ "Language", "Programs", ".pod6" ] =>
[ "language", "programs", ''] );
$web-path .= trans( [ "Language", "Programs" ] =>
[ "language", "programs" ] );
say "* [ ] $doc-name [file]($repo-path), [generated]($web-path)";
}

0 comments on commit b86b6ab

Please sign in to comment.
You can’t perform that action at this time.