diff --git a/lib/Pod/Htmlify.pm6 b/lib/Pod/Htmlify.pm6 index 9050bc8dc..4e2543e21 100644 --- a/lib/Pod/Htmlify.pm6 +++ b/lib/Pod/Htmlify.pm6 @@ -93,14 +93,18 @@ sub footer-html($pod-path) is export { my $footer = slurp 'template/footer.html'; $footer.subst-mutate(/DATETIME/, ~DateTime.now.utc.truncated-to('seconds')); my $pod-url; + my $edit-url; my $gh-link = q[perl6/doc on GitHub]; if $pod-path eq "unknown" { $pod-url = "the sources at $gh-link"; + $edit-url = ""; } else { - $pod-url = "$pod-path\ from $gh-link"; + $pod-url = "$pod-path\ from $gh-link"; + $edit-url = "Edit this page\."; } $footer.subst-mutate(/SOURCEURL/, $pod-url); + $footer.subst-mutate(/EDITURL/, $edit-url); state $source-commit = qx/git rev-parse --short HEAD/.chomp; $footer.subst-mutate(:g, /SOURCECOMMIT/, $source-commit); diff --git a/template/footer.html b/template/footer.html index 60cc67294..1021e18c3 100644 --- a/template/footer.html +++ b/template/footer.html @@ -4,6 +4,7 @@ Generated on DATETIME from SOURCEURL, commit SOURCECOMMIT. This is a work in progress to document Perl 6, and known to be incomplete. + EDITURL Please report any issues. Your contribution is appreciated.