--- cvsroot/schmorpforge/genpage	2009/07/20 04:46:42	1.47
+++ cvsroot/schmorpforge/genpage	2009/07/20 05:54:48	1.48
@@ -31,12 +31,71 @@
       a:hover         { color: #800; }
       a:active        { color: #f00; }
 
+      .back           {
+         margin: 0;
+         font-size: 8pt;
+      }
+
+      h1              {
+        color: #034;
+      }
+      .short-desc     {
+        font-weight: bold;
+        padding: 3px 3px 3px 8px;
+        margin: 1em 1px 1px 13px;
+      }
+      h2              {
+        color: #069;
+        font-weight: bold;
+        border: solid red;
+        border-width: 0 0 0 12px;
+        padding: 3px 3px 3px 8px;
+        margin: 1em 1px 1px 1px;
+      }
+      p               {
+        padding: 3px 3px 3px 8px;
+        margin: 1em 1px 1px 13px;
+      }
+      h3              { color: #034; }
+      h4              { color: #034; }
+
       img             { display: block; }
 
+      .resources      {
+        margin-left: 13px;
+        margin-right: 13px;
+        padding: 3px 3px 3px 8px;
+        border-spacing: 1px 2px;
+      }
+
+      .rr             {
+        background: #eef;
+        padding: 1px 1em 1px 1ex;
+      }
+
+      tt.icon         {
+        display: block;
+        font-family: "Andale Mono", "Lettergothic", monospace;
+        border: 1px solid #88f;
+        background: #ccf;
+        padding: 1px 1em 1px 1em;
+        margin-right: 0;
+        text-align: center;
+        width: 4en;
+      }
+
       tt              { font-family: "Andale Mono", "Lettergothic", monospace; }
 
-      th              { border-top: 1px dashed #aaa; vertical-align: top; text-align: left; padding: 0.2ex; }
-      td              { border-top: 1px dashed #aaa; vertical-align: top; text-align: left; padding: 0.2ex; }
+      .overview       {
+        margin-top: 1em;
+        margin-left: 13px;
+        margin-right: 13px;
+        padding: 3px 3px 3px 8px;
+        border-spacing: 1px 2px;
+      }
+
+      .overview th    { border-top: 1px dashed #aaa; vertical-align: top; text-align: left; padding: 0.2ex; }
+      .overview td    { border-top: 1px dashed #aaa; vertical-align: top; text-align: left; padding: 0.2ex; }
 
       hr.footer       { display: none; }
       .footer         { font-size: 8pt; border-top: 1px solid red; }
@@ -88,38 +147,35 @@
    open STDOUT, ">", "software.schmorp.de/pkg/$name.html"
       or die "software.schmorp.de/pkg/$name.html: $!";
 
-   if (grep /cpan/, @args) {
-      hdr $name, "bg-perl";
-   } else {
-      hdr $name, "bg-ede";
-   }
+   my $bg = (grep /cpan/, @args) ? "bg-perl" : "bg-ede";
+   hdr $name, $bg;
 
    print <<EOF;
+<h2>$name</h1>
 <p class='short-desc'>$short</p>
 
 <h2>Blurb</h2>
 <p class='blurb'>$desc</p>
 <h2>Resources</h2>
-<ul>
+<table class='resources'>
 EOF
    if (grep /git/, @args) {
       print <<EOF;
-<li><a href='http://git.ta-sa.org/?p=$name.git;a=summary'>Browsable GIT repository '$name'</a></li>
-<li>Read-only GIT checkout:<br />
-   <tt>&#160;git-clone http://git.ta-sa.org/$name.git</tt>
-</li>
-<li>(EXPERIMENTAL) contributor CVS access (command requires CVS versions (&gt;= 1.12.11)):<br />
+<tr><td><tt class="icon">GIT</tt></td><td class='rr'><a href='http://git.ta-sa.org/?p=$name.git;a=summary'>Browsable GIT repository '$name'</a></li></tr>
+<tr><td><tt class="icon">GIT</tt></td><td class='rr'>Read-only GIT checkout: <tt>&#160;git-clone http://git.ta-sa.org/$name.git</tt>
+</td></tr>
+<tr><td><tt class="icon">CVS</tt></td><td class='rr'>Contributor CVS access (command requires CVS version &gt;= 1.12.11):<br />
    <tt>cvs -d ":ext;CVS_SERVER=git-cvsserver:USER\@ruth.plan9.de/gitroot/$name.git" co -d $name master</tt>
-</li>
+</td></tr>
 EOF
    } else {
       my $modules = $name;
       $modules = "$1" if grep /modules\((.*)\)/, @args;
 
       print <<EOF;
-<li><a href='http://cvs.schmorp.de/$name'>Browsable CVS module '$name'</a></li>
-<li>Anonymous CVS checkout:<br />
-   <tt>&#160;cvs -z3 -d :pserver:anonymous\@cvs.schmorp.de/schmorpforge co $modules</tt><p />
+<tr><td><tt class="icon">CVS</tt></td><td class='rr'><a href='http://cvs.schmorp.de/$name'>Browsable CVS module '$name'</a></td></tr>
+<tr><td><tt class="icon">CVS</tt></td><td class='rr'>Anonymous CVS:
+   <tt>&#160;cvs -z3 -d :pserver:anonymous\@cvs.schmorp.de/schmorpforge co $modules</tt>
 
    <small>
    
@@ -130,6 +186,7 @@
    </p>
 -->
 
+<!--
    <p>The CVS server moved again on 2008-02-21, you can use the following
    (untested) snippet to update your CVS checkout. Run it in the top level
    checked out directory:</ br>
@@ -138,53 +195,54 @@
 find . -name CVS | xargs -I% find % -name Root |
    xargs perl -i -pe 's%:pserver:anonymous\\\@cvs.schmorp.de:636/schmorpforge%:pserver:anonymous\\\@cvs.schmorp.de:/schmorpforge%'</pre>
    </p>
+-->
 
    </small>
 
-</li>
+</td></tr>
 EOF
    }
 
-   print "<li><a href='http://dist.schmorp.de/$name/'>File Releases</a></li>\n"
+   print "<tr><td><tt class='icon'>FILE</tt></td><td class='rr'><a href='http://dist.schmorp.de/$name/'>File Releases</a></td></tr>\n"
       if grep /dist/, @args;
-   print "<li><a href='http://www.cpan.org/modules/by-authors/Marc_Lehmann/'>File Releases (CPAN)</a></li>\n"
+   print "<tr><td><tt class='icon'>CPAN</tt></td><td class='rr'><a href='http://www.cpan.org/modules/by-authors/Marc_Lehmann/'>File Releases (CPAN)</a></td></tr>\n"
       if grep /cpan$/, @args;
-   print "<li><a href='http://www.cpan.org/modules/by-authors/id/E/EL/ELMEX/'>File Releases (CPAN)</a></li>\n"
+   print "<tr><td><tt class='icon'>CPAN</tt></td><td class='rr'><a href='http://www.cpan.org/modules/by-authors/id/E/EL/ELMEX/'>File Releases (CPAN)</a></td></tr>\n"
       if grep /cpan-elmex/, @args;
    for (@args) {
       if (/list\((.*)\)/) {
-         print "<li><a href='http://lists.schmorp.de/mailman/listinfo/" . ($1 || $name) . "'>Mailing List '" . ($1 || $name) . "'</a></li>\n";
+         print "<tr><td><tt class='icon'>LIST</tt></td><td class='rr'><a href='http://lists.schmorp.de/mailman/listinfo/" . ($1 || $name) . "'>Mailing List '" . ($1 || $name) . "'</a></td></tr>\n";
       }
    }
 
-   print "</ul>";
+   print "</table>";
 
    if (my @files = grep $_, map /(cvs-co|cvs-pod|git-pod|git-co)\((\S+)\)/ && [$1, $2], @args) {
-      print "<h2>Additional Documents</h2><ul>";
+      print "<h2>Additional Documents</h2><table class='resources'>";
 
       for (@files) {
          my ($type, $arg) = @$_;
 
          if ($type eq "cvs-co") {
-            print "<li><a href='http://cvs.schmorp.de/$name/$arg'>$arg</a></li>";
+            print "<tr><td><tt class='icon'>FILE</tt></td><td class='rr'><a href='http://cvs.schmorp.de/$name/$arg'>$arg</a></td></tr>";
 
          } elsif ($type eq "cvs-pod") {
             my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg);
             $desc ||= "<b>Main Manual Page</b>";
-            print "<li><a href='http://pod.tst.eu/http://cvs.schmorp.de/$name/$file'>$desc</a></li>";
+            print "<tr><td><tt class='icon'>POD</tt></td><td class='rr'><a href='http://pod.tst.eu/http://cvs.schmorp.de/$name/$file'>$desc</a></td></tr>";
 
          } elsif ($type eq 'git-co') {
-            print "<li><a href='http://git.ta-sa.org/$name/$arg'>$arg</a></li>";
+            print "<tr><td><tt class='icon'>FILE</tt></td><td class='rr'><a href='http://git.ta-sa.org/$name/$arg'>$arg</a></td>";
 
          } elsif ($type eq "git-pod") {
             my ($file, $desc) = $arg =~ /(.*),(.*)/ ? ($1, $2) : ($arg, $arg);
             $desc ||= "<b>Main Manual Page</b>";
-            print "<li><a href='http://pod.tst.eu/http://git.ta-sa.org/$name/$file'>$desc</a></li>";
+            print "<tr><td><tt class='icon'>POD</tt></td><td class='rr'><a href='http://pod.tst.eu/http://git.ta-sa.org/$name/$file'>$desc</a></td></tr>";
 
          }
       }
 
-      print "</ul>";
+      print "</table>";
    }
 
    ftr;
@@ -192,22 +250,24 @@
 
 open STDOUT, ">software.schmorp.de/index.html";
 
-hdr "Package Index", "bg-bluete";
+hdr "Project List", "bg-bluete";
 
 print <<EOF;
 
-<p>This page briefly documents the Schmorpforge Ta-Sa Software Repository and
+<h2>About</h2>
+<p class='blurb'>This page briefly documents the Schmorpforge Ta-Sa Software Repository and
 lists all projects available here.</p>
 
-<ul>
-<li>All CVS Repositories can be found <a href="http://cvs.schmorp.de/">here</a>.</li>
-<li>All GIT Repositories can be found <a href="http://git.ta-sa.org/">here</a>.</li>
-<li>File Releases can be found <a href="http://dist.schmorp.de/">here</a> or on CPAN (for Perl modules).</li>
-<li>All Mailinglists can be found <a href="http://lists.schmorp.de/mailman/listinfo">here</a>.</li>
-<!--<li>The Wiki can be found <a href="http://wiki.schmorp.de/">here</a>.</li>-->
-</ul>
-<p>Projects listed on this page:</p>
-<table>
+<table class='resources'>
+<tr><td><tt class='icon'>CVS</tt></td><td class='rr'>All CVS modules can be found <a href="http://cvs.schmorp.de/">here</a>.</td></tr>
+<tr><td><tt class='icon'>GIT</tt></td><td class='rr'>All GIT repositories can be found <a href="http://git.ta-sa.org/">here</a>.</td></tr>
+<tr><td><tt class='icon'>FILE</tt></td><td class='rr'>All file releases can be found <a href="http://dist.schmorp.de/">here</a> or on CPAN (for Perl modules).</td></tr>
+<tr><td><tt class='icon'>LIST</tt></td><td class='rr'>All mailinglists can be found <a href="http://lists.schmorp.de/mailman/listinfo">here</a>.</td></tr>
+<!--<tr><td><tt class='icon'>WIKI</tt></td><td class='rr'>The Wiki can be found <a href="http://wiki.schmorp.de/">here</a>.</td></tr>-->
+</table>
+
+<h2>Project List</h2>
+<table class='overview'>
 EOF
 
 print $index{$_} for sort { (lc $a) cmp (lc $b) } keys %index;