Merge github.com:perl6/doc

Author: raydiak

htmlify.pl

@@ -425,7 +425,10 @@ (Bool :$debug, Bool :$typegraph = False)
     say 'Writing html/js/search.js ...';
     my $template = slurp("template/search_template.js");
     my @items;
-    my sub fix-url ($raw) { $raw.substr(1) ~ '.html' };
+    my sub fix-url ($raw) {
+        $raw ~~ /^.(.*?)('#'.*)?$/;
+        $0 ~ '.html' ~ ($1||'')
+    };
     @items.push: $dr.lookup('language', :by<kind>).sort(*.name).map({
         "\{ label: \"Language: {.name}\", value: \"{.name}\", url: \"{ fix-url(.url) }\" \}"
     });