{"body":"@@ -248,11 +279,18 @@ sub process-pod-source(:$kind, :$pod, :$\n     }\n }\n\n+my %tm = <% percent # hash - dash . dot ? question>;\n+sub english-for-tokens {\n+  $^a.comb.map({ %tm{$_} ?? \"-%tm{$_}-\" !! $_ })\n+     .join.subst(/'--'/, '-', :g)\n+     .subst: /^\\-|\\-<before \\s>|<after \\s>\\-|\\-$/, '', :g\n+};\n+\n # XXX: Generalize\n multi write-type-source($doc) {\n     sub href_escape($ref) {\n         # only valid for things preceded by a protocol, slash, or hash\n-        return uri_escape($ref).subst('%3A%3A', '::', :g);\n+        return uri_escape(english-for-tokens($ref)).subst('%3A%3A', '::', :g);\n     }\n     my $pod     = $doc.pod;\n     my $podname = $doc.name;\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/apCalljE","modified":1465858176,"id":"apCalljE","size":663,"lines":20,"own_paste":false,"theme":"","date":1465858176}