Add 404 page with menu bar on it

Fixes #129
Raku · Jun 15, 2016 · f312715 · f312715
1 parent 09bfa0e
commit f312715
Show file tree

Hide file tree

Showing 4 changed files with 17 additions and 1 deletion.
diff --git a/doc/404.pod b/doc/404.pod
@@ -0,0 +1,11 @@
+=begin Html
+
+<img style="float: right; margin: 0 0 1em 1em" src="/images/camelia-404.png" alt="" id="home_logo"/>
+
+<h2>404: Page Not Found</h2>
+
+<p style="line-height: 1.7em">The page you tried to reach was moved or deleted. If you reached this page by following
+some link on this site, please report it <a href="https://github.com/perl6/doc/issues/new">on our GitHub repository</a>,
+so it could be fixed.</p>
+
+=end Html
diff --git a/html/.htaccess b/html/.htaccess
@@ -1 +1,2 @@
 Redirect 301 /language/5to6 http://doc.perl6.org/language/5to6-nutshell
+ErrorDocument 404 /404.html
diff --git a/html/images/camelia-404.png b/html/images/camelia-404.png
diff --git a/htmlify.p6 b/htmlify.p6
@@ -708,11 +708,15 @@ sub write-disambiguation-files() {
 }
 
 sub write-index-files() {
-    say 'Writing html/index.html ...';
+    say 'Writing html/index.html and html/404.html...';
     spurt 'html/index.html',
         p2h(extract-pod('doc/HomePage.pod'),
             pod-path => 'HomePage.pod');
 
+    spurt 'html/404.html',
+        p2h(extract-pod('doc/404.pod'),
+            pod-path => '404.pod');
+
     say 'Writing html/language.html ...';
     spurt 'html/language.html', p2h(pod-with-title(
         'Perl 6 Language Documentation',