Replace SOURCEURL, fix #111

lib/Perl6/Documentable/To/HTML/Wrapper.pm6

@@ -87,8 +87,15 @@ method menu($selected, $pod-path?) {
             .subst('EDITURL', $edit-url)
 }
 
-method footer() {
-    $!footer.subst(/DATETIME/, ~DateTime.now.utc.truncated-to('seconds'));
+method footer($pod-path) {
+    my $new-footer = $!footer.subst(/DATETIME/, ~DateTime.now.utc.truncated-to('seconds'));
+    if ( $pod-path ) {
+        my $source-path = $.config.pod-root-path ~ $pod-path;
+        $new-footer = $new-footer.subst(/SOURCEURL/, $source-path);
+        $new-footer = $new-footer.subst(/PODPATH/, $pod-path);
+    }
+
+    $new-footer;
 }
 
 method render($pod, $selected = '', :$pod-path?) {
@@ -97,7 +104,7 @@ method render($pod, $selected = '', :$pod-path?) {
         url           => &!rewrite,
         head          => $!head,
         header        => self.menu($selected, $pod-path),
-        footer        => self.footer,
+        footer        => self.footer($pod-path),
         default-title => $!title-page,
         css-url       => ''
     )

type-graph.txt

@@ -0,0 +1,38 @@
+[basic]
+class Perl6::Documentable
+class Perl6::Documentable::Registry
+class Perl6::Documentable::Primary is Perl6::Documentable
+class Perl6::Documentable::Secondary is Perl6::Documentable
+class Perl6::Documentable::Index is Perl6::Documentable
+class Perl6::Documentable::Config
+class Perl6::Documentable::Heading::Actions
+class Perl6::Documentable::Heading::Grammar
+class Perl6::Documentable::Search
+
+[basic]
+class Perl6::Documentable::DocPage::Factory
+class Perl6::Documentable::DocPage::Index
+class Perl6::Documentable::DocPage::Index::Language is Perl6::Documentable::DocPage
+class Perl6::Documentable::DocPage::Index::Programs is Perl6::Documentable::DocPage
+class Perl6::Documentable::DocPage::Index::Type is Perl6::Documentable::DocPage
+class Perl6::Documentable::DocPage::SubIndex::Type is Perl6::Documentable::DocPage
+class Perl6::Documentable::DocPage::Index::Routine is Perl6::Documentable::DocPage
+class Perl6::Documentable::DocPage::SubIndex::Routine is Perl6::Documentable::DocPage
+class Perl6::Documentable::DocPage::Secondary is Perl6::Documentable::DocPage
+class Perl6::Documentable::DocPage::Primary::Type is Perl6::Documentable::DocPage
+class Perl6::Documentable::DocPage::Primary::Language is Perl6::Documentable::DocPage
+class Perl6::Documentable::DocPage::Primary::Programs is Perl6::Documentable::DocPage
+class Perl6::Documentable::To::HTML::Wrapper
+
+[basic]
+role Perl6::Documentable::DocPage
+
+[exceptions]
+class X::Documentable::TitleNotFound is Exception
+class X::Documentable::SubtitleNotFound is Exception
+class X::Documentable::MissingMetadata is Exception
+class X::Documentable::Config::InvalidConfig is Exception
+class X::Documentable::TypeNotFound is Exception
+
+[basic]
+enum Kind