Realize that index.html isn't being generated properly

The really correct way to do it is to turn index.html into an index.pod and find some place to put it
Raku · Jun 15, 2014 · 48f8964 · 48f8964
1 parent 766740e
commit 48f8964
Show file tree

Hide file tree

Showing 3 changed files with 109 additions and 38 deletions.
diff --git a/html/index.html b/html/index.html
@@ -0,0 +1,105 @@
+<!doctype html>
+<html>
+<head>
+  <title>Index</title>
+  <meta charset="UTF-8" />
+  <style>
+    /* code gets the browser-default font
+     * kbd gets a slightly less common monospace font
+     * samp gets the hard pixelly fonts
+     */
+    kbd { font-family: "Droid Sans Mono", "Luxi Mono", "Inconsolata", monospace }
+    samp { font-family: "Terminus", "Courier", "Lucida Console", monospace }
+    /* WHATWG HTML frowns on the use of <u> because it looks like a link,
+     * so we make it not look like one.
+     */
+    u { text-decoration: none }
+    .nested {
+        margin-left: 3em;
+    }
+    // footnote things:
+    aside, u { opacity: 0.7 }
+    a[id^="fn-"]:target { background: #ff0 }
+  </style>
+  <link rel="stylesheet" href="http://perlcabal.org/syn/perl.css">
+
+  <link rel="icon" href="/favicon.ico" type="favicon.ico" />
+<link rel="stylesheet" type="text/css" href="/css/style.css" media="screen" title="default" />
+<link type="text/css" href="/css/custom-theme/jquery-ui-1.8.21.custom.css" rel="stylesheet" />
+<script type="text/javascript" src="/js/jquery-1.7.2.min.js"></script>
+<script type="text/javascript" src="/js/jquery-ui-1.8.21.custom.min.js"></script>
+<script type="text/javascript" src="/js/search.js"></script>
+
+</head>
+<body class="pod" id="___top">
+<div id="header" class="pretty-box green">
+    <a href="/">
+        <img src="/images/camelia-small.png" alt="Camelia" id="logo"
+        >&nbsp;Perl 6 Documentation</a>
+    <div id="search" class="ui-widget">
+        <div class="green"><input value='Search' id="query" title="Enter Perl 6 document to search for"></div>
+    </div>
+    <div class="menu">
+        <div class="menu-items dark-green">
+            <a class="menu-item" href="/language">Language</a>
+            <a class="menu-item" href="/type">Types</a>
+            <a class="menu-item" href="/routine">Routines</a>
+            <a class="menu-item" href="/module">Modules</a>
+            <a id="formalities" class="menu-item" href="/formalities">Formalities</a>
+        </div>
+    </div>
+</div>
+<div id="content" class="pretty-box yellow">
+    <img style="float: right;" src="/images/camelia-faded.png"/>
+    Welcome to the official documentation of the <a href="http://perl6.org">Perl 6</a>
+    programming language!  Besides online browsing and searching, you can also <a>download</a>
+    an offline HTML or PDF copy, and <a href="http://github.com/perl6/doc">contribute</a>
+    by reporting mistakes or sending patches.
+
+    <hr>
+
+    <h3><a href="/language">Language Reference & Tutorials</a></h3>
+    <desc>
+        A collection of documents describing, in detail, the various
+        conceptual parts of the language. If you're new to Perl 6,
+        language>intro is a good place to start.
+    </desc>
+    <h3><a href="/type">Type Reference</a></h3>
+    <desc>
+        Index of built-in classes and roles.
+    </desc>
+    <h3><a href="/routine">Routine Reference</a></h3>
+    <desc>
+        Index of built-in subroutines and methods.
+    </desc>
+    <h3><a href="/module">Module Reference</a></h3>
+    <desc>
+        Index of modules that are part of the official core distribution.
+    </desc>
+
+    <hr>
+
+    <p>
+    You may also be interested in the Perl 6 <a href="http://perlcabal.org/syn">synopses</a>,
+    which are more complete than this documentation, but targeted toward compiler writers
+    rather than users of the langauge.
+    Documentation for the different but related <a href="http://perl.org/">Perl 5</a> language
+    can be found <a href="http://perldoc.perl.org/">here</a>.
+    </p>
+</div>
+<div id="footer" class="pretty-box yellow">
+
+        <p>
+            Generated on 2014-06-12T18:19:53-0400 from the sources at
+            <a href="https://github.com/perl6/doc">perl6/doc on github</a>.
+            This is a work in progress to document Perl 6, and known to be
+            incomplete. Your contribution is appreciated.
+        </p>
+        <p>
+            The Camelia image is copyright 2009 by Larry Wall.
+        </p>
+
+</div>
+
+</body>
+</html>
diff --git a/htmlify.p6 b/htmlify.p6
@@ -632,8 +632,10 @@ sub write-operator-files($dr) {
 }
 
 sub write-index-files($dr) {
-    say 'Writing html/index.html ...';
-    spurt 'html/index.html', $head ~ header-html() ~ slurp('template/index-content.html') ~ $footer;
+    # XXX: Main index file can't be generated properly until
+    # it is turned into a Pod file. For now, it's just static.
+    #say 'Writing html/index.html ...';
+    #spurt 'html/index.html', p2h slurp('template/index-content.html');
 
     say 'Writing html/language.html ...';
     spurt 'html/language.html', p2h(pod-with-title(

diff --git a/template/index-content.html b/template/index-content.html