start to munge URLs

Author: moritz

htmlify.pl

@@ -6,6 +6,13 @@
 # this script isn't in bin/ because it's not meant
 # to be installed.
 
+sub url-munge($_) {
+    return $_ if m{^ <[a..z]>+ '::/'};
+    return "/type/$_" if m/^<[A..Z]>/;
+    return "/routine/$_" if m/^<[a..z]>/;
+    return $_;
+}
+
 my $*DEBUG = False;
 
 my %names;
@@ -181,7 +188,7 @@ ($out_dir = 'html', Bool :$debug)
         }),
     );
     my $file = open :w, "$out_dir/index.html";
-    $file.print: pod2html($pod);
+    $file.print: pod2html($pod, :url(&url-munge));
     $file.close;
 }
 
@@ -197,6 +204,6 @@ ($out_dir = 'html', Bool :$debug)
         })
     );
     my $file = open :w, "$out_dir/routine/$name.html";
-    $file.print: pod2html($pod);
+    $file.print: pod2html($pod, :url(&url-munge));
     $file.close;
 }