fix css

git-svn-id: file:///raid/svn-personal/koakuma/trunk@28 219d0f9c-2d94-d447-890a-813e76b88fe9

diff --git a/Static/style.css b/Static/style.css
index 21e0523a0130ee96ec1474ec670660b230ef662a..cc4f9564dad508b5c350f107c6f65efd26d9292a 100644 (file)
--- a/Static/style.css
+++ b/Static/style.css
@@ -77,7 +77,8 @@ img {
 }
 
 #doc {
-       padding-right: 14em;
+       margin-right: 14em;
+       margin-top: -20px;
 }
 
 a {
@@ -93,7 +94,6 @@ a:visited {
        width: 13em;
        padding: 5px;
        background-color: #f0f0f0;
-       margin-top: 20px;
 }
 
 pre {

diff --git a/koakuma.cgi.in b/koakuma.cgi.in
index b667d5a7e12ea6bdddb8f5b7bc5ee812f3c005ff..80adceb00d529fc52fa9b2bebeeb71df5d5fbd58 100644 (file)
--- a/koakuma.cgi.in
+++ b/koakuma.cgi.in
@@ -277,8 +277,9 @@ proc start_html {title has_toc} {
        rputs   "                       <h1>$title</h1>"
 }
 proc end_html {has_toc} {
-       global KOAKUMA_VERSION
+       global KOAKUMA_VERSION toc
        rputs   "               </div>"
+       rputs   "               <div id=\"clearfix\"></div>"
        rputs   "               <hr>"
        rputs   "               <i>Powered by <a href=\"http://nishi.boats/koakuma\">Koakuma</a> $KOAKUMA_VERSION</i>"
        rputs   "       </body>"
@@ -311,6 +312,26 @@ if { [catch {
                rputs "Content-Type: text/html"
        }
        if { "$path" == "/" } {
+               set has_projects 0
+               add_toc "Projects"
+               open_projects
+               scan_projects {
+                       upvar 1 has_projects has_projects
+                       if { "$has_projects" == "0" } {
+                               set has_projects 1
+                               tputs   "<table border=\"0\">"
+                       }
+                       tputs   "<tr>"
+                       tputs   "       <th><a href=\"/koakuma/project/$name\">$name</a></th>"
+                       tputs   "       <td>[html_escape "$description"]</td>"
+                       tputs   "</tr>"
+               }
+               close_projects
+               if { "$has_projects" == "1" } {
+                       tputs   "</table>"
+               } else {
+                       tputs   "No projects have been added, yet."
+               }
                add_toc "Tcl Information"
                tputs   "<table border=\"0\">"
                tputs   "       <tr>"
@@ -348,31 +369,11 @@ if { [catch {
                tputs   "</table>"
                add_toc "Components"
                loop_components {
-                       add_toc2 "${name} (${genre} component)"
+                       add_toc2 "${name} (${genre})"
                        if { [llength [info procs "${name}_info"]] > 0 } {
                                ${name}_info
                        }
                }
-               set has_projects 0
-               add_toc "Projects"
-               open_projects
-               scan_projects {
-                       upvar 1 has_projects has_projects
-                       if { "$has_projects" == "0" } {
-                               set has_projects 1
-                               tputs   "<table border=\"0\">"
-                       }
-                       tputs   "<tr>"
-                       tputs   "       <th><a href=\"/koakuma/project/$name\">$name</a></th>"
-                       tputs   "       <td>[html_escape "$description"]</td>"
-                       tputs   "</tr>"
-               }
-               close_projects
-               if { "$has_projects" == "1" } {
-                       tputs   "</table>"
-               } else {
-                       tputs   "No projects have been added, yet."
-               }
 
                rputs ""
                start_html "Main" 1