more Registry usage/hackery

Author: moritz

htmlify.pl

@@ -150,6 +150,13 @@ (Bool :$debug, Bool :$typegraph = False)
             %names{$name}<routine>.push: "/type/$podname.html#" ~ uri_escape($name);
                 %routines{$name}.push: $podname => $chunk;
             %types<routine>{$name} = "/routine/" ~ uri_escape( $name );
+            $dr.add-new(
+                :kind<routine>,
+                # TODO: determine subkind, ie method/sub
+                :name($name),
+                :pod($chunk),
+                :!pod-is-complete,
+            );
         }
         if $tg.types{$podname} -> $t {
             $pod.content.push: Pod::Block::Named.new(
@@ -201,6 +208,13 @@ (Bool :$debug, Bool :$typegraph = False)
                 }
             }
         }
+        $dr.add-new(
+            :kind<type>,
+            # TODO: subkind
+            :$pod,
+            :pod-is-complete,
+            :name($podname),
+        );
         spurt "html/$what/$podname.html", p2h($pod);
     }
 

lib/Perl6/Documentable/Registry.pm

@@ -5,7 +5,7 @@ class Perl6::Documentable::Registry {
     has @.documentables;
     has Bool $.composed = False;
     has %!cache;
-    has %!grouped-by
+    has %!grouped-by;
     method add-new(*%args) {
         die "Cannot add something to a composed registry" if $.composed;
         @!documentables.push: Perl6::Documentable.new(|%args);
@@ -24,6 +24,6 @@ class Perl6::Documentable::Registry {
                 %!cache{$by}{$d."$by"()}.push: $d;
             }
         }
-        %!cache{$by}{$d};
+        %!cache{$by}{$what};
     }
 }