Merge pull request #1667 from perl6/add-edit-ico

Add edit ico

Author: tisonkun

assets/sass/style.scss

@@ -556,3 +556,19 @@ a[href*="//"]:not([href*="perl6.org"])::after,
     padding-left: 2px;
     content: url(/images/External-link-04-bold-12x12.svg);
 }
+
+
+.pencil{
+    background: #fff; /* Old browsers */
+    background: -moz-linear-gradient(top, #ffffff 0%, #ededed 100%); /* FF3.6+ */
+    background: -webkit-gradient(linear, left top, left bottom, color-stop(0%,#ffffff), color-stop(100%,#ededed)); /* Chrome,Safari4+ */
+    background: -webkit-linear-gradient(top, #ffffff 0%,#ededed 100%); /* Chrome10+,Safari5.1+ */
+    background: -o-linear-gradient(top, #ffffff 0%,#ededed 100%); /* Opera11.10+ */
+    background: -ms-linear-gradient(top, #ffffff 0%,#ededed 100%); /* IE10+ */
+    filter: progid:DXImageTransform.Microsoft.gradient( startColorstr='#ffffff', endColorstr='#ededed',GradientType=0 ); /* IE6-9 */
+    background: linear-gradient(top, #ffffff 0%,#ededed 100%); /* W3C */
+    border: 1px solid #CCCCCC;
+    color: #777777;
+    cursor: pointer;
+    overflow: visible;  border-radius: 4px 4px 4px 4px;
+}

html/images/External-link-04-bold-12x12.svg

@@ -85,7 +85,8 @@ my @menu =
 ;
 
 my $head = slurp 'template/head.html';
-sub header-html($current-selection = 'nothing selected') is cached {
+
+sub header-html($current-selection, $pod-path) is cached {
     state $header = slurp 'template/header.html';
 
     my $menu-items = [~]
@@ -112,15 +113,25 @@ sub header-html($current-selection = 'nothing selected') is cached {
             q[</div>];
     }
 
-    state $menu-pos = ($header ~~ /MENU/).from;
-    $header.subst('MENU', :p($menu-pos), $menu-items ~ $sub-menu-items);
+    my $edit-url = "";
+    if defined $pod-path {
+      $edit-url = qq[
+      <div align="right">
+        <button title="Edit this page"  class="pencil" onclick="location='https://github.com/perl6/doc/edit/master/doc/$pod-path'">
+        {svg-for-file("html/images/pencil.svg")}
+        </button>
+      </div>]
+    }
+
+    $header.subst('MENU', $menu-items ~ $sub-menu-items)
+           .subst('EDITURL', $edit-url);
 }
 
-sub p2h($pod, $selection = 'nothing selected', :$pod-path = 'unknown') {
+sub p2h($pod, $selection = 'nothing selected', :$pod-path = Nil) {
     pod2html $pod,
         :url(&rewrite-url),
         :$head,
-        :header(header-html $selection),
+        :header(header-html($selection, $pod-path)),
         :footer(footer-html($pod-path)),
         :default-title("Perl 6 Documentation"),
         :css-url(''), # disable Pod::To::HTML's default CSS
@@ -331,7 +342,7 @@ multi write-type-source($doc) {
         $graph-contents .= subst('PODNAME', $podname);
         $graph-contents .= subst('INLINESVG', svg-for-file("html/images/type-graph-$podname.svg"));
 
-        $pod.contents.append: 
+        $pod.contents.append:
         pod-heading("Type Graph"),
         Pod::Raw.new(
             target => 'html',

html/images/pencil.svg

@@ -95,7 +95,7 @@ sub footer-html($pod-path) is export {
     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" {
+    if not defined $pod-path {
         $pod-url = "the sources at $gh-link";
         $edit-url = ".";
     }

htmlify.p6

@@ -17,3 +17,4 @@
     </div>
 </div>
 <div id="content" class="pretty-box yellow">
+EDITURL