add menu entry and redirect to examples.perl6.org

Raku · Jul 14, 2016 · ca4be04 · ca4be04
1 parent d9ee3fe
commit ca4be04
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 4 deletions.
diff --git a/htmlify.p6 b/htmlify.p6
@@ -54,10 +54,11 @@ my %p5to6-functions;
 
 # TODO: Generate menulist automatically
 my @menu =
-    ('language',''         ) => (),
-    ('type', 'Types'       ) => <basic composite domain-specific exceptions>,
-    ('routine', 'Routines' ) => <sub method term operator>,
-    ('programs', ''        ) => (),
+    ('language',''          ) => (),
+    ('type', 'Types'        ) => <basic composite domain-specific exceptions>,
+    ('routine', 'Routines'  ) => <sub method term operator>,
+    ('programs', ''         ) => (),
+    ('examples', 'Examples' ) => (),
 #    ('module', 'Modules'   ) => (),
 #    ('formalities',''      ) => ();
 ;
@@ -150,6 +151,8 @@ sub MAIN(
         mkdir "html/$_" unless "html/$_".IO ~~ :e;
     }
 
+    'template/examples.html'.IO.copy('html/examples.html'.IO);
+
     my $*DR = Perl6::Documentable::Registry.new;
 
     say 'Reading type graph ...';

diff --git a/template/examples.html b/template/examples.html
@@ -0,0 +1,12 @@
+<!DOCTYPE html>
+<html>
+<head>
+   <!-- HTML meta refresh URL redirection -->
+   <meta http-equiv="refresh" content="0; url=http://examples.perl6.org/">
+</head>
+<body>
+   <p>The page has moved to:
+   <a href="http://examples.perl6.org/">this page</a></p>
+</body>
+</html>
+