Merge pull request #1533 from zakame/link-to-non-raw-pages-on-github

Link to non-raw GitHub page, with edit link
Raku · Sep 4, 2017 · f7c9224 · f7c9224
2 parents 950ad92 + d607c78
commit f7c9224
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git 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[<a href='https://github.com/perl6/doc'>perl6/doc on GitHub</a>];
     if $pod-path eq "unknown" {
         $pod-url = "the sources at $gh-link";
+        $edit-url = "";
     }
     else {
-        $pod-url = "<a href='https://github.com/perl6/doc/raw/master/doc/$pod-path'>$pod-path\</a\> from $gh-link";
+        $pod-url = "<a href='https://github.com/perl6/doc/blob/master/doc/$pod-path'>$pod-path\</a\> from $gh-link";
+        $edit-url = "<a href='https://github.com/perl6/doc/edit/master/doc/$pod-path'>Edit this page\</a\>.";
     }
     $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
@@ -4,6 +4,7 @@
       Generated on DATETIME from SOURCEURL, commit <a href="https://github.com/perl6/doc/commit/SOURCECOMMIT"><span id="footer-commit">SOURCECOMMIT</span></a>.
       This is a work in progress to document Perl 6, and known to be
       incomplete.
+      EDITURL
       <a href="https://github.com/perl6/doc/blob/master/CONTRIBUTING.md#reporting-bugs">Please report any issues.</a>
       Your contribution is appreciated.
   </p>