Documentation tweaks.

7 files changed, 44 insertions, 42 deletions

diff --git a/doc/geiser.css b/doc/geiser.css
index bdb2c6a..96f1801 100644
--- a/doc/geiser.css
+++ b/doc/geiser.css
@@ -62,4 +62,19 @@ ul {
 
 div.navigation {
     background-color: #efebe7;
-}
\ No newline at end of file
+    line-height: 100%;
+    top-margin: 5px;
+    padding: 3px;
+    /* background-color: #000000; */
+    /* border-top-style: solid; */
+    /* border-bottom-style: solid; */
+    /* border-width: 0px; */
+    /* border-top-width: 4px; */
+    /* border-color: rgb(200, 200, 200); */
+}
+
+.navlink {
+    text-decoration: none;
+    /* color: white; */
+}
+
diff --git a/doc/geiser.texi b/doc/geiser.texi
index f327155..8c9cce8 100644
--- a/doc/geiser.texi
+++ b/doc/geiser.texi
@@ -50,14 +50,15 @@ It draws inspiration (and a bit more) from environments such as Common
 Lisp's Slime, Factor's FUEL, Squeak or Emacs itself, and does its best
 to make Scheme hacking inside Emacs (even more) fun.
 
-Or, to be precise, what i consider fun. Geiser is thus my humble
-contribution to the dynamic school of expression, and a reaction against
-what i perceive as a derailment, in modern times, of standard Scheme
-towards the static camp. Because i prefer growing and healing to poking
-at corpses, the continuously running Scheme interpreter takes the center
-of the stage in Geiser. A bundle of Elisp shims orchestrates the dialog
-between the Scheme interpreter, Emacs and, ultimately, the schemer,
-giving her access to live metadata.
+Or, to be precise, what @uref{http://hacks-galore.org/jao, i} consider
+fun. Geiser is thus my humble contribution to the dynamic school of
+expression, and a reaction against what i perceive as a derailment, in
+modern times, of standard Scheme towards the static camp. Because i
+prefer growing and healing to poking at corpses, the continuously
+running Scheme interpreter takes the center of the stage in Geiser. A
+bundle of Elisp shims orchestrates the dialog between the Scheme
+interpreter, Emacs and, ultimately, the schemer, giving her access to
+live metadata. Here's how.
 
 @ifnothtml
 @insertcopying
@@ -67,7 +68,7 @@ giving her access to live metadata.
 @menu
 * Introduction::
 * Installation::
-* Quick start::
+* Tutorial::
 * Index::
 
 @ifinfo
@@ -87,20 +88,17 @@ Installation
 
 @end detailmenu
 @end ifinfo
-
 @end menu
-
 @ifhtml
-@macro sLink {WHERE, TEXT}
-@uref{http://savannah.nongnu.org/\WHERE\/?group=geiser, \TEXT\}@ @
-@end macro
-@html
-<div class="navigation">
-@end html
-@flushright
-@sLink{news, News} @ @ @sLink{files, Downloads} @ @ @sLink{bugs, Bugs} @ @ @uref{http://git.savannah.gnu.org/cgit/geiser.git, Source}@ @ @ @ @uref{http://lists.nongnu.org/mailman/listinfo/geiser-users, Mailing list}@ @
-@end flushright
 @html
+<div class="navigation" align="right">
+<a class="navlink"
+href="http://savannah.nongnu.org/news/?group=geiser">News</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class="navlink"
+href="http://savannah.nongnu.org/files/?group=geiser">Downloads</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class="navlink"
+href="http://savannah.nongnu.org/bugs/?group=geiser">Bugs</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class="navlink"
+href="http://git.savannah.gnu.org/cgit/geiser.git">Source</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class="navlink"
+href="http://lists.nongnu.org/mailman/listinfo/geiser-users">Mailing
+list</a>&nbsp;
 </div>
 @end html
 @end ifhtml
@@ -108,7 +106,7 @@ Installation
 
 @include intro.texi
 @include install.texi
-@include quick.texi
+@include tutorial.texi
 @include index.texi
 
 @bye
diff --git a/doc/index.texi b/doc/index.texi
index 3437075..57a7441 100644
--- a/doc/index.texi
+++ b/doc/index.texi
@@ -1,4 +1,4 @@
-@c This is part of Geiser's user manual., , Quick start, Top
+@c This is part of Geiser's user manual., , Tutorial, Top
 @c Copyright (C) 2010 Jose Antonio Ortega Ruiz
 @c See the file geiser.texi for copying conditions.
 
diff --git a/doc/install.texi b/doc/install.texi
index d2e8fc0..e297cd3 100644
--- a/doc/install.texi
+++ b/doc/install.texi
@@ -37,9 +37,9 @@ If you don't want to install Git, you can instead grab a tarball from
 Geiser's @uref{http://gitorious.org/geiser/mainline/commits/master,
 Gitorious mirror}, where you'll find a
 @uref{http://gitorious.org/geiser/mainline/archive-tarball/master, link}
-generating it for you. Either way, you'll now be in possession of a copy
-of Geiser's libre code. I'll follow you into its directory and the next
-section.
+generating said tarball for you. Either way, you'll now be in possession
+of a copy of Geiser's libre code. I'll follow you into its directory and
+the next section.
 
 @node Setting it up, Friends, Must needs, Installation
 @section Setting it up
@@ -68,7 +68,7 @@ $ cd ~/lib/geiser
 $ ./autogen.sh
 @end example
 @noindent
-I recommend that you compile Geiser is a separate directory:
+I recommend that you compile Geiser in a separate directory:
 @example
 $ mkdir build && cd build
 $ ../configure
diff --git a/doc/intro.texi b/doc/intro.texi
index 364421d..2f83325 100644
--- a/doc/intro.texi
+++ b/doc/intro.texi
@@ -3,7 +3,7 @@
 
 Geiser is an Emacs environment to hack and have fun in Scheme. If that's
 enough for you, see @ref{Installation} to get it running and
-@ref{Quick start} for the fun part.
+@ref{Tutorial} for the fun part.
 
 @menu
 * Modus operandi::
diff --git a/doc/quick.texi b/doc/quick.texi
deleted file mode 100644
index ab1d97c..0000000
--- a/doc/quick.texi
+++ /dev/null
@@ -1,10 +0,0 @@
-@node Quick start, Index, Installation, Top
-@chapter Quick start
-
-@anchor{quick-start}
-
-
-@c Local Variables:
-@c mode: texinfo
-@c TeX-master: "geiser"
-@c End:
diff --git a/doc/site.conf b/doc/site.conf
index 6d3be76..7c42a1e 100644
--- a/doc/site.conf
+++ b/doc/site.conf
@@ -24,7 +24,8 @@ sub button_link {
     my $label = shift;
     my $txt = shift;
     my $trail = shift;
-    &$anchor('', $Texi2HTML::HREF{$label}, $txt) . ($trail || '&nbsp;&nbsp;')
+   '<a class="navlink" href="' . $Texi2HTML::HREF{$label} . '">'
+       . $txt . '</a>' . $trail;
 }
 
 $jao_navigation_links = '';
@@ -32,20 +33,18 @@ $jao_navigation_links = '';
 sub chap_header {
     my $fh = shift;
     $jao_navigation_links = nav_links();
-    # print $fh $jao_navigation_links;
     print $fh "<hr>";
 }
 
 sub chap_footer {
     my $fh = shift;
-    # print $fh "<hr>";
     print $fh $jao_navigation_links;
 }
 
 sub nav_links {
     '<div class="navigation"><table border="0"><tr><td align="left">'
         . button_link('Top', 'Geiser', '</td><td align="right">')
-        . button_link('FastBack', '<')
+        . button_link('FastBack', '<', '&nbsp;&nbsp;')
         . button_link('FastForward', '>', '</td></tr></table></div>');
 }